MVSFORUMS.com

[heman]

Hi all,

This is my first posting on this forum.

I have a NDM job which will move a file from one region to another.

//SYSIN DD *
SIGNON
SUBMIT PROC=NDMRNJOB -
PNODE=Region1 -
SNODE=Region2 -
&PROCESS=TESTNDM -
NEWNAME=&PROCESS -
&INDSN=xxx.yyy.zzz -
&OUTDSN=aaa.bbb.ccc -
&OUTDISP=(NEW,CATLG,DELETE)
SIGNOFF

/*

Now the file xxx.yyy.zzz contains an information in its header record, say a sequence number. This sequence number will vary on daily basis. The sequence number is to be extracted from the INDSN file and is to be plugged in the name of the OUTDSN file name ie. aaa.bbb.ccc.seqno before we do the NDM.
We can extract the sequence number from the input file but how can we pass the same to the output filename before doing the NDM. This needs to be done in the same job by adding steps prior to the NDM.
It will be great if someone can provide the complete steps for this.

Thanks in advance,
Heman.

[superk]

I'm not sure I'm following what you are asking for. You say that you already can extract the sequence number from the input file. Can't the same process create the required control record:

[heman]

Hi,

Following is the NDM job which I'm required to modify:

//NDMCNT1 EXEC DMBATCH
//DMPUBLIB DD DISP=SHR,DSN=AMCD.EFGH.IJKL.NDM
//SYSIN DD *
SIGNON USERID=(XX) ESF=YES
SUBMIT PROC=NDMJOB -
&INDSN='XXXX.YYYY.ZZZZ' -
&OUTDSN='AAAA.BBBB.CCCC'
SIGNOFF
/*
//


AMCD.EFGH.IJKL.NDM(NDMJOB)

NDMJOB PROCESS -
HOLD=NO -
PNODE=REG1 -
SNODE=REG2 -
PRTY=15
COPYDSN1 COPY FROM (PNODE DSN=&INDSN DISP=SHR) -
TO (SNODE DSN=&OUTDSN DISP=(NEW,CATLG)) -
COMPRESS EXTENDED

Now, I need to plug in the sequence number (which is present in the INDSN file) with the name of the OUTDSN file.
Yup, I can create a control card which will have the sequence number plugged into the OUTDSN filename. This control card will be created in a separate program which is also going to create the INDSN file. The control card will look as follows:

Control card (OFILNAM)

AAAA.BBBB.CCCC.seqno -

say, the control is present in Library FFFF.GGGG.DDDD(OFILNAM)

How do I use this control card containing the OUTDSN file name in my NDM Job mentioned at the top to pass the OUTDSN file name?

[heman]

Hi Superk,

Thanks a lot boss. I tried with the way suggested by you and it worked. Thanks once again.

Cheers,
Heman.

[heman]

Hi Superk,

The problem is as to how to create the control card.

&OUTDSN=aaa.bbb.ccc.seqno -

The program which creates the input file can only create an additional flat file which will have one record containing the statement required in the control card.

How do I create the control card from this flat file?

Cheers,
Heman.

[kolusu]

Heman,

You can use SORT to create the dynamic control card which reads just the first record from your input file and creates the dynamic file name along with the seqno.

Assuming that your seqno in the input file starts at pos 1 for 5 bytes the following JCL will build the dynamic output file name appending the seqno at the end.

[superk]

I would think a simple SORT step would do what you need:

[heman]

Thanks to both of you. It works and the motive is achieved.
Thanks once again.

Cheers,
Heman.