/* * * * *
Date:         Thu, 2 Oct 2008 11:10:20 -0400
Reply-To:     The IBM z/VM Operating System <IBMVM@LISTSERV.UARK.EDU>
Sender:       The IBM z/VM Operating System <IBMVM@LISTSERV.UARK.EDU>
From:         Phil Smith III <lists@akphs.com>
Subject: Re: VMARC download date
To:           IBMVM@LISTSERV.UARK.EDU
 
Updated version of ARCLAST, now with comments (!) plus detection of ASCII-ified
VMARCs and non-VMARCs. To test: ARCLAST PROFILE EXEC or XEDIT a VMARC, issue:
 
set hex on
c/:CFF/x'3a434646'/*
file bad
 
Then issue ARCLAST BAD
 
...phsiii
---------                                                                    */
 * * * * */
 
 
 
 
/* ARCLAST EXEC -- List last-updated file in a VMARC, or all files */
   address command
   all = '| take first 1'         /* By default, only show last file */
   arg fn ft fm . '(' options ')'              /* Parse command line */
   if abbrev('?', fn) then signal Help        /* No parms/wants help */
   do while options <> ''                           /* Parse options */
      parse var options option options              /* Get an option */
      select
         when option = 'ALL' then all = ''    /* If ALL, kill filter */
         otherwise
         say 'Invalid option "'option'"'
         exit 24
      end
   end
   if ft = '' then ft = 'VMARC'                  /* Default filetype */
   if fm = '' then fm = '*'                      /* Default filemode */
   'PIPE (name ArcLast endchar ?)' ,       /* Get fileids/timestamps */
     '| <' fn ft fm ,                              /* Read the VMARC */
     '| rest: strfind /:CFF/' ,                  /* Get file headers */
     '| specs 11.18 1 31-33 20' ,  /* Just keep fileids & timestamps */
     '| specs 1.8 1 9.8 10' ,                 /* Reformat timestamps */
     '        20.1 c2x 22 @/@ 24 21.1 c2x 25 @/@ 27 22.1 c2x 28' ,
     '| nineties: locate 22 /0/' ,                 /* Send 19xx away */
     '| specs 1-18 1 /20/ 20 22-* n' ,      /* Add 20 for 20xx files */
     '| rejoin: faninany' ,               /* 19xx files come back in */
     '| sort 20-25 d' ,                        /* Sort, newest first */
     all ,                           /* Just keep most recent, maybe */
     '| console' ,                        /* And display the file(s) */
     '| count lines' ,                   /* See whether we found any */
     '| var count' ,                            /* And remember that */
     '?' ,
     'rest:' ,                    /* Non-file header lines come here */
     '| strfind x3A434646' ,               /* Look for ASCII version */
     '| count lines' ,                      /* See if there were any */
     '| var ascii' ,                           /* And remember if so */
     '?' ,
     'nineties:' ,                           /* 19xx files come here */
     '| specs 1-18 1 /19/ 20 22-* n' ,                /* Add century */
     '| rejoin:'                         /* And go rejoin 20xx files */
   if count = 0 then do
      if ascii > 0 then
      say 'File appears to have been translated to ASCII and thus' ,
       'destroyed.'
      else say 'Not a VMARC file.'
   end
   exit
Help:
   say 'ARCLAST lists the most recent file in a VMARC (or, optionally,'
   say 'all files in a VMARC, sorted with most recent files first).'
   say ''
   say 'Format is:'
   say ''
   say 'ARCLAST fn <ft <fm>> <( <ALL> <)> >'
   say ''
   say 'where "fn ft fm" is the fileid of a VMARC file; "ft fm"'
   say 'default to "VMARC *".'
   say ''
   say 'The ALL option lists all files, not just the most recent.'
   say ''
   say 'Comments/complaints/suggestions/cash to arclast@akphs.com.'
