//UTB00X JOB NOTIFY=&SYSUID //STEG1 EXEC PGM=IEFBR14 //BOOKPR DD DSN=UTB00.CA01.VIDEOSUP,DISP=(MOD,DELETE), // SPACE=(TRK,1) //STEG2 EXEC PGM=IEFBR14 //BOOKPR DD DSN=UTB00.CA01.VIDEOSUP,DISP=(,CATLG), // SPACE=(TRK,(5,1)),LRECL=80, // RECORG=RR,VOL=SER=USR001 //STEG3 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDATA DD DSN=UTB00.CA01.COBDATA(VIDEOSUP),DISP=SHR //UTDATA DD DSN=UTB00.CA01.VIDEOSUP,DISP=OLD //SYSIN DD * REPRO INFILE(INDATA) OUTFILE(UTDATA) PRINT INFILE(UTDATA) CHAR