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 

NDM JCL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
kishore_gk
Beginner


Joined: 23 Jul 2003
Posts: 12
Topics: 8
PostPosted: Wed Nov 05, 2003 8:18 am    Post subject: NDM JCL Reply with quote
Hi,

I have two regions (Region1 and Region2). I want to override the member in Region1 with the member in Region2.

pls provide me the NDM jcl for the same.

i'm trying with the following code..

//SYSIN DD *
SIGNON
SUBMIT PROC=NDMRNJOB -
PNODE=NDM9S -
SNODE=NDM1S -
&PROCESS=LRDSLFSX -
NEWNAME=&PROCESS -
&INDSN=ABC.TEST -
&OUTDSN=ABC.TEST -
&OUTDISP=SHR
SIGNOFF

/*


but this is not giving the correct solution. This code is not overriding the member in the other region.

Thanks in Advance
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Wed Nov 05, 2003 9:26 am    Post subject: Reply with quote
Kishore_gk

I really did not understand as to what your job is doing.can you elaborate your request a little more? What exactly do you mean override a member??

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


Joined: 23 Jul 2003
Posts: 12
Topics: 8
PostPosted: Wed Nov 05, 2003 10:57 am    Post subject: Reply with quote
Hi Kolusu,

for example :

In Region1 i have one Member and in Region2 i have the same member with the same name.

Now i've changed the member in Region1. Now i want to NDM this member to the Region2 with the changes made in the Region1 member.

Thanks
_________________
kishore
Back to top
View user's profile Send private message
Mike
Beginner


Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia
PostPosted: Tue Nov 18, 2003 7:13 pm    Post subject: Reply with quote
As your'e invoking a NDM proc called NDMRNJOB, you would have to refer to that proc. However here is some JCL (a little over complicated) that will copy an entire PDS (you can adpat this to include the member names). Obviously you will have to make quite a few other amendments so that it conforms to your site conventions.

Code:

//DMI021ND JOB (U,NM),'MIT NDM JOB',CLASS=2,MSGCLASS=Q,TIME=180       
/*XEQ PPRD                                                           
//*-------------------------------------------------------------------
//CRTPDS  EXEC PGM=IEFBR14                                           
//CRT01    DD DSN=&&PDS,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1,1)), 
//            DCB=TS99G.TSC.NDMPROCS                                 
//*-------------------------------------------------------------------
//CPYPDS  EXEC PGM=IEBGENER                                           
//SYSUT1   DD DATA,DLM='{{'                                           
MITICT   PROCESS  PNODE=&PNODE SNODE=&SNODE                           
 COPY FROM(PNODE DSN=DMI021.USER.JCL) -                               
      TO (SNODE DSN=DMI021.FROMPPRD.JCL -                             
      DISP=(,CATLG))                                                 
{{                                                                   
//SYSUT2   DD DSN=&&PDS(MITICT),DISP=(SHR,PASS)                       
//SYSPRINT DD SYSOUT=*                                               
//SYSIN    DD DUMMY                                                   
//*-------------------------------------------------------------------
//STEP001 EXEC PGM=DMBATCH,REGION=0M                                 
//DMNETMAP DD  DSN=SYSS.NDM.NETMAP,DISP=SHR                             
//DMPUBLIB DD DSN=&&PDS,DISP=(SHR,DELETE)                               
//DMMSGFIL DD  DSN=SYSS.NDM.MSG,DISP=SHR                               
//DMPRINT  DD  SYSOUT=*                                                 
//SYSIN    DD  *                                                       
    SIGNON                                                             
    SUBMIT PROC=MITICT &PNODE=PPRD &SNODE=PDEV                         
    SIGNOFF                                                             
/*                                                                     


Note that the dataset is copied from PPRD to PDEV, the job can be submitted from either, but due to the XEQ statement will run on the PPRD system.

The first step creates a temporary PDS based upon an existing dataset, you might be better of hard coding the DCB info (FB, LRECL=80 should be ok).

The next step simply creates a member named MITICT in the temporary PDS, populating it with an NDM proc named MITICT (i.e. the same as the member name).

The third step does the actual NDM transfer, signing on to NDM, invoking the MITICT proc (passing parameters to it) and then signing off from NDM.

This isn't necessarily the best solution, it's simply the first potential solution that I found. It should adequately serve as the basis of a solution though.
_________________
Regards,
Mike.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) 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