JTDELMAINT$MAIN0114-Sep-1996 16:4114-Sep-1996 16:41VAX FORTRAN V5.9-173JTDELMAINT$MAINPJTDEL$MODEDelMaint cmd>gce$delseq:delrecs.seq;*/%UNDEL,DELSAV%PURG:,)$@gcy$cm:delbak ) JTDELMAINT$MAINH Pt   LIB$SYS_TRNLOG@ H  `   LIB$GET_FOREIGN@ - - LIB$FIND_FILE@x    x    $ ( F` D ` HP d P p     , Op  O    Op @ OT \ Qp Q LIB$SYS_TRNLOG@ X p        XP  P ^< D P h  x , p  Op  O  ^     0 ^` h  |    QP [^kԫ˄LIB$SYS_TRNLOGի`˔p˘˔ FOR$READ_IFk FOR$IO_L_R FOR$IO_ENDˤLIB$GET_FOREIGN,ˀ ˀѫ1ˀPP 1ˀq1ˀQ1ԫԫ LIB$FIND_FILEIVLENPFOR$OPENP1ˏk LIB$CVT_FROM_INTERNAL_TIME0LIB$CVT_FROM_INTERNAL_TIMEH LIB$INDEXPYY1YP,PIˀ ˀY,Yˀ ˀTIVLENPh LIB$INDEXPtIVLEN1  LIB$INDEXP1,IVLENP8ˀ<H LIB$INDEXP1PQ,Q@ˀ ˀTIVLENPR1ˏkPdd FOR$WRITE_IFR`ˀd` FOR$IO_T_DS FOR$IO_ENDhIVLENPtˀx| LIB$SPAWN`R˜ˀˠ˜ FOR$READ_IF߫, FOR$IO_L_R FOR$IO_ENDb FOR$READ_SFl FOR$IO_T_DS FOR$IO_ENDˤIVLEN˸ LIB$INDEXPWWPPGˀ LIB$INDEXPZ1b FOR$READ_SFl FOR$IO_T_DS FOR$IO_ENDˀIVLENPVVˌˀː˔ˀ˘˜STR$MATCH_WILDP$1իV^(VˀnV\^(n\,\n ˀPQ^VV˨ˀˬ˰ LIB$SPAWN1Zѫ1 LIB$INDEXPW1>WPPGˀ LIB$INDEXPZ1WZVWPP^(Pˀn^S\^(n\\\V^ZPP^(PJˀn^SYZPWPP^(PGˀn^SXXYYYV^ CONV$PASS_FILESV^P1(CONV$PASS_OPTIONSP10 CONV$CONVERT1ѫ1D LIB$INDEXPW1bWPPPGˀT` LIB$INDEXPZ1