How to work out a IMS-DB2 program !!

mf_user · Active User Joined: 05 Jan 2006 Posts: 75

Hi,

We use IMS-DB2 in our shop. I would like to know...........

1). What is the compiling procedure for an IMS-DB2-COBOL program?
2). Why it is NOT required to specify the PLAN in the job to execute an IMS-DB2-COBOL program?
3). What are all the MUST parameters needs to be specified for PGM=DFSRRC00?
4). How to work with GSAM files in IMS/DB?

Please respond with details.

Thanks in advance.

Bitneuker · Posted: Tue Jan 31, 2006 4:51 pm Post subject:

Hi MF,

For DFSRRC00 Google the net and take some time to examine some of the abot 560 items found. As for GSAM please refer to the IMS manuals. For IMS-DB2 I will send you examples by PM later on.

Cheers,

George

mf_user · Active User Joined: 05 Jan 2006 Posts: 75

Thanks.

gowtham_1982 · Active User Joined: 02 Dec 2005 Posts: 116

Bitneuker · Posted: Wed Feb 01, 2006 4:36 pm Post subject:

Hi MF,

Instead of a PM I post an example of the jcl for batch IMS-DB/DB2.

//STEP01 EXEC PGM=DFSRRC00,REGION=0M,
// PARM='DLI,DSNMTV01,program,40,00'
//STEPLIB DD DSN=programlibrary,DISP=SHR
//IMS DD DSN=psblibrary,
// DISP=SHR
// DD DSN=dbdlibrary,
// DISP=SHR
//DFSVSAMP DD *
VSRBF=32768,100
VSRBF=20480,100
VSRBF=8192,120
VSRBF=4096,100
VSRBF=2048,100
VSRBF=1024,200
IOBF=(32K,5)
OPTIONS,INSERT=SEQ
//IEFRDER DD DUMMY
//IMSDBBPL DD SYSOUT=*,DCB=A
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SNPOUT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//DDITV02 DD *
DBE1,SYS1,DSNMIN10,,R,-,AKT,PLANxxx,program,YYY
//IEFRDER DD DUMMY
//DDOTV02 DD SYSOUT=*,RECFM=VB,LRECL=4092

Cheers,