On Fri, 4 Mar 2016 08:57:16 -0700, Lizette Koehler wrote:
>For those that cannot get to the code, here it is
>[>]
>/* REXX */
> [ snip!]
> "ALLOC DD(SYSJO) FILEDATA(TEXT) ",
> "PATH('"PATH"') " ,
> " RECFM(V B A) LRECL(255) BLKSIZE(27998) ",
> " REUSE ",
> " FILEDATA(TEXT) ",
> " PATHMODE(SIRWXU) PATHOPTS(OEXCL,OCREAT,OWRONLY)"
> [ snip!]
> "EXECIO * DISKW SYSJO (STEM LINE."
> [ snip!]
>
John, I do something similar except that I use IEBGENER instead of EXECIO
because IEBGENER will copy the attributes of its input file to its output.
What if the SYSOUT has LRECL>255, very possible?
For select DDNAMEs such as SYSPUNCH I use FILEDATA(BINARY). For select
DDNAMEs, I use FILEDATA(RECORD). ISPF EDIT understands that, nowadays.
Does EXECIO * DISKW terminate on encountering an empty record?
ALLOC is TSO-dependent.
I wish I could infer CCSID from SDSF spool file attributes. Is there any way?
I just tag everything either IBM-1047 or BINARY. CCSID seems to be a DD
parameter, but with very limited applicability.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
