//TRNG111A JOB NOTIFY=TRNG111
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=TRNG111.TEST.EXPRT,DISP=(NEW,CATLG),
// SPACE=(TRK,(5,0)),DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB)
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT 'TRNG111.TEST.KSDSTE' OUTDATASET(TRNG111.TEST.EXPRT) -
CIMODE PERMANENT
/*
No comments:
Post a Comment