Humbly submitted, the following EXEC to show you the most recent file in a
VMARC. Seems to me that since you need to download the file anyway to see the
:TLR info, this solves the problem in a similar way. (Yes, there could be a bad
VMARC that is *missing* or has an invalid copy of an *older* file, but at that
point, I think you're in a world o' hurt anyway...)
/**/
address command
arg fn ft fm . '(' options ')'
all = '| take first 1'
do while options <> ''
parse var options option options
select
when option = 'ALL' then all = ''
otherwise
say 'Invalid option "'option'"'
exit 24
end
end
if abbrev('?', fn) then signal Help
if ft = '' then ft = 'VMARC'
if fm = '' then fm = '*'
'PIPE (name ArcLast endchar ?)' ,
'| <' fn ft fm ,
'| strfind /:CFF/' ,
'| specs 11.18 1 31-33 20' ,
'| specs 1.8 1 9.8 10' ,
' 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' ,
'| rejoin: faninany' ,
'| sort 20-25 d' ,
all ,
'| cons' ,
'?' ,
'nineties:' ,
'| specs 1-18 1 /19/ 20 22-* n' ,
'| rejoin:'
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 [EMAIL PROTECTED]'
