I am facing some problem with copying of the PS file to VSAM file.
My JCL definaition is as follows.
//STEP001 EXEC PGM=IDCAMS
//SYSIN DD *
DEFINE CLUSTER -
( -
NAME(QAE5.K.CAJX.REFMT) -
SHR(3,3) -
SPEED) -
DATA -
( -
NAME(QAE5.K.CAJX.REFMT.DATA) -
CYL(1,1) -
CISZ(4096) -
RECSZ(209,209) -
KEYS(206,03) -
) -
INDEX -
( -
NAME(QAE5.K.CAJX.REFMT.INDEX) -
)
//SYSDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//STEP002 EXEC PGM=IDCAMS
//FILEIN DD DSN=QAE5.SORT28.COMX,DISP=SHR
//FILEOUT DD DSN=QAE5.K.CAJX.REFMT,
// DISP=SHR
//SYSIN DD *
REPRO INFILE(FILEIN) -
OUTFILE(FILEOUT)
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
( -
NAME(QAE5.K.CAJX.REFMT) -
SHR(3,3) -
SPEED) -
DATA -
( -
NAME(QAE5.K.CAJX.REFMT.DATA) -
CYL(1,1) -
CISZ(4096) -
RECSZ(209,209) -
KEYS(206,03) -
) -
INDEX -
( -
NAME(QAE5.K.CAJX.REFMT.INDEX) -
)
//SYSDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//STEP002 EXEC PGM=IDCAMS
//FILEIN DD DSN=QAE5.SORT28.COMX,DISP=SHR
//FILEOUT DD DSN=QAE5.K.CAJX.REFMT,
// DISP=SHR
//SYSIN DD *
REPRO INFILE(FILEIN) -
OUTFILE(FILEOUT)
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
The step name STEP001 runs fine. But When it excecutes the step STEP002 then I am getting abend.The SYSOUT for the same is as follows.
0IDC3302I ACTION ERROR ON QAE5.K.CAJX.REFMT
0IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:
-000000 4040F3F1 4040D3E3 C34040C1 C14040F3 F0F34040 C940F240 40404040 404BF0 * 31 LTC AA 303 I 2 .00*
000020 40404040 4BF0F040 40404040 60604040 40404060 60404040 40406060 404040 * .00 -- -- -- *
000040 40606040 40404040 60604040 40404060 60404040 40406060 40404040 406060 * -- -- -- -- -- *
000060 40404040 60604040 40404060 60404040 40406060 40404040 40606040 404040 * -- -- -- -- *
000080 60604040 40404060 60404040 40406060 40404040 40606040 40404040 606040 *-- -- -- -- -- *
0000A0 40404060 60404040 40406060 40404040 40606040 40404040 60604040 404040 * -- -- -- -- -*
0000C0 60404040 40406060 40404040 40606040 40 *- -- -- *
IDC31467I MAXIMUM ERROR LIMIT REACHED.
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 236
0IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
The input file 's(QAE5.SORT28.COMX) records format which I need to copy to VSAM file are as follows.
P1 IRH 00 923 J .00 .00 -- -- -- --
31 ABC AA 303 I .00 .00 -- -- -- --
31 XYZ AA 303 J .00 .00 -- -- -- --
31 INM AA 303 I 2 .00 .00 -- -- -- -- -->When the control process from this record onwards causing abend.
31 IRT AA 303 J 2 .00 .00 -- -- -- --
31 LML AA 303 I 3 .00 .00 -- -- -- --
Naveen.
