//FTSOCAT JOB ,'DASDMAP',CLASS=F,MSGCLASS=W,NOTIFY=FSUPP17 //REMOVE EXEC PGM=IEFBR14 //OUTF DD DSN=TSOCAT.NONVSAM1.DEFINE,DISP=(OLD,DELETE), //* ------------------- <- OUTPUT DATASET // UNIT=DASD,VOL=SER=FC9AI3 //* ------ <- OUTPUT VOLUME //LIST DD DSN=TSOCAT.NONVSAM1.LIST,DISP=(OLD,DELETE), //* ------------------- <- OUTPUT DATASET // UNIT=DASD,VOL=SER=FC9AI3 //* ------ <- OUTPUT VOLUME //DELT DD DSN=TSOCAT.NONVSAM1.DELT,DISP=(OLD,DELETE), //* ------------------- <- OUTPUT DATASET // UNIT=DASD,VOL=SER=FC9AI3 //* ------ <- OUTPUT VOLUME //LIST EXEC PGM=IKJEFT01,TIME=1440,REGION=20M, // PARM='%CATLST2 NONVSAM TSOCAT' //* ------- ------ //* NONVSAM SPECIFY CATALOG NAME //* OR ALIAS //* OR UCAT //STEPCAT DD DSN=TSOCAT,DISP=SHR //STEPLIB DD DSN=DDMSL.V1R2M1.LOADLIB,DISP=SHR //SYSPROC DD DSN=OS.SYSGEN.JCL522,DISP=SHR //SYSTSPRT DD SYSOUT=* //*NF DD DSN=VPWCAT.LISTCAT,DISP=SHR, //* UNIT=DASD,VOL=SER=F2ABF3 //OUTF DD DSN=*.REMOVE.OUTF,DISP=(,CATLG), // VOL=REF=*.REMOVE.OUTF,SPACE=(TRK,(80,30),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //LIST DD DSN=*.REMOVE.LIST,DISP=(,CATLG), // VOL=REF=*.REMOVE.LIST,SPACE=(TRK,(80,30),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //DELT DD DSN=*.REMOVE.DELT,DISP=(,CATLG), // VOL=REF=*.REMOVE.DELT,SPACE=(TRK,(80,30),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //EXL DD DUMMY //SYSTSIN DD DUMMY // // // //EXL DD * VOLUME WK DSNAME AI0