IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Getting GG return code


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Tue Apr 10, 2018 12:31 pm
Reply with quote

Hi,

I am executing a IMS program which just retrieves the data from a segment but I am getting GG. I verified in the manuals and read the below information from this link. I did what has been said as programmer response, but could not resolve this. Need your help in resolving it.
www.ibm.com/support/knowledgecenter/en/SSEPH2_13.1.0/com.ibm.ims13.doc.msgs/msgs/gg.htm

JCL:


Code:

//JS010   EXEC TST1BTCH,MBR=ISMB305,PSB=PIPSCN1                 
XXTST1BTCH PROC MBR=TEMPNAME,SOUT='*',PSB=,BUF=,NODE1=IMSF1,   
XX             NODE2=IMSF1,SPIE=0,TEST=0,EXCPVR=0,RST=0,       
XX             PRLD=,SRCH=0,CKPTID=,MON=N,LOGA=,FMTO=,         
XX             IMSID=TST1,SWAP=,RGN=0K,DBRC=,IRLM=,IRLMNM=,     
XX             BKO=,IOBF=00,USERLIB=SYS1VR.ENDEVOR.DEV.LOADLIB 
XXG        EXEC PGM=DFSRRC00,REGION=&RGN,                       
XX             PARM=(DLI,&MBR,&PSB,&BUF,                       
XX             &SPIE&TEST&EXCPVR&RST,&PRLD,                     
XX             &SRCH,&CKPTID,&MON,&LOGA,&FMTO,                 
XX             &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,&BKO)           
IEFC653I SUBSTITUTION JCL - PGM=DFSRRC00,REGION=0K,PARM=(DLI,ISMB305,PIPSCN1,,0000,,0,,N,,,TST1,,,,,)
XXSTEPLIB  DD  DSN=&NODE1..RESLIB,DISP=SHR                     
IEFC653I SUBSTITUTION JCL - DSN=IMSF1.RESLIB,DISP=SHR           
XX         DD  DSN=SYS1VR.IBMTOOL.DBG.TEMPLOAD,DISP=SHR         
XX         DD  DSN=SYS1VR.ENDEVOR.DEV.LOADLIB,DISP=SHR         
XX         DD  DSN=SYS1VR.ENDEVOR.STAGING.LOADLIB,DISP=SHR     
XX         DD  DSN=SYS1VR.ENDEVOR.TMMK.PROD.LOADLIB,DISP=SHR   
XX         DD  DSN=SYS1VR.ENDEVOR.TMMNA.PROD.LOADLIB,DISP=SHR   
XX         DD  DSN=SYS1VR.ENDEVOR.TMMI.PROD.LOADLIB,DISP=SHR       
XX         DD  DSN=SYS1VR.ENDEVOR.TMMW.PROD.LOADLIB,DISP=SHR       
XX         DD  DSN=SYS1VR.ENDEVOR.COMMON.PROD.LOADLIB,DISP=SHR     
XX         DD  DSN=&USERLIB,DISP=SHR                               
IEFC653I SUBSTITUTION JCL - DSN=SYS1VR.ENDEVOR.DEV.LOADLIB,DISP=SHR
XX         DD  DSN=TISM.PGP.LOADLIB,DISP=SHR                       
XX         DD  DSN=SYS1.UTLIB,DISP=SHR                             
XX         DD  DSN=PCS.PGMLIB,DISP=SHR                             
XX*        DD  DSN=SYS1V.XCH1FDN.LOAD,DISP=SHR                     
XXDFSRESLB DD  DSN=&NODE1..RESLIB,DISP=SHR                         
IEFC653I SUBSTITUTION JCL - DSN=IMSF1.RESLIB,DISP=SHR             
XXIMS      DD  DSN=&NODE1..PSBLIB,DISP=SHR                         
IEFC653I SUBSTITUTION JCL - DSN=IMSF1.PSBLIB,DISP=SHR             
XX         DD  DSN=&NODE2..DBDLIB,DISP=SHR                         
IEFC653I SUBSTITUTION JCL - DSN=IMSF1.DBDLIB,DISP=SHR             
XXPROCLIB  DD  DSN=&NODE1..PROCLIB,DISP=SHR                       
XX*XGIMSREQ DD  DSN=SYS1V.XCH1FDN.REQUEST.FILE,DISP=SHR           
IEFC653I SUBSTITUTION JCL - DSN=IMSF1.PROCLIB,DISP=SHR             
XXIEFRDER  DD  DUMMY                                               
XXPLIDUMP  DD  SYSOUT=*                                             
XXSYSPRINT DD  SYSOUT=&SOUT                                         
IEFC653I SUBSTITUTION JCL - SYSOUT=*                               
XXSYSOUT   DD  SYSOUT=&SOUT                                         
IEFC653I SUBSTITUTION JCL - SYSOUT=*                               
XXSYSOUZ   DD  SYSOUT=&SOUT                                         
IEFC653I SUBSTITUTION JCL - SYSOUT=*                               
XXSYSUDUMP DD  SYSOUT=*                                             
XXIMSMON   DD  DUMMY                                               
XXDFSVSAMP DD  DISP=SHR,DSN=&NODE1..PROCLIB(DFSVSM&IOBF)           
XX*CLEANUP EXEC PGM=XGCLNREQ,COND=EVEN                             
XX*STEPLIB  DD  DSN=SYS1V.XCH1FDN.LOAD,DISP=SHR                     
XX*XGIMSREQ DD  DSN=SYS1V.XCH1FDN.REQUEST.FILE,DISP=SHR             
//*                                                                 
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IMSF1.PROCLIB(DFSVSM00)   
//PIPDCN0  DD  DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN0.PIPECONT 
//PIPDCN1  DD  DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN1.PIPEINDX 
//PIPDCN2  DD  DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN2.PIPESIXP 
//OUT01    DD  DSN=TPIP.T25.DB.DUMP,   
//             DISP=OLD               


PSB:
Code:

PCB    TYPE=DB,DBDNAME=PIPDCN0,PROCOPT=GOTP,KEYLEN=050   
SENSEG NAME=PIPECN00,PARENT=0                             
SENSEG NAME=PIPECN01,PARENT=PIPECN00                     
SENSEG NAME=PIPECN02,PARENT=PIPECN01                     
PSBGEN PSBNAME=PIPSCN1,LANG=PL/I,CMPAT=YES               
END                                                       
[/url]
Back to top
View user's profile Send private message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Tue Apr 10, 2018 12:40 pm
Reply with quote

This is the error I received,

Code:
DFS035I BATCH INITIALIZATION COMPLETE  TST1                 
          ISMB305 START                                     
          XXXXXXXXXX ISMB305 ABEND                         
          STCD = GG   SEGMENT = PIPECN00                       
Back to top
View user's profile Send private message
Gary Jacek

New User


Joined: 17 Dec 2007
Posts: 64
Location: Victoria, BC, Canada

PostPosted: Tue Apr 10, 2018 10:41 pm
Reply with quote

If your database datasets shown below are not used by any other job or task then the chance of a database pointer repairing itself to allow your GG status code to go away, is zero.

//PIPDCN0 DD DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN0.PIPECONT
//PIPDCN1 DD DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN1.PIPEINDX
//PIPDCN2 DD DISP=SHR,DSN=TPIP.T25.CNI.PIPDCN2.PIPESIXP

So you must ask, who created these datasets? Were they created while updates were in flight against them? That would certainly explain broken pointers.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Return codes-Normal & Abnormal te... JCL & VSAM 7
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top