MVSFORUMS.com :: View topic - Need your help to test IMS Update job without invoking dynam

Need your help to test IMS Update job without invoking dynam

through

#1: Need your help to test IMS Update job without invoking dynam Author: asish2006,

Posted: Thu Jul 01, 2010 4:09 pm
—
Hi,
I need to execute few jobs which update the databases. Here I want to do it without invoking dynamic allocation. For that I copied the database in to my personal dataset & tried to point it from my JCL after introducing DD statement for every DBD that the associated PSB has. But the job updated the actual Database instead of my copied one. I used DISP=(MOD,KEEP,KEEP) parameter for the copied dataset.

I believe I may need to pass special parm ((DFSRRC00 Parameters) to achieve it. But I am not sure what changes I need to do in my JCL. Could you please help me to do this?

Following are the PSB & Modified JCL:

Code:

PSB:
PCB TYPE=DB,DBDNAME=HDBPRHDB,KEYLEN=21,PROCOPT=AP
SENSEG NAME=HDBPRHC,PARENT=0
SENSEG NAME=HDBPRHS,PARENT=HDBPRHC
SENSEG NAME=HDBPPRI,PARENT=HDBPRHC
SENSEG NAME=HDBPOVR,PARENT=HDBPPRI
SENSEG NAME=HDBPBLK,PARENT=HDBPRHC
SENSEG NAME=HDBPINC,PARENT=HDBPRHC
PCB TYPE=DB,DBDNAME=HDBPRHDB,KEYLEN=21,PROCOPT=AP
SENSEG NAME=HDBPRHC,PARENT=0
SENSEG NAME=HDBPRHS,PARENT=HDBPRHC
SENSEG NAME=HDBPPRI,PARENT=HDBPRHC
SENSEG NAME=HDBPOVR,PARENT=HDBPPRI
SENSEG NAME=HDBPBLK,PARENT=HDBPRHC
SENSEG NAME=HDBPINC,PARENT=HDBPRHC
PCB TYPE=GSAM,DBDNAME=GSAMFIN1,PROCOPT=GS
PCB TYPE=GSAM,DBDNAME=GSAMANT1,PROCOPT=LS
PSBGEN LANG=COBOL,CMPAT=YES,PSBNAME=HDBB740
END

Modified JCL:

Code:

//AC11749T JOB (00303),HDBB740,MSGCLASS=Z,CLASS=E,MSGLEVEL=(1,1),
// REGION=6M,NOTIFY=&SYSUID
// JCLLIB ORDER=(S00P.CHGMAND.HDBP.#002621.PRC)
//********************************************************************
//JOBLIB DD DSN=V00P.BT.PGMLIB,DISP=SHR
// DD DSN=V00P.OL.PGMLIB,DISP=SHR
// DD DSN=S00P.BT.PGMLIB,DISP=SHR
// DD DSN=S00P.OL.PGMLIB,DISP=SHR
// DD DSN=S00P.EMERG.BT.PGMLIB,DISP=SHR
// DD DSN=TIMSVS.RESLIB,DISP=SHR
//********************************************************************
//HDB740BR EXEC HDB740BR,
// IMS=IMW1, * IMS REGION
// DBD=IMSP, * DBDLIB QUALIFIER
// PSB='IMSP.OL', * PSBLIB QUALIFIER
// VSAMP=TIMSVS, * DFSVSAMP QUALIFIER
// RES=TIMSVS, * RESLIB QUALIFIER
// ENV=HDBT, * DATASET QUALIFIER
// MTBL='SDBP.LIB', * TABLE BASE QUALIFIER
// GDG='0', * GDG NUMBER
// DA=TESTDA, * UNIT ALLOCATION
// CHK='',DISP=(NEW,CATLG,CATLG) * CHECKPOINT RESTART
//STEP01.GSAMFIN1 DD DSN=HDBT.NONX.HDB740BR.DATAFILE.G0001V00
//STEP01.HDBPRHDB DD DSN=AC11749.HDBPRHDB,DISP=(MOD,KEEP,KEEP)<<==
Unload of Database

My changes are not working. The job is not updating my copied one. Please help.

#2: Author: kolusu, Location: San Jose

Posted: Thu Jul 01, 2010 4:17 pm
—
asish2006,

1. Did you gen your PSB
2. If the answer is YES for Q 1 , which library has your PSBgen ?
3. Is the updated PSBGEN library a part of S00P.CHGMAND.HDBP.#002621.PRC ?
4. If you are updating the database why do you need unload of the database?

Kolusu

#3: Author: asish2006,

Posted: Thu Jul 01, 2010 4:24 pm
—
Hi Kolusu,
I did not generate any PSB. Already it is in Production. Just I want that my job should update the dataset (in which I unloaded the database) instead of Database. So that other group won't be impacted due my testing.

#4: Author: kolusu, Location: San Jose

Posted: Thu Jul 01, 2010 4:26 pm
—

asish2006 wrote:

Hi Kolusu,
I did not generate any PSB. Already it is in Production. Just I want that my job should update the dataset (in which I unloaded the database) instead of Database. So that other group won't be impacted due my testing.

And you expected your job to work? You NEED to gen your PSB because the program has no clue about your own copied test database.

Kolusu

#5: Author: asish2006,

Posted: Thu Jul 01, 2010 4:40 pm
—
But for that I believe I do not need to gen my own psb. I introduced DD statement for the DBD my PSB has. Is there any other chages are required? Please view the following link.

#6: Author: asish2006,

Posted: Thu Jul 01, 2010 4:40 pm
—
http://www.Mcmillan_The_Moron.com/viewtopic.php?t=xxxxx

#7: Author: kolusu, Location: San Jose

Posted: Thu Jul 01, 2010 9:37 pm
—
asish2006,

You are banned for not following the rules

Kolusu

#8: Author: Franko, Location: Kansas City

Posted: Fri Jul 09, 2010 1:22 pm
—
I'm sorry Kolusu but you don't need a new PSB to utilize a different dataset name with the DBD/DD name. The IMS EXITLIB contains the dynamic allocation macros which resolve DDname to dataset name. Using JCL allocated data base datasets (versus dynamically allocated) has always been the common way of referencing "personal" IMS data base datasets. For security reasons, most companies have JES exits in place (or other means) to prevent DD overrides. This is because too many people figured out that you could reference TEST IMS libraries (no security), while referencing PROD data base dataset names. Almost everyone uses the same DDNAMES for TEST/PROD environments. The difference being is the DYNAMIC (DFSMDA) modules which are specific to every environment.

MVSFORUMS.com -> IMS

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1