Since one might have as many as 9999 RDR files,
this EXEC could be inadequate to retrieve everything.
Consider a QUERY FILES first.  Even though the output
from QUERY RDR isn't 100 bytes, I use the extra size
for self-defense.


/*  R E X X  */
Address Command

 'PIPE CP QUERY FILES *',
    '| SPECS W2' ,
    '| VAR N'

'PIPE CP' 100*N 'Q RDR * ALL',
   '| drop 1',
   '| xlate 54-71 a-z a',
   '| locate 54-71 "a"',
   '| spec w2 1',
   '| stem files.'

Richard Corak

Reply via email to