Ralph, Thank you so much for your reply!! Below is the JCL of the job step
//G EXEC PGM=IKJEFT1B,DYNAMNBR=20 //STEPLIB DD DSN=PROD.COBOL.LOADLIB,DISP=SHR // DD DSN=DB2.V12.SDSNLOAD,DISP=SHR // DD DSN=DB2.V12.SDSNLOD2,DISP=SHR //SYSOUT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //DB2ERROR DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(DSN) RUN PROGRAM(Z0XX0XXK) - END //* //IN1 DD DSN=&&IN1,DISP=(OLD,DELETE) (RECFM=FB; LRECL=95; BLKSIZE= 27930) //LKUP1 DD DISP=(OLD,DELETE),DSN=&&LKUP1 (RECFM=FB; LRECL=10; BLKSIZE= 27990) //LKUP2 DD DISP=(OLD,DELETE),DSN=&&LKUP2 (RECFM=FB; LRECL=10; BLKSIZE= 27990) //OUT DD DSN=&&OUT,DISP=(,PASS), // DCB=(RECFM=FBA,BLKSIZE=0,LRECL=170,DSORG=PS), // SPACE=(CYL,(100,500),RLSE),BUFNO=30 //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
