I'm using the simple IDCAMS REPRO JCL as shown below:
Code: Select all
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INP DD DSN=HLQ.V.ITST.ORLMTF,DISP=SHR
//*
//OUT DD DSN=HLQ1.ORLMTF.COPY,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(3,4),RLSE)
//SYSIN DD *
REPRO INFILE(INP) OUTFILE(OUT)
/*
Code: Select all
********************************* TOP OF DATA **********************************
IDCAMS SYSTEM SERVICES TIME: 02:40:56
REPRO INFILE(INP) OUTFILE(OUT) 00140000
IDC3300I ERROR OPENING HLQ1.ORLMTF.COPY
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
******************************** BOTTOM OF DATA ********************************
Code: Select all
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INP DD DSN=HLQ.V.ITST.ORLMTF,DISP=SHR
//*
//OUT DD DSN=HLQ1.ORLMTF.COPY,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(3,4),RLSE),BLKSIZE=8184,LRECL=8184,
// RECFM=F
//SYSIN DD *
REPRO INFILE(INP) OUTFILE(OUT)
/*
Code: Select all
WER108I SORTIN : RECFM=F ; LRECL= 8184; CISIZE = 8192
WER073I SORTIN : DSNAME=MISRZD.V.ITST.ORLMTF
WER110I SORTOUT : RECFM=FB ; LRECL= 8184; BLKSIZE= 8184
Code: Select all
********************************* TOP OF DATA **********************************
IDCAMS SYSTEM SERVICES TIME: 04:39:42
REPRO INFILE(INP) OUTFILE(OUT) 00140000
IDC3302I ACTION ERROR ON HLQ1.ORLMTF.COPY
IDC3309I ** RECORD X'4040404040' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON MISAD2.ORLMTF.COPY
IDC3309I ** RECORD X'C1E3F2F8E4' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON MISAD2.ORLMTF.COPY
IDC3309I ** RECORD X'C1E3F2F8E4' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON MISAD2.ORLMTF.COPY
IDC3309I ** RECORD X'C1E3F4F4E4' NOT WRITTEN. LENGTH INVALID
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12