DFSORT using JPn symbols:
// SET PARM1=XY
// SET PARM2=AB
//STEP0100 EXEC PGM=SORT,PARM='JP1"&PARM1",JP2"&PARM2"'
//SYMNOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,STOPAFT=1
INREC OVERLAY=(01:C'A',
80X,
80:C'B',
80X)
OUTREC FINDREP=(INOUT=(C'A',
JP1,
C'B',
JP2))
OUTFIL INCLUDE=(01,80,CH,
EQ,
81,80,CH),
NULLOFL=RC4
//SORTIN DD *
CONTENT IMMATERIAL
Will work prior to z/OS 2.x for anyone who needs that.
The actual values of the symbols are automatically documents on the SYMNOUT
dataset.
NULLOFL allows the setting of some specific RC values when the OUTFIL dataset
has no records.
Original code was shorter, but testing (failed) with null symbols required
changes.
Code may be different with a later DFSORT, but then you'd have access to the
EXPORT anyway (which could be used directly in a SORT step anyway).
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
