JTDELMAINT$MAIN0116-Sep-1996 10:25Digital Fortran V6.4-165JTDELMAINT$MAINP,)$@gcy$cm:delbak ) JTDELMAINT$MAINQJTDEL$MODEDelMaint cmd>gce$delseq:delrecs.seq;*/%UNDEL,DELSAV%PURG:4 Pdtttttt @l @ LIB$SYS_TRNLOG@ 4  KL  K LIB$GET_FOREIGN@Y Y LIB$FIND_FILE@d    d ,   0 4 rL 0 L <t< P < <\ 8|    {\  {    {\ , {@ H }\ } LIB$SYS_TRNLOG@D \ 8      <  < <( 0 < <T 8d  \ 8{\  {        L T  h    Q P[(^Ы ЫԭԫˀLIB$SYS_TRNLOGիːp˔ː FOR$READ_IFk FOR$IO_L_Rk FOR$IO_ENDˠLIB$GET_FOREIGN,ˀ ˀѫ1ˀ\\ 1ˀq1ˀQ1ԫԫ˼ LIB$FIND_FILEIVLENPFOR$OPENP1ˏUUЭLIB$CVT_FROM_INTERNAL_TIMEЫЭ ,LIB$CVT_FROM_INTERNAL_TIMEЫ D LIB$INDEXPZZ1Z\,\Jˀ ˀZ,Zˀ ˀPIVLENPd LIB$INDEXPpIVLEN1 LIB$INDEXP1(IVLENP4ˀ8D LIB$INDEXP1PZ,Z@ˀ ˀPIVLENPZ1ˏR` FOR$WRITE_IFZ\ˀ`\ FOR$IO_T_DS FOR$IO_ENDdIVLENPpˀtx LIB$SPAWNZ˘ˀ˜˘ FOR$READ_IF߫( FOR$IO_L_RЫ( FOR$IO_END FOR$READ_SFh FOR$IO_T_DS FOR$IO_ENDˠIVLEN˴ LIB$INDEXPíSSЭTDˀ LIB$INDEXP1 FOR$READ_SFh FOR$IO_T_DS FOR$IO_END|IVLENPWWˈˀˌːˀ˔˘STR$MATCH_WILDP$1խW^(WˀnWV^(nV\,\n ˀPQ^WWˤˀ˨ˬ LIB$SPAWN1Yѭ1 LIB$INDEXPV1>V\\Fˀ LIB$INDEXP1VPPW\VSS^(Sˀn^SZ^(nZYYY\^WZZ^(ZGˀnZXWVWW^(WFˀnWYXYZZZ\^ CONV$PASS_FILES\^P1$CONV$PASS_OPTIONSP1, CONV$CONVERT1ѭ1@ LIB$INDEXPV1bVWWLFˀP\ LIB$INDEXP1=VPPXpLIB$SYS_TRNLOGˀIVLENPZEXEMPTի\VRR^(Rˇn^SW«^(ˀnWYXPVPP^(PFˀn^SWYWVVˌV\^ːXZZ˔Hˀ˘˜LIB$RENAME_FILE\^ԭVRR^(Rˇn^SWX\V\\^(\Fˀn\YWYVVV^XZZHˀLIB$RENAME_FILE^UNEXEMPT1K1EYh FOR$READ_IF߫, FOR$IO_L_R߫0 FOR$IO_L_R߫4 FOR$IO_L_R߫8 FOR$IO_L_R߫< FOR$IO_L_R FOR$IO_ENDЭWѫ,ë,VďQVVW0RRW1bѭ1XXˀ LIB$INDEXPZX^(XˀnX\:~\WY­YЭVY^(YFˀnY\W\VVVZ^LIB$DELETE_FILEZ^X(ˀ,0LIB$DELETE_FILE1ѭYYXˀ\h LIB$INDEXP\Y^(YˀnYW^(nWZZtZ\^x|LIB$DELETE_FILE\^Yˤˀ˨ˬLIB$DELETE_FILE1dB_ FOR$CLOSE1LIB$FIND_FILE_END FOR$CLOSEFOR$EXITPP$@gcy$cm:filundel delsav: JTDELMAINT$MAINLIB$SYS_TRNLOGLIB$GET_FOREIGNLIB$CVT_FROM_INTERNAL_TIME LIB$SPAWN LIB$FIND_FILESTR$MATCH_WILDCONV$PASS_FILES CONV$CONVERTCONV$PASS_OPTIONSIVLENFOR$OPEN LIB$INDEXEXEMPTLIB$RENAME_FILEUNEXEMPTLIB$DELETE_FILE FOR$CLOSELIB$FIND_FILE_ENDFOR$EXIT$CODE$PDATA $LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_IF FOR$WRITE_IF)P2yPyPlPaPVP!PVP aPQrPtP[P5PLNPP,PPP0PZPEcP?P+PjPZPPPK[PyPnP8P IVLEN0116-Sep-1996 10:25Digital Fortran V6.4-165 IVLEN IVLENPP[}PQPмPQPPRQRSSTDTT PQSPP IVLENC$CODE$PDATA$LOCALP 5P;P C