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

Program that accesses both IMS segments as well as DB2 table


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

New User


Joined: 16 Mar 2005
Posts: 1
Location: India

PostPosted: Wed Mar 16, 2005 11:39 pm
Reply with quote

Hi ,
I have a program that accesses both IMS segments as well as DB2 tables .
The JCL for the above program is this :

Code:
//CLL002Q JOB  (CLL002Q,QND),
//             'CLOSED LOOP',
//             CLASS=J,
//             REGION=6144K,
//             MSGLEVEL=(1,1),
//             MSGCLASS=X,
//             NOTIFY=SBOPCTL,
//             RESTART=CLL002YC.G
/*JOBPARM L=999,T=999,PROCLIB=PROC00
//JOBLIB   DD  DSNAME=PBDK.OBJLIB.COBOL,
//             DISP=SHR
//**********************************************************************
//*  UPDATED IN QND 10/31/03 BY J.DAVEY FOR M.GALVIN
//**********************************************************************
//*        THIS STEP WILL BUILD A SEQUENTIAL FILE OF LOCATIONS.       **
//**********************************************************************
//CLL002YC EXEC IMSBATCH,
//             MBR=CLL002YC,
//             PSB=CLL002YC,
//             SYSTEM=PBDK,
//             IMSID=IMSP
//LOCLOP1O DD  DSN=PBDKD.PRODLOC.OLOCLOP1,
//             DISP=SHR
//ZHORT1   DD  DSN=PBDKV.PRODGDF.EZHORT1,
//             DISP=SHR
//LOCFIL   DD  DSN=PBDKS.PRODCLL.PLANT.LOCATION,
//             DISP=SHR
//*            DISP=(NEW,CATLG,DELETE),
//*            UNIT=SYSPD,
//*            SPACE=(CYL,(2,2),RLSE),
//*            DCB=(LRECL=841,RECFM=FB,BLKSIZE=0)
//SYSUDUMP DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSDBOUT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//CTLRPT   DD  SYSOUT=*
/*
//



This program executes in production . But, I'mnt sure as how the DB2 plans are being referenced and where to put the DB2 package when it comes to test environemnt.How do i find that information ?
Back to top
View user's profile Send private message
Vijay Bhadauria

New User


Joined: 28 Mar 2005
Posts: 8

PostPosted: Mon Mar 28, 2005 3:59 pm
Reply with quote

Hi Pradeep,

If you are running you JCL under IMS (BMP mode) then the DB2 package name must be same as the program name. Some DB2 Plan name already been assigned to IMS region at the time of IMS region creation. Also DB2 region(s) will be defined under IMS region (in your case its IMSP) as DB2 always runs under IMS in an IMS ?DB2 setup.

So, no need to provide Plan/Package name at the time of running IMS batch job in 'BMP' mode.

And if you want to run the same program in IMS Test region the just you need amend you JCL to point to required IMS Test region (could be IMST ....) and also needs to point all the other referenced IMS/Load libraries to test. Also needs to bind your package with test DB2 region assigned to your IMS test region.

But if you are running your program in DLI mode then you need to supply Plan and Package name through your JCL.
Back to top
View user's profile Send private message
neerajg

New User


Joined: 18 Mar 2006
Posts: 1

PostPosted: Sat Mar 18, 2006 3:46 pm
Reply with quote

Hi All,
Can i run a IMS/DB program which calls a DB2 program through a DLI job? i am using FABHX034 to execute in dli mode but it is abending with U0073 abend ( An insufficient number of valid log data sets exist at online initialization or restart time. IMS online requires at least 3 online log data sets (OLDS) and 1 write-ahead log data set (WADS) )
I mean Can We run this db2 program in dli mode or only BMP can be used to run a IMS-DB2 program??
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 Using API Gateway from CICS program CICS 0
No new posts Load new table with Old unload - DB2 DB2 6
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Multiple table unload using INZUTILB DB2 2
No new posts Check data with Exception Table DB2 0
Search our Forums:

Back to Top