OPNFILT0130-Sep-1996 20:13DEC Fortran V6.1-68OPNFILTP JTD$DB:OP)).GDB JTD$DB:OP).GDB JTD$DB:OP)$)$.GDB JTD$DB:OP$)$.GDB$@gcy$sys:filtall  ))) %EACF-F-File access to fid   by PID  rejected code:)%EACF - reject tty:) image:) username:) accpor:))$@GCY$CM:FILRST )     ) ) $@GCY$CM:FILRST )     NLA0:NONAME ) OPNFILT @GCY$PARAND*JTAUTHMAINT.EXE*:X()\Z(R(<#>S(P   T T        ( @L$  LIB$SYS_TRNLOG@P``xpDL`h STR$MATCH_WILD@TXX`H@H @  @ 4<\phh@ (<Ddx@@,4H@dlP[^Ь,8Ь@LЬ T `ԭLIB$SYS_TRNLOGPk)\ԭ <찏,>@ D찏H찏J$L$P T찏V(XH\웏@`찏-bLdhl찏npޫtx찏zˤ|ޫ ˀ˄ˈˌTSTULKPQA8 P@8  SYS$GETJPIW QA8P@8QA8$ SYS$GETJPIWDIVLENPHPIVLENP \IVLENP$hIVLENP$1ZZQ(AtIVLENPTT-$$ T$ˀ$˄TˈˌːSTR$MATCH_WILDP$ Z$˜$ˠˬSTR$MATCH_WILDP$TSTULKPRB8ːSC8˔UE8U QA8Z TD8Xˏ?UYˏUVѭYVЏʏUUPRB`SQALTP ˼˸GETIDUE8<RB8@T<>W4@ LIB$INDEXPPPPTTVV@UXULFhP\ LIB$INDEXPPPTPPWխ1Rlx LIB$INDEXPRӭQaQZɭQjˬˈˌIVLENPV FOR$REWRITE_SFV˘ˬ˜˘ FOR$IO_T_DS FOR$IO_ENDTSTULKXXP FOR$UNLOCKYYPSZˤ˰ LIB$INDEXPPPPSSVV@XQX˼Fa LIB$INDEXPPPSPPZS1Z1" FOR$WRITE_IF UUe FOR$IO_T_DS߫d FOR$IO_X_DA Vf FOR$IO_L_RSXXZYUYHe FOR$IO_T_DSTUUWVXVEh FOR$IO_T_DSݫ FOR$IO_L_V FOR$IO_ENDSZU FOR$WRITE_IF UUe FOR$IO_T_DS߫d FOR$IO_X_DA Vf FOR$IO_L_RTTWXWDh FOR$IO_T_DSݫ FOR$IO_L_V FOR$IO_ENDIVLENPSˬIVLENPU FOR$REWRITE_SFU ˬ$  FOR$IO_T_DS FOR$IO_ENDS(,0JTSPAWNPVV1~~t FOR$READ_KFˬ@< FOR$IO_T_DS FOR$IO_ENDPWWXXCVYiYZɭYjˬHLIVLENPS FOR$REWRITE_SFSXˬ\X FOR$IO_T_DS FOR$IO_END FOR$UNLOCKRRP FOR$UNLOCKTTPPOK OPNFILTJTSPAWN LIB$SPAWN SYS$GETJPIWSTR$MATCH_WILDLIB$SYS_TRNLOGTSTULKIVLENGETID LIB$INDEX FOR$CLOSEFOR$OPENLIB$WAITCHKACRJ2ASCOPRMSGZ$CODE$PDATA$$LOCAL0ILICCRJCODDBNS@EXFLKIUICJPIJUNK FOR$UNLOCK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KFFOR$REWRITE_SF FOR$WRITE_IF=PBPNPP0PUPPPBP\P,GPIPPPPPSPF7PTPGPPPP PP9P-P/fPrPxPPPPwP/P6P-PDPMPTPP XPpPP^P- P P  P  P'4 P{` PO P- P P] P P@ PE PI PK PB P  P PHPq#PdPPKPBP PPPPPvPP/P PWPwZGETID0130-Sep-1996 20:13DEC Fortran V6.1-68 GETID GETIDP  P<[ЬЬ$RPB`QQQRRRBQQRRQ$SRTDT$UQ <GETID$CODE$PDATA($LOCAL-P2P8P:PP@PBP$DP0+CHKAC0130-Sep-1996 20:13DEC Fortran V6.1-68 CHKACPEZ$ CHKACQ @*JTAUTHMAINT.EXE*B(U(V(I(J(K(L(S()LNM$PROCESS_TABLEP    X p$  (@Lhh,$4< (( STR$MATCH_WILD@$``hh,$4:@,H: ITMCHK@=@,H= ITMCHK@@@,H@ ITMCHK@C@$C ITMCHK@F@$(F ITMCHK@0I@$ PI ITMCHK@XI@4xI ITMCHK@L@$ L ITMCHK@L@4L ITMCHK@@OR (T@HT EXTTRNLNM@xP [Ь4@Ь HЬ\hЬp| |,~ˀVަ ˄ˈˊ$ˌ$ː ˔˖(˘H˜@ˠ-ˢLˤƌ˨ˬˮ˰ޫ˴˸˺˼ޫ޼Wg޻@Xըި4 SYS$GETJPIWըШ` SYS$GETJPIWIVLENPH IVLENP IVLENP$$IVLENPƌ$1YYQ(A0IVLENPT-$$ T$<$@TDHLSTR$MATCH_WILDP$ Y$X$\hSTR$MATCH_WILDP$gt FOR$SECNDSFaFPJPRRRRSCHQRTDaU1SCHRDbDYIHUDeD1ըިˀ|GTPRVըШXˈJGTPRVS UEHRbRR$YIHP`SS11ըި4˜˔ SYS$GETJPIWШ4 ըШ` ˴ SYS$GETJPIWRS11IVLENPHIVLENP IVLENP$IVLENPƌ`QAHITMCHKիѫ\RBHQaQQ1Ш UըUʏUUѫ1P@HSDcNUEHRDbN1YIHUDeP1SCHYDiYUEHSDcRYIHUDeXШ PըPʏPPѫ1QAHUDeX1`QAH8<ITMCHKիի`TDH`dITMCHKիի1`VFHˈˌITMCHKի ի`RBH˰˴ITMCHKիի1`UEHITMCHKի`QAHITMCHKիի`SCH(,ITMCHKի@ի1`QAHPTITMCHK¹իի1(VFHRbR,SCHQaQ1`P@Hp| LIB$INDEXPV1V1VXX@R`SCHQRˈHaˌ˘ LIB$INDEXP1VPUU1(SCHQa,RBHUe PVXV`SCHQVˤHa˨ˬFILCK(TDHScSѫSѫS1,YIHRbRѫ Rѫ R1TVFHP`YXTDHScS1HRbVFHP`PPʏPPː FOR$WRITE_IFˀ FOR$IO_X_DA FOR$IO_END EXTTRNLNMPSWPUICLIB$SYS_TRNLOG SWPUICVVTVUERTRREV  FOR$READ_IF߫( FOR$IO_L_R FOR$IO_END $  FOR$READ_IF߫, FOR$IO_L_R FOR$IO_ENDXX(RR(X,SS,Y(Y(XTDHVfVV,V,gg CHKAC SYS$GETJPIWLIB$SYS_TRNLOG EXTTRNLNMSTR$MATCH_WILDIVLEN FOR$SECNDSGTPRVJGTPRVSITMCHK LIB$INDEXFILCKSWPUIC$CODEf$PDATA$LOCALRJCODKIUICJPIJUNK@EXFL FOR$IO_END FOR$IO_L_R FOR$IO_X_DA FOR$READ_IF FOR$WRITE_IFP PXPPRP'PPPPP'P?PEPYPPPP9P0PP=PPPP[PaP3tPj~PPKPP PPVPP8PP)P 2PLPXP(qPP\PP(PPPyP  PR&P5POP^P}lP{PPPPP0P APSP dPwsPP[P")PVP}P P.P P PS ITMCHK0130-Sep-1996 20:13DEC Fortran V6.1-68 ITMCHK ITMCHKP),&P,@`t|P[}PQ} PQ }PQмV޼Wg LIB$INDEXP1P1PPR,R@ 4 LIB$INDEXPX1X1,~XX^(XnXZZX,Xn PQ^H LIB$INDEXPgTIVLENPZh LIB$INDEXPYYZYVtxYQQ|ˀ˄STR$MATCH_WILDP$YZYR,RI g ITMCHKSTR$MATCH_WILD LIB$INDEXIVLEN$CODE $PDATA$LOCAL8PDPjPvPPPPPLPP!jIVLEN0130-Sep-1996 20:13DEC Fortran V6.1-68 IVLEN IVLENPP[}PQPмRPRRQPQSSTDTT RPSPP IVLENC$CODE$PDATA$LOCALP 5P;P CFILCK0130-Sep-1996 20:13DEC Fortran V6.1-68 FILCKP FILCKP )    IUFCK  P|[}PQP ޼Rb޼ ScTbcP$ FOR$INQUIRE8FOR$OPENP1UQQl FOR$CLOSEbTc  FOR$READ_SFk FOR$IO_L_R FOR$IO_X_DA FOR$IO_ENDTkPQQbcVUQQVVcUUVVckTt FOR$CLOSEbb |FILCKIUFCK FOR$INQUIREFOR$OPEN FOR$CLOSE$CODER$PDATA$LOCALFSZC FOR$IO_END FOR$IO_L_R FOR$IO_X_DA FOR$READ_SFBPaPP]PZP(P: IUFCK0130-Sep-1996 20:13DEC Fortran V6.1-68 IUFCK IUFCKPP PD D P[ЬЬ$84SYS$OPENPRR@< SYS$CONNECTPRRP$QARbRkRHDGTXABkkRkЫЫP IUFCK SYS$CONNECTSYS$OPENGTXAB$CODE$PDATA\$LOCALFSZC)PxX FOR$WRITE_IFX  FOR$IO_T_DS($($ FOR$IO_T_DS FOR$IO_END,IVLENP4ӭ FOR$DELETE FOR$UNLOCKѫ$1ӭVTSTULK@ LIB$SPAWNP1p EXTTRNLNMʏPѫ8)1,n (ˌIVLENPW˼W˘˔˜ˠLIB$FID_TO_NAMEʏPˏ,VV0Pի0,n (,n ˼ SYS$GETJPIW  (SYS$CHECK_ACCESSʏPPTLIB$SYS_TRNLOGP0TY1T<1LIB$CVT_FROM_INTERNAL_TIME LIB$CVT_FROM_INTERNAL_TIME40 FOR$WRITE_IFݫ< FOR$IO_L_V FOR$IO_END<8 FOR$WRITE_IFݫ@ FOR$IO_L_V FOR$IO_END"D@ FOR$WRITE_IF?˼ FOR$IO_W_R?˾ FOR$IO_W_R? FOR$IO_W_R FOR$IO_ENDݏ.SAVW­^(˔nZ^(nZV,Vn PQ^HIVLENPZZ^(ZnZV^(nVX,Xn PQ^Z˜ FOR$WRITE_IFYTXT FOR$IO_T_DS FOR$IO_L_R FOR$IO_L_R(\`\ FOR$IO_T_DSZdhd FOR$IO_T_DS FOR$IO_ENDlIVLENPVˀLIB$SYS_TRNLOGܑY1DխVː˔˘JTSPAWNխ1ˬFOR$OPENPFOR$OPENP FOR$WRITE_IFݫ< FOR$IO_L_V FOR$IO_END FOR$WRITE_IFݫ@ FOR$IO_L_V FOR$IO_END"$  FOR$WRITE_IF?˼ FOR$IO_W_R?˾ FOR$IO_W_R? FOR$IO_W_R FOR$IO_ENDݏ.SAV­^(˔nЭZZX^(nXZ,Zn PQ^(IVLENPYY^(YnYV^(nVZ,Zn PQ^Y FOR$WRITE_SFY484 FOR$IO_T_DSW<˔@< FOR$IO_T_DS(DHD FOR$IO_T_DS FOR$IO_ENDL FOR$CLOSEխ޼hXЭ\DELDOЫPDѫDӭӭӭӭխTSTULKﰫ4ptx LIB$SPAWNЫPPOKYESdelsav: DELFILTDELDOLIB$CVT_FROM_INTERNAL_TIMELIB$FID_TO_NAMELIB$SYS_TRNLOGSYS$CHECK_ACCESSJTSPAWN EXTTRNLNM SYS$GETJPIWMYMODE LIB$INDEXIVLENFIXFID FOR$CLOSEFOR$OPENLIB$WAITCHKAC FOR$INQUIRETSTULK LIB$SPAWN $CODE$PDATA$$LOCAL0ILICCRJCODDBNS FOR$UNLOCK FOR$DELETE FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_KF FOR$WRITE_SF FOR$WRITE_IFPP>PPPCPO/PBPPPC8PRP XPcPuP9P!P/P&PPP$P<PwXP _PThPKwP<PPPuPR%P)pP P&PPPPP!PP P P PPPPP%P]{PPPUPNP PPP P P P P P P PK P$u P{ P P P  P, P" PO  EXTFILT0130-Sep-1996 20:13DEC Fortran V6.1-68EXTFILTP$@GCY$CM:MAKSPC )$)  $@GCY$CM:MAKSPC $$)  EXTFILTQ:P P$4$H,LDP[Ь޻VPЦ`ЦdQQRR,R 8 LIB$INDEXPPP,P DIVLENPWЦ ЦЦЦUUPP,P PIVLENPRզ\ FOR$WRITE_IFW\`\ FOR$IO_T_DSRdhd FOR$IO_T_DSߦ FOR$IO_L_Rߦ< FOR$IO_L_R FOR$IO_ENDզ\  FOR$WRITE_IFߦ\ FOR$IO_L_RRlpl FOR$IO_T_DSߦ FOR$IO_L_Rߦ< FOR$IO_L_R FOR$IO_ENDtIVLENPˀ˄ˈ LIB$SPAWNP EXTFILT LIB$SPAWN LIB$INDEXIVLENv$CODER$PDATA$LOCAL0ILICCRJCOD FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_IF PVP[PPS PI(vGETPV0130-Sep-1996 20:13DEC Fortran V6.1-68 GETPV GETPVPPP|[}PQмR޼ P`޼QaSRSTDT`UTUU`aVTVVaUU`VVaRS |GETPVZ$CODE$PDATA $LOCAL'P1HPPPZGETFNM0130-Sep-1996 20:13DEC Fortran V6.1-68 GETFNMP) GETFNM()P DtDDP|[}PQP м SS8Ь ޫPFOR$INI_DES1_R2RDFOR$OPENP1>,T޼U FOR$READ_SF< FOR$IO_T_DS FOR$IO_ENDt LIB$INDEXPˈ LIB$INDEXPPV˜ LIB$INDEXpPPVVVPP˨Fˬ˨ FOR$READ_IFk FOR$IO_L_R߫ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_ENDkRBdeRS1L˰ FOR$CLOSE |GETFNMFOR$OPEN LIB$INDEX FOR$CLOSE$CODE $PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_IFFOR$INI_DES1_R2:PFPJP) GETFNB0130-Sep-1996 20:13DEC Fortran V6.1-68 GETFNBP) GETFNB()P DtDDP[}PQP м 8Ь ޫPFOR$INI_DES1_R2RDFOR$OPENP1޼S FOR$READ_SF< FOR$IO_T_DS FOR$IO_ENDt LIB$INDEXPˈ LIB$INDEXPPT˜ LIB$INDEXpPPTTTPP˨Dˬ˨ FOR$READ_IFk FOR$IO_L_R߫ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_ENDkR>˴˰VBSETc1H˼ FOR$CLOSE GETFNBFOR$OPEN LIB$INDEXVBSET FOR$CLOSE$CODE $PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_IFFOR$INI_DES1_R27PBPFP) LOGLATCH0130-Sep-1996 20:13DEC Fortran V6.1-68LOGLATCHLOGLATCHPEACF_LE$$TLNM$SYSTEMTPP \ LIB$SYS_TRNLOG@PT    t LIB$SET_LOGICAL@| LIB$SET_LOGICAL@ LIB$SET_LOGICAL@PP[޼RbLIB$SYS_TRNLOGPb<LIB$SET_LOGICAL LOGLATCHLIB$SYS_TRNLOGLIB$SET_LOGICALLIB$GET_FOREIGN)$CODE$PDATA$LOCALP)GETEXF0130-Sep-1996 20:13DEC Fortran V6.1-68 GETEXFP) GETEXFQPP[}PQIVLENPFOR$OPENPR FOR$READ_SFRP@@D@ FOR$IO_T_DS FOR$IO_ENDR RH FOR$CLOSE GETEXFIVLENFOR$OPEN FOR$CLOSE$CODE$PDATAP$LOCAL@EXFL FOR$IO_END FOR$IO_T_DS FOR$READ_SF,PS:PE=PB RJ2ASC0130-Sep-1996 20:13DEC Fortran V6.1-68 RJ2ASC RJ2ASCP P|[}PQмV,n V, V, V,2 V,K V,b V ,{ V@, V, V, V, V, V,  PTime of Day Access rejectPrivs too high for accessUser on forbid. user listUser not on permit listImage on forbid. img listImage not on permit listTerminal on forbid listAccport on forbid listTerm or accpor not permitFile tamper checksum failFile password not enteredUser filter routine rejct |RJ2ASC$CODE$$PDATA$LOCAL P 0P @P PP `P pP P P P P P P IGETCAP0130-Sep-1996 20:13DEC Fortran V6.1-68IGETCAPIGETCAPPLPP[JTGLMSKkP8 FOR$EXIT_WP IGETCAPJTGLMSK FOR$EXIT_W8$CODE$PDATA$LOCAL0ILICC'P8SETCAP10130-Sep-1996 20:13DEC Fortran V6.1-68SETCAP1SETCAP1P SETCAP1 $CODE$PDATA$LOCAL0ILICC KGETKS0130-Sep-1996 20:13DEC Fortran V6.1-68 KGETKSPĜ3 Key error. Key appears invalid in form. Unentered. KGETKSP P[}PQPkk FOR$READ_IF߫ FOR$IO_X_DA FOR$IO_ENDKGETKI FOR$WRITE_SF FOR$IO_END KGETKSKGETKIW$CODE<$PDATA8$LOCAL FOR$IO_END FOR$IO_X_DA FOR$WRITE_SF FOR$READ_IFP)WTSTULK0130-Sep-1996 20:13DEC Fortran V6.1-68 TSTULK TSTULKPP[ FOR$INQUIREk FOR$UNLOCKP TSTULK FOR$INQUIRE($CODE$PDATA$LOCAL FOR$UNLOCKP&P (