Abend causing while copying PS file VSAM
Posted: Sun May 10, 2009 9:23 pm
Hello,
I am facing some problem with copying of the PS file to VSAM file.
My JCL definaition is as follows.
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.
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.