How to add date field to the dataset as a last column?

umasankarmf · New User Joined: 08 Sep 2008 Posts: 43 Location: india

Hi,

I have a requirement like, one dataset has the data with record length 156. Now I want to add current date in the last column for FTP purpose by using JCL.
Can any one please help me.

Thanks in advance

expat · Posted: Thu May 21, 2009 2:20 pm

Why do you need to add the date / time for FTP

umasankarmf · New User Joined: 08 Sep 2008 Posts: 43 Location: india

Hi expat,

Thanx for the reply. Everyday it will create the dataset. Now client wants that data as report. So he wants the run date in that dataset.

Can you please give me the code for that.

dbzTHEdinosauer · Posted: Thu May 21, 2009 2:46 pm

umasankarmf · New User Joined: 08 Sep 2008 Posts: 43 Location: india

Hi Dick,

Thanks for your reply. Yes you are correct I have to use the intermediate step. Can you tell me that logic.

umasankarmf · New User Joined: 08 Sep 2008 Posts: 43 Location: india

Hi,

I know how to get the current date. Can any body help me how add that date to the dataset in the last column.

I got the date by using the following jcl.
//PS123 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD DSN=B053PXL.DATE.TEST,DISP=SHR
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=(DATENS=(MDY))
/*

Frank Yaeger · Posted: Thu May 21, 2009 9:50 pm

If you want to add an mmddyy date in positions 151-156 of every record, you can use these DFSORT control statements:

umasankarmf · New User Joined: 08 Sep 2008 Posts: 43 Location: india

Hi Frank,

Thanks for your valuable suggestion. Its working fine. But I had done in other way. Any way your code is working. Thanks a lot.