IBM Mainframe Forum

by **kapildevchowdhry** » Thu Apr 17, 2008 3:37 pm

Hi Everyone,
Iam trying to load VSAM files from GDG Versions. I was able to load back the data into two VSAM files. But wasnt able to load one VSAM file. Iam getting an Abend SOC4. In the sysprint, Iam getting the below information.

********************************* TOP OF DATA **************
DFS391I D A T A B A S E D A T A S E T I M A G E

S Y S I N C O N T R O L C A R D
D2 IDHDPCUR DPCUR IC1DPCUR IC2DPCUR COUNTRY/CURRENCY DB
E N D O F S Y S I N C O N T R O L C A R D
DFS391I **COPY DATA BASE IDHDPCUR DDNAME DPCUR
******************************** BOTTOM OF DATA ************

More details regarding the abend are as follows:

SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=15.50.27 SEQ=14104 CPU=0000 ASID=0109
PSW AT TIME OF ERROR 078D2000 800BF602 ILC 2 INTC 11
ACTIVE LOAD MODULE ADDRESS=000BE5D0 OFFSET=00001032
NAME=DFSUDMP0
DATA AT PSW 000BF5FC - C0324850 C2360E64 95F2CD02
AR/GR 0: 00000000/00000000_00000000 1: 000C02C0/00000000_174CE980
2: 00000000/00000000_00015174 3: 00000000/00000000_000C02C0
4: 00000000/00000000_000DC000 5: 00000000/00000000_00000EBE

Can anyone help me out why Iam getting Abend SOC4. Please let me know if I have to give any more information.
Thanks In Advance.

by **CICS Guy** » Thu Apr 17, 2008 7:13 pm

Please post your JCL and all the sysouts.

by **kapildevchowdhry** » Thu Apr 17, 2008 8:21 pm

Please find below the JCL :

Select all

//INCCSS1A JOB (0987,520009,CCSS),'KAPIL',
// MSGCLASS=H,CLASS=4,REGION=1024K,
// MSGLEVEL=(1,1),TIME=(,29),NOTIFY=INCCSS1
//* THIS IS A JOB MEMBER TO MAKE AN IMAGE COPY OF
//* THE COUNTRY CURRENCY DATA BASE
//USERPROC JCLLIB ORDER=(IDHR42L.INCCSS1.PROCLIB)
//JOBLIB DD DSN=IDHR42L.REL.LOAD,DISP=SHR
// DD DSN=IDHR42L.SYS.LOAD,DISP=SHR
// DD DSN=IDHR42L.DEV.LOAD,DISP=SHR
// DD DSN=IDHR42L.INCCSS1.LOAD,DISP=SHR
//IDHPC70 EXEC IDHPC70, ***
// RES='IMS.NLIMS6.SDFSRESL',
//* CCSS='IDHR42L.INCCSS1',
// SOUT=*
//* SUF=,
//* GDG='IDHR42L.INCCSS1.MDLICOPY'
//ST1.IMS DD DSN=IDHR42L.REL.DBDLIB,DISP=SHR
// DD DSN=IDHR42L.DEV.DBDLIB,DISP=SHR
// DD DSN=IDHR42L.SYS.DBDLIB,DISP=SHR
// DD DSN=IDHR42L.INCCSS1.DBDLIB,DISP=SHR
// DD DSN=IDHR42L.REL.PSBLIB,DISP=SHR
// DD DSN=IDHR42L.DEV.PSBLIB,DISP=SHR
// DD DSN=IDHR42L.SYS.PSBLIB,DISP=SHR
// DD DSN=IDHR42L.INCCSS1.PSBLIB,DISP=SHR

Please find below the Proclib which is being called by the above JCL:

Select all

//IDHPC70 PROC SOUT=*, **OUTPUT CLASS SYSTEM PRINTS**
// TEMPSP=DASD, **OUTPUT DEVICE FOR ICOPY **
// RES='IMS.NLIMS6.SDFSRESL', ** IMS RESLIB **
// CCSS='IDHR42L.INCCSS1', **VERSION OF CCSS LIBS **
// GDG='IDHR42L.INCCSS1.MDLICOPY', **DSCB MODEL FOR GDGS**
// REG=2048K, ** REGION SIZE **
// SUF=4L ** DATABASE SUFFIX **
//************* IMAGE COPY PROCEDURE ********
//************* COUNTRY CURRENCY DATABASE ********
//****NOTE : ********
//**** ALL OUTPUT IMAGE COPIES ARE CREATED TWICE ********
//**** (IC1 AND IC2) USING GDG CONCEPT. ********
//**** THE COUNTRIES SHOULD DEFINE THE GDG ENTRIES ********
//**** IN THIS WAY(IF REQUIRED, TOGETHER WITH ********
//**** A RETPD DEFINITION, WHICH IS SUFFICIENT) ********
//**** THAT ALL DATABASES ARE RECREATABLE ********
//**** LEAST WITHIN A TIME FRAME OF ONE WEEK. ********
//* IDHD3CUR ADDED ********
//ST1 EXEC PGM=DFSRRC00,PARM='ULU,DFSUDMP0,,,,,,,,,,,,N',
// REGION=&REG
//STEPLIB DD DISP=SHR,DSN=IMS.NLIMS6.SDFSRESL
//IMS DD DSN=IDHR42L.REL.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=&SOUT
//DFSVSAMP DD DSN=&CCSS..UTIL(IDHPCVSM),DISP=SHR
//DFSRESLB DD DSN=&RES,DISP=SHR
//SYSIN DD DSN=&CCSS..UTIL(IDHPC70A),DISP=SHR
//DPCUR DD DSN=&CCSS..DPCUR&SUF,DISP=SHR
//D2CUR DD DSN=&CCSS..D2CUR&SUF,DISP=SHR
//D3CUR DD DSN=&CCSS..D3CUR&SUF,DISP=SHR
//IC1DPCUR DD DSN=&CCSS..IC1DPCUR(+1),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=&TEMPSP,
// DCB=&GDG,
// DISP=(NEW,CATLG,DELETE)
//IC1D2CUR DD DSN=&CCSS..IC1D2CUR(+1),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=&TEMPSP,
// DCB=&GDG,
// DISP=(NEW,CATLG,DELETE)
//IC1D3CUR DD DSN=&CCSS..IC1D3CUR(+1),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=&TEMPSP,
// DCB=&GDG,
// DISP=(NEW,CATLG,DELETE)
//IC2DPCUR DD DSN=&CCSS..IC2DPCUR(+1),
//* SPACE=(TRK,(5,5),RLSE),
// SPACE=(10000,(10000,500),RLSE),
// UNIT=&TEMPSP,
// DCB=(BLKSIZE=39684,LRECL=9921,RECFM=VB,DSORG=PS),
//* DCB=(&GDG),
// DISP=(NEW,CATLG,DELETE)
//IC2D2CUR DD DSN=&CCSS..IC2D2CUR(+1),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=&TEMPSP,
// DCB=&GDG,
// DISP=(NEW,CATLG,DELETE)
//IC2D3CUR DD DSN=&CCSS..IC2D3CUR(+1),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=&TEMPSP,
// DCB=&GDG,
// DISP=(NEW,CATLG,DELETE)

Please find below the message which I have in JESMESLG:

Select all

IRR010I USERID INCCSS1 IS ASSIGNED TO THIS JOB.
ICH70001I INCCSS1 LAST ACCESS AT 15:33:38 ON WEDNESDAY, APRIL 16, 2008
$HASP373 INCCSS1A STARTED - INIT I40 - CLASS 4 - SYS EGGS
IEF403I INCCSS1A - STARTED - TIME=15.50.26
+DFS671I INCCSS1A.ST1.IDHPC70 - FOR THIS EXECUTION, DBRC IS SET TO NO
+DFS035I BATCH INITIALIZATION COMPLETE IMS
+DFS629I IMS BATCH REGION ABEND- SYS 00C4 IMS
+DFS629I PSW AT ERROR = 078D2000 800BF602 IMS
+DFS036I BATCH BACKOUT NOT REQUIRED FOR INCCSS1A IMS
IEA995I SYMPTOM DUMP OUTPUT 059
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=15.50.27 SEQ=14104 CPU=0000 ASID=0109
PSW AT TIME OF ERROR 078D2000 800BF602 ILC 2 INTC 11
ACTIVE LOAD MODULE ADDRESS=000BE5D0 OFFSET=00001032
NAME=DFSUDMP0
DATA AT PSW 000BF5FC - C0324850 C2360E64 95F2CD02
AR/GR 0: 00000000/00000000_00000000 1: 000C02C0/00000000_174CE980
2: 00000000/00000000_00015174 3: 00000000/00000000_000C02C0
4: 00000000/00000000_000DC000 5: 00000000/00000000_00000EBE
6: 00000000/00000000_174D018F 7: 00000000/00000000_00000EC1
8: 00000000/00000000_000BFC50 9: 00000000/00000000_000C05D0
A: 00000000/00000000_00006A08 B: 00000000/00000000_800BE5D0
C: 00000000/00000000_000BF5D0 D: 00000000/00000000_000BF6A0

Please find below the message which I have in JESYSMSG:

Select all

IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=15.50.27 SEQ=14104 CPU=0000 ASID=0109
PSW AT TIME OF ERROR 078D2000 800BF602 ILC 2 INTC 11
ACTIVE LOAD MODULE ADDRESS=000BE5D0 OFFSET=00001032
NAME=DFSUDMP0
DATA AT PSW 000BF5FC - C0324850 C2360E64 95F2CD02
AR/GR 0: 00000000/00000000_00000000 1: 000C02C0/00000000_174CE980
2: 00000000/00000000_00015174 3: 00000000/00000000_000C02C0
4: 00000000/00000000_000DC000 5: 00000000/00000000_00000EBE
6: 00000000/00000000_174D018F 7: 00000000/00000000_00000EC1
8: 00000000/00000000_000BFC50 9: 00000000/00000000_000C05D0
A: 00000000/00000000_00006A08 B: 00000000/00000000_800BE5D0
C: 00000000/00000000_000BF5D0 D: 00000000/00000000_000BF6A0
E: 00000000/00000000_800BF5BC F: 00000000/FFFFFFFF_00071EF8
END OF SYMPTOM DUMP
DFS627I IMS RTM CLEANUP ( EOT ) COMPLETE FOR JS INCCSS1A.IDHPC70 .ST1 ,RC=00
IEF472I INCCSS1A ST1 IDHPC70 - COMPLETION CODE - SYSTEM=0C4 USER=0000 REASON=000
IGD104I IMS.NLIMS6.SDFSRESL RETAINED, DDNAME=STEPLIB

Please Let me know if you need any other information.

Thanks In Advance.

by **kapildevchowdhry** » Thu Apr 17, 2008 8:22 pm

Forgot to post the SYSPRINT message which is below:

********************************* TOP OF DATA **********************************
DFS391I D A T A B A S E D A T A S E T I M A G E C O P Y U T I L I

S Y S I N C O N T R O L C A R D
D2 IDHDPCUR DPCUR IC1DPCUR IC2DPCUR COUNTRY/CURRENCY DB 00010000
E N D O F S Y S I N C O N T R O L C A R D
DFS391I **COPY DATA BASE IDHDPCUR DDNAME DPCUR
******************************** BOTTOM OF DATA ********************************

by **dick scherrer** » Thu Apr 17, 2008 11:32 pm

Hello,

Iam trying to load VSAM files from GDG Versions.

Your initial post says that you are trying to load vsam from "gdg versions".

//IC1DPCUR DD DSN=&CCSS..IC1DPCUR(+1),

Your jcl shows new gdg genereations being created?

Select all

//SYSIN DD DSN=&CCSS..UTIL(IDHPC70A),DISP=SHR

What is in this member?

by **kapildevchowdhry** » Mon Apr 21, 2008 8:30 am

Hi Dick,
Sorry for late reply as I was facing some problem after logging in.

Iam trying to load VSAM files from GDG Versions.

Sorry it was a mistake. Actually the job loads the data from VSAM files into the GDG Versions.

//IC1DPCUR DD DSN=&CCSS..IC1DPCUR(+1),

Yes, new GDG versions are created and after creating them, the data is loaded into the respective GDG versions. This all happens when we run the job.

Select all

//SYSIN DD DSN=&CCSS..UTIL(IDHPC70A),DISP=SHR

The Util member IDHPC70A Consists of:

D2 IDHDPCUR DPCUR IC1DPCUR IC2DPCUR COUNTRY/CURRENCY DB
D2 IDHD2CUR D2CUR IC1D2CUR IC2D2CUR SEC INDEX COUNTRY DB
D2 IDHD3CUR D3CUR IC1D3CUR IC2D3CUR SEC INDEX COUNTRY SEGS

Please let me know if you need any other information.

Thanks In Advance.

IBM Mainframe Forum

ABEND S0C4

ABEND S0C4

Re: ABEND S0C4

Re: ABEND S0C4

Re: ABEND S0C4

Re: ABEND S0C4

Re: ABEND S0C4