I'm sure that we cannot override SYSPRINT length using idcams or iebgener...
but reading your need you can try using a single step of tso batch like
this, no rexx is needed.
//P00000 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SPACE=(CYL,(1,1)),UNIT=VIO
//SORTIN DD DISP=(OLD,DELETE),DSN=*.SYSTSPRT,VOL=REF=*.SYSTSPRT
//OUT DD PATHOPTS=(ORDWR,OCREAT),
// PATHDISP=(KEEP,DELETE),
// PATHMODE=(SIRWXU,SIRWXO),
// LRECL=132,FILEDATA=TEXT,
// PATH='/u/prova.txt'
//SYSTSIN DD *
LISTCAT LEVEL('myprefix.blabla')
SORT
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT,VTOF,
INCLUDE=(14,07,CH,EQ,C'-------'),
OUTREC=(6,132)
2010/4/30 Shane Ginnane <[email protected]>
> Ran into an oddball today.
>
> Needed to quickly diff a couple of z/OS catalogs, and figured it'd be
> easier using awk/diff than knocking up
> some REXX. So I ran LISTCAT and from SDSF XDC'd the sysprint. Pulled that
> over to OMVS to play with,
> couple of lines of awk, job done - DEF ALIAS for each difference in a file
> to use as SYSIN for IDCAMS
> again.
> Easy.
>
> Decided I needed a standard job to do it all, so used OFILE in the LISTCAT
> job to generate the listings
> into files. Even added DCB of VB, 140 just to be sure. IDCAMS forces VBA,
> which I didn't pick up on
> until later. Same script with those (erstwhile) VBA files fails due to
> every line that has a page skip control
> (char "1" in column 1) being appended to the previous line. No line feed.
> A GENER of the files to VB prior to sending them to OMVS indeed confirmed
> this is what was happening.
>
> Anyone else seen this - or got an explanation ?. gil maybe ... ?
>
> Shane ...
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
