Thanks to all ! I got it.
> Le 26 janv. 2019 à 02:14, Michael Harding <[email protected]> a écrit : > > 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 >>>> >>
