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