//UTB00X JOB NOTIFY=&SYSUID //STEG1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE UTB00.CA01.FARTREG.RRDS DEFINE CLUSTER - ( - NAME(UTB00.CA01.FARTREG.RRDS) - RECORDSIZE(80,80) - TRACKS(1,1) - VOLUMES(USR001) - NUMBERED) //STEG2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //UTDATA DD DSN=UTB00.CA01.FARTREG.RRDS,DISP=OLD //INDATA DD DSN=UTB00.CA01.COBDATA(FARTREG),DISP=SHR //SYSIN DD * REPRO IFILE(INDATA) OUTFILE(UTDATA) PRINT INFILE(UTDATA) CHAR