IBM Mainframe Forum

Posted: **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.

Posted: **Thu Apr 17, 2008 7:13 pm**

Please post your JCL and all the sysouts.

Posted: **Thu Apr 17, 2008 8:21 pm**

Please find below the JCL :

Code: 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:

Code: 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:

Code: 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:

Code: 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.

Posted: **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 ********************************

Posted: **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?

Code: Select all

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

What is in this member?

Posted: **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.

Code: 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