Here's the JCL (SORTIN is RECFM=FB,LRECL=120,BLKSIZE=27960):
//SORTSEP EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=AAAA.BBBB.CCCC
//AAAD DD DSN=&&AAAD,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=120,BLKSIZE=27960),
// UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE)
//AAAP DD DSN=&&AAAP,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=120,BLKSIZE=27960),
// UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=AAAD,
INCLUDE=(1,6,CH,EQ,C'AAADDD'),
OUTREC=(1,3,8:X,9,27,C'YES',120:X)
OUTFIL FNAMES=AAAP,
INCLUDE=(1,6,CH,EQ,C'AAAPPP'),
OUTREC=(1,3,8:X,9,27,39:X,C'YES',120:X)
/*
//SPLICE1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//PRINT DD SYSOUT=*
//AAAIN DD DISP=(,PASS),DSN=&&AAAD
// DD DISP=(,PASS),DSN=&&AAAP
//AAADP DD DISP=(,CATLG),DSN=AAAA.BBBB.AAADP,
// UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE)
//TOOLIN DD *
SPLICE FROM(AAAIN) TO(AAADP) WITH(37,3) ON(1,16,CH) WITHALL
/*
And here's the result (sort step finished RC=0):
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS,
EXAMPLES AND MORE
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
SPLICE FROM(AAAIN) TO(AAADP) WITH(37,3) ON(1,16,CH) WITHALL
ICE627I 0 DFSORT CALL 0001 FOR SORT FROM AAAIN TO AAADP TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE200I J IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE000I I - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 15:27 ON THU
SEP 29, 2005 -
DEBUG NOABEND,ESTAE
OPTION
LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTIN=AAAIN,SORTOUT=AAAD*
P,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
SORT FIELDS=(1,16,CH,A)
MODS E35=(ICE35DU,8192)
ICE043A K INVALID DATA SET ATTRIBUTES SPECIFIED AAAIN BLKSIZE
ICE052I J END OF DFSORT
TIA,
-jc-
----------------------------------------------------------------------
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
