Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Getting GG return code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 166
Location: Coimbatore

PostPosted: Tue Apr 10, 2018 12:31 pm    Post subject: Getting GG return code
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.
https://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: 166
Location: Coimbatore

PostPosted: Tue Apr 10, 2018 12:40 pm    Post subject:
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: 53
Location: Victoria, BC, Canada

PostPosted: Tue Apr 10, 2018 10:41 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS error U4038 while executing my PL... abdulrafi IMS DB/DC 2 Thu Feb 08, 2018 1:05 pm
No new posts Conditional setting of return-code af... sanvan COBOL Programming 9 Wed Jan 31, 2018 11:05 pm
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am
No new posts Finding the plan when code compiled u... Ahemad DB2 2 Fri Dec 01, 2017 6:38 pm
No new posts Strange Code amitc23 COBOL Programming 6 Tue Nov 28, 2017 11:25 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us