On 09/16/2011 12:19 PM, Paul Gilmartin wrote:
> The READER stage returns a CCW code at the beginning of each record.
> It should be possible to write this to disk, and reconstitute it to
> spool with a URO stage.
For a punch file:
PIPE reader | > reader file a
CP SET NOPDATA ON
PIPE (end /) < reader file
| tag: take 1 | specs "TAG DEV PUN " 1 2-* n | cp
/ tag: | uro 00d
CP CLOSE PUN
Print files might take more fiddling to figure out the right device type
to restore them on. And of course you'll have to parse out all the file
attributes from QUERY RDR ALL/EXP/PSF/SEC, and the secure origin from
diag F8.
¬R
