Indeed. That file is in NETDATA format, the format created by the SENDFILE
command in CMS and the TRANSMIT command on TSO.
Will Roden wrote and shared a NETDATA REXX stage to help process NETDATA reader
files, which I'll post below.
There may be other ways to handle it, and probably some newer ones, but this
works quite well.
Mike Walter
Aon Corporation
The opinions expressed herein are mine alone, not my employer's.
/* CFORUM: PIPESAMPLES on YC2VM, downloaded 10/10/95 by mrw
/*Appended at 02:05:00 on 93/07/16 GMT (by RODEN at GDLVM7) */
/*Subject: NETDATA filter */
/* */
/* Here's a front-end to DEBLOCK NETDATA that I wrote a long time*/
/*ago because I was sick of looking up formats every time I used it.*/
/* */
/*NETDATA PREP removes the control characters from SPOOL file recs. */
/*NETDATA DISK untangles the NETDATA format. */
/*NETDATA with no parameters does both. */
/* */
/* */
/* Glenn S. Knickerbocker, GSKNICK at FSHVMX, 19 July 1989 */
/* quick front-end to DEBLOCK NETDATA */
/* when you don't care about tags and such */
prep = ,
'| find' '41'x ,
'| spec 2-* 1'
netdata = ,
'| pad 80' ,
'| deblock netdata',
'| find' 'c0'x ,
'| spec 2-* 1'
Arg option
option = strip(option)
Select
When option = '' then process = prep netdata
When Abbrev('PREP',option) then process = prep
When Abbrev('DISK',option) then process = netdata
Otherwise
Say 'Valid options for NETDATA are PREP and DISK.'
Exit 40
End
'addpipe *:' process '| *:'
/* End of file */
-----Original Message-----
From: CMSTSO Pipelines Discussion List [mailto:[email protected]] On
Behalf Of Frank M. Ramaekers
Sent: Friday, August 17, 2012 10:13 AM
To: [email protected]
Subject: READER stage
I'm not sure how to decode the READER stage stream. If I look at it (pipe it
to CONSOLE) there appears to be some prefix information:
#\INMR01 â & HOSTNAME ANONYMOU HOSTNAME MAINT 20
1
20817150953 CMS/TSO Pipelines INMR123.>\INMR02 INMCOPY
â & - ñ 20120817150953 A USERID DATA 1 \INMR
0
3 â & ñ ê{(actual data starts here)
(If I PEEK the file, it looks just fine.)
Frank M. Ramaekers Jr. | Systems Programmer | Information Technology | American
Income Life Insurance Company | 254-761-6649
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
[email protected].
