MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Need your help to test IMS Update job without invoking dynam

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
asish2006
Banned


Joined: 29 Jun 2010
Posts: 6
Topics: 2

PostPosted: Thu Jul 01, 2010 4:09 pm    Post subject: Need your help to test IMS Update job without invoking dynam Reply with quote

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.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Jul 01, 2010 4:17 pm    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
asish2006
Banned


Joined: 29 Jun 2010
Posts: 6
Topics: 2

PostPosted: Thu Jul 01, 2010 4:24 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Jul 01, 2010 4:26 pm    Post subject: Reply with quote

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.


Question 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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
asish2006
Banned


Joined: 29 Jun 2010
Posts: 6
Topics: 2

PostPosted: Thu Jul 01, 2010 4:40 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
asish2006
Banned


Joined: 29 Jun 2010
Posts: 6
Topics: 2

PostPosted: Thu Jul 01, 2010 4:40 pm    Post subject: Reply with quote

http://www.Mcmillan_The_Moron.com/viewtopic.php?t=xxxxx
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Jul 01, 2010 9:37 pm    Post subject: Reply with quote

asish2006,

You are banned for not following the rules

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Franko
Beginner


Joined: 04 Feb 2010
Posts: 8
Topics: 0
Location: Kansas City

PostPosted: Fri Jul 09, 2010 1:22 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group