Saving and restore the printer settings is so 90's! Just find a free virtual address (001E anyone?), CP DEFINE a new printer at that virtual address, send the file through URO, and CP DETACH that temporary printer address.
Managing the printer settings this was is the easy part. Mike Harding just supplied the hard part. Mike Walter Aon Corporation The opinions expressed herein are mine alone, not my employer's. -----Original Message----- From: CMSTSO Pipelines Discussion List [mailto:CMS-PIPELINES@VM.MARIST.EDU] On Behalf Of Michael Harding Sent: Friday, September 16, 2011 11:49 AM To: CMS-PIPELINES@VM.MARIST.EDU Subject: Re: Saving and restoring a reader file 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 mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) CMSTSO Pipelines Discussion List <CMS-PIPELINES@vm.marist.edu> wrote on 09/16/2011 09:19:38 AM: > From: Paul Gilmartin <paulgboul...@aim.com> > To: CMS-PIPELINES@vm.marist.edu > Date: 09/16/2011 09:23 AM > Subject: Re: Saving and restoring a reader file > Sent by: CMSTSO Pipelines Discussion List <CMS-PIPELINES@vm.marist.edu> > > 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
