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
 
Program that accesses both IMS segments as well as DB2 table

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
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    Post subject: Program that accesses both IMS segments as well as DB2 table
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    Post subject:
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    Post subject:
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    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 The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Calling IKJEFT01 program from Rexx upendrasri CLIST & REXX 8 Wed Nov 15, 2017 4:27 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Update table without cursor Ron Klop DB2 3 Wed Oct 11, 2017 1:06 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm

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