I had thought of (and even tested) the URO approach but had found that the tag was not restored. I was wishing for a CP TAG DEV 00D OFF or somesuch so that the no-op in the original reader file would magically become the tag. Your approach is a good alternative. Thanks for that nudge! -- bc
On Fri, Sep 16, 2011 at 12:49 PM, Michael Harding <[email protected]>wrote: > Basically correct, though there are complications. While RDR will save the > tag and URO will output it, the tag setting will override and the original > file's tag will just be another record in the spool file (assuming you've > set NOPDATA on). Here's a more complete solution: > It does require that the printer (00E) be spooled to your rdr. A more > complete solution would save and manipulate the printer settings too. > /* > ** > */ > Address Command > Arg fid > Parse value Diag(8,'QUERY SET') with . 'NOPDATA' pdset . ',' . > Parse value Diag(8,'SET NOPDATA ON') with . > 'PIPE (End ? Name ReSpool)', > ' <' fid, > '|a:Pick 1.1 == x03', > '|b:Take 1', > '|Spec 2-* n', > '|var tagset', > '?a:', > '|c:Faninany', > '|URO', > '?b:', > '|c:' > Parse value Diag(8,'CLOSE 00E NAME' Subword(fid,1,2)) with . . sfid . > If Symbol('tagset')='VAR' then > Parse value Diag(8,'TAG FILE' sfid tagset) with . > Parse value Diag(8,'SET NOPDATA' pdset) with . > Exit 0 > > -- > Mike Harding > z/VM System Support > > [email protected] > [email protected] > [email protected] > (925) 926-3179 (w) > (925) 323-2070 (c) > IM: VMBearDad (AIM), mbhcpcvt (Y!) > > > CMSTSO Pipelines Discussion List <[email protected]> wrote on > 09/16/2011 09:19:38 AM: > > > From: Paul Gilmartin <[email protected]> > > To: [email protected] > > Date: 09/16/2011 09:23 AM > > Subject: Re: Saving and restoring a reader file > > Sent by: CMSTSO Pipelines Discussion List <[email protected]> > > > > On Sep 16, 2011, at 09:14, Bob Cronin wrote: > > > > > I need a way to take a reader file and save it to disk in such a way > that at > > > some later time, I can restore the file to the reader and have it be > > > identical to the original in all respects, including any tags (store > and > > > forward, or otherwise). Kind of like what SPTAPE does, but using CMS > > > minidisk to save the data and Rexx/Pipelines to do the work. Any > thoughts? > > > > > 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. > > > > I haven't tried exactly this. > > > > -- gil >
