abdulrafi
Active User
Joined: 14 Sep 2009 Posts: 184 Location: Coimbatore
|
|
|
|
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] |
|