I had to laugh when I received a similar set of JCL from a production job. The input was actually a file, but I've simulated it inline for demonstration purposes. Without running the JCL, can anyone tell how many bytes will be in the output TEMP2 file? Hint: We had DFSORT running with the default option for the TRUNC parameter, and all steps ran with cond code 0. Additional hint: your initial guess will probably be wrong.
//BUILD EXEC PGM=IEBGENER //SYSUT1 DD * RECORD 1 PLUS SOME EXTRANEOUS CHARACTERS > 40 RECORD 2 PLUS SOME EXTRANEOUS CHARACTERS > 40 RECORD 3 PLUS SOME EXTRANEOUS CHARACTERS > 40 RECORD 10 PLUS SOME EXTRANEOUS CHARACTERS > 40 RECORD 11 PLUS SOME EXTRANEOUS CHARACTERS > 40 RECORD 12 PLUS SOME EXTRANEOUS CHARACTERS > 40 //SYSUT2 DD DISP=(,PASS),SPACE=(TRK,1), // DSN=&&ORIG, // RECFM=FB,LRECL=80,BLKSIZE=8000 //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //*---------------------------------------------- //* COPY THE FIRST 40 BYTES OF EACH INPUT RECORD //*---------------------------------------------- //SORT1 EXEC PGM=SORT //SORTIN DD DISP=(OLD,PASS),DSN=&&ORIG //SORTOUT DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1), // DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400), // DSN=&&TEMP1 //SORTMSG DD DUMMY //SYSIN DD * SORT FIELDS=(1,8,CH,A) OUTREC FIELDS=(1,40) //*----------------------------------------------- //* EXPAND THE RECORDS FROM THE COPY //*----------------------------------------------- //SORT2 EXEC PGM=SORT //SORTIN DD DISP=(OLD,PASS),DSN=&&TEMP1 //SORTOUT DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1), // DCB=*.SORT1.SORTIN,DSN=&&TEMP2 //SORTMSG DD DUMMY //SYSIN DD * SORT FIELDS=(3,7,CH,A) //* ---------------------------------------------------------------------- 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
