Re: [CMS-PIPELINES] Punch and deblock

[John P. Hartmann]

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 <CMS-PIPELINES@VM.MARIST.EDU> wrote on
01/25/2019 01:50:52 PM:

From: Mike Walter <walterthepennyl...@hotmail.com>
To: CMS-PIPELINES@VM.MARIST.EDU
Date: 01/25/2019 01:51 PM
Subject: Re: Punch and deblock
Sent by: CMSTSO Pipelines Discussion List <CMS-PIPELINES@VM.MARIST.EDU>

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 <CMS-PIPELINES@VM.MARIST.EDU>
On Behalf Of Paul Gilmartin
Sent: Friday, January 25, 2019 2:57 PM
To: CMS-PIPELINES@VM.MARIST.EDU
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