Dynamic NDM card for file transfer between two systems

Deepa.m · Active User Joined: 28 Apr 2005 Posts: 88

I need to create a dynamic NDM card for file transfer between two systems. I have input file with generic card

SIGNON ESF=YES CASE=YES
SUBMIT PROC=PROC1 -
NEWNAME=XXXXXX -
PNODE=SYM1 -
SNODE=UNIX2 -
&SNDNODE=PNODE -
&RECNODE=SNODE -
&DSN01=ABC.XXX.YYY.DMMDDYY -
&DISP01=(SHR,KEEP,KEEP) -
&DSN02='work/data/t1.txt' -
&OPCJOB=XXXXXXX -
&OPCNODE=PNODE
SIGNOFF

I have create a dynamic card everyday by replacing the
DSN01 = ABC.XXX.YYY.DMMDDYY with
ABC.XXX.YYY.D102407 (month/date/year) so that current file is transmitted every day.

Currently we are doing this in cobol program. I believe there should a much easier Solution using DFSORT using Date functions?

Deepa.m · Active User Joined: 28 Apr 2005 Posts: 88

To add with this

The location of MMDDYY in the record varies depending on the DSN name length and we need to do inspect every record if MMDDYY is there and replace it with current date.

but strictly speaking we should not replace MMDDYY other than in &DSN01 but I assume MMDDYY will not be found in any other line in the control card.

Devzee · Posted: Wed Oct 24, 2007 3:15 pm Post subject:

I believe in NDM, if you give dataset name with xx.dYYMMDD.ThhmmssT then then the literals YYMMDDD gets replaced with actual value and transmitted. We dont need to put the actual value, NDM does it.

Try and see if it works.

ofer71 · Posted: Wed Oct 24, 2007 3:39 pm Post subject:

I think that in your case REXX will be much easier to write, test and maintain.

O.

Deepa.m · Active User Joined: 28 Apr 2005 Posts: 88

We need to transmit the o/p of previous job which creates fataset with the DMMYYDD (D102207). so we cannot go in for xx.dYYMMDD.ThhmmssT

also Rexx /SAS option is also ruled out as we have prouctionizing issues.

Help me with some Solution using JCL.

Devzee · Posted: Wed Oct 24, 2007 4:59 pm Post subject:

krisprems · Posted: Wed Oct 24, 2007 6:33 pm Post subject:

Deepa.m
Here is a SORT JOB:

murmohk1 · Posted: Wed Oct 24, 2007 7:08 pm Post subject:

Deepa,

Does the file creation and transmission occur in the SAME JOB? If not what is the delay time? When does the creation job and transmission run (post with time)?

Frank Yaeger · Posted: Wed Oct 24, 2007 10:09 pm Post subject:

Deepa.m · Active User Joined: 28 Apr 2005 Posts: 88

Frank,

Can i modify the same sort card for the below requirement

&DSN01=ABC.EF.X.QRSTU.DMMDDYY -
&DSN01=A.B.DMMDDYY -

where I have 4 qualifiers before DMMDDYY and sometimes only 2 qualifiers before DMMDDYY depending on the naming conventions we use.

The above code works for the fixed 3 qualifiers only.

&DSN01=ABCDEF.X.QRSTU.DMMDDYY -
&DSN01=A.B.C.DMMDDYY -

Frank Yaeger · would be output today (12/03/07) as:

Deepa,

Here's a DFSORT job that will handle any number of qualifiers. The trick is to use ENDBEFR=C'.DMMDDYY' in PARSE. Also, I used DATENS=(MDY) in INREC BUILD to get the mmddyy date more easily (I don't know why I didn't do that for the earlier job).

Frank Yaeger · Posted: Tue Aug 19, 2008 4:13 am Post subject:

You can replace MMDDYY anywhere in your records quite easily now with DFSORT's new FINDREP function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) like this: