Isn't this fun? Thanks John. I wasn't concerned with other stacker selection as the OP's code used the punch driver. The reminder about substr is much appreciated, I tend to forget it.
So.... ever write a collate program for a 2540? Fun times. -- Mike Harding z/VM System Support [email protected] [email protected] (925) 672-3922 | (925) 672-4403 (h) (925) 323-2070 (m) /sp CMSTSO Pipelines Discussion List <[email protected]> wrote on 01/25/2019 04:18:04 PM: > From: "John P. Hartmann" <[email protected]> > To: [email protected] > Date: 01/25/2019 04:26 PM > Subject: Re: Punch and deblock > Sent by: CMSTSO Pipelines Discussion List <[email protected]> > > OK, it is/was Friday. > > Stacker select x'42' should also be observed in case someone brought a > real deck of cards to a real card reader. And remembered how to punch > and ID card. > > And Michael, as of z/VM 6.4 you are allowed to simply |substr 2-*| > rather than starting all of SPEC. Sort of like getting on your scooter > board rather than starting up the combine harvester to go buy a pint of > milk. > > On 1/26/19 00:55, Michael Harding wrote: > > Forgive me, it's Friday. With a nod in the direction of ancient wisdom, > > you're mostly right. In this case though he just need to take a cue from > > the proffered code and ignore records without the leading x'41' (stacker > > select) then strip that: > > > > "reader | strfind x41 | spec 2-* n | deblock cms | > whosyour momma a" > > > > -- > > Mike Harding > > z/VM System Support > > /sp > > > > > > CMSTSO Pipelines Discussion List <[email protected]> wrote on > > 01/25/2019 01:50:52 PM: > > > >> From: Mike Walter <[email protected]> > >> To: [email protected] > >> Date: 01/25/2019 01:51 PM > >> Subject: Re: Punch and deblock > >> Sent by: CMSTSO Pipelines Discussion List <[email protected]> > >> > >> Gil, > >> > >> The OP showed a sample pipe in which he created a string of text > >> under 80 characters long, blocked it as F 80, and then used the > >> PUNCH stage to send it out the virtual punch. Thus, it was not in > >> NETDATA format because it was not processed by either the NETDATA > >> stage, nor SENDFILE command. > >> > >> But alerting the OP the existence of the NETDATA stage may open new > >> avenues for him. OTOH, he also reported that there are many files > >> being processed, and NETDATA adds overhead on the sending and > >> receiving ends. That said, if the files are longer than LRECL 80, > >> or are variable length and the variable format must be retained, > >> then NETDATA/SENDFILE is the proper method. > >> > >> Mike Walter > >> -Retired- > >> > >> -----Original Message----- > >> From: CMSTSO Pipelines Discussion List <[email protected]> > >> On Behalf Of Paul Gilmartin > >> Sent: Friday, January 25, 2019 2:57 PM > >> To: [email protected] > >> Subject: Re: Punch and deblock > >> > >> On 2019-01-25, at 13:40:12, Alain Benvéniste wrote: > >>> Rob > >>> I thought to use a pipe reader file to read it back but if it is > >> not long to show me I would be glad to know how to do that for a receive. > >>> Many files are in transit so performance is a plus. > >>> > >> Have you looked at: > >> https://urldefense.proofpoint.com/v2/url? > >> > > > u=https-3A__nam02.safelinks.protection.outlook.com_-3Furl-3Dhttps-253A-252F-252Fwww.ibm.com-252Fsupport-252Flibraryserver-5Fos390-252FBOOKS-252FHCSH1C00-252F9. > > > >> > > > 5-253FDT-253D20090727132928-26amp-3Bdata-3D02-257C01-257C-257Ca6b80f3a949f4694c41d08d68307c074-257C84df9e7fe9f640afb435aaaaaaaaaaaa-257C1-257C0-257C636840466642199203-26amp-3Bsdata-3DyVDmpEdVILc8ohPNW1bVdsHV5p2qaAIb9OCYYpHqN6A-253D-26amp-3Breserved-3D0&d=DwIFAw&c=jf_iaSHvJObTbx- > > > >> siA1ZOg&r=jEBtqVYynGR6y_V- > >> dkwVF1mYKhZoeLn0xfDfGi8GI2A&m=AyiLUAMkCzMF4mRaVsk1mHEIUSBwJ- > >> wyRFINQbPAVag&s=0S_y2adY48YtHZWWNqqyYsFVd4aQFXPkk6i8X7V9IRc&e= > >> 9.5 NETDATA Format > >> > >> /* DEBNET REXX -- Deblock a reader file in NETDATA format. > > */ > >> 'callpipe', > >> 'reader', /* From reader > > */ > >> '| find' '41'x||, /* Only data records > > */ > >> '| specs 2-* 1.80', /* Discard channel command and pad to 80 > > */ > >> '| deblock netdata', /* Deblock > > */ > >> '| find' 'c0'x||, /* Only data records > > */ > >> '| specs 2-* 1', /* Remove control character > > */ > >> '| *:' > >> > >> -- gil > >> >
