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 >
