MVSFORUMS.com

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

Hi,

My requirement is to use the current system date in the SYSIN card instead of hardcoding the date. Example

//SYSIN DD *
$$DD01 UPDATE IF=(28,EQ,C'20080506'),R=(28,C'20080513')
/*

So instead of mentioning the date I need to have current date and current date-6 in the condition mentioned above. Can someone help me to achieve this?

Nic Clouston · Posted: Tue May 13, 2008 3:27 am Post subject:

run a little rexx program to generate the cards in the step before. Which utility are you talking about, anyway?
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

I am using fileaid

Nic Clouston · Posted: Tue May 13, 2008 4:24 am Post subject:

I do not have access to a FileAid manual/online help so I cannot tell if it has a current date symbol or not. If it does not then you will have to generate your SYSIN cards in a prior step as I said earlier.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Nic Clouston · Posted: Tue May 13, 2008 7:23 am Post subject:

Right - I found I have a FileAid manual - no mention of symbols representing the date so you will have to write something to prepare the SYSIN records for you. There are examples on the forum of SORT doing this for you and probably rexx examples as well and cOBOL and Easytrieve examples.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kolusu · Posted: Tue May 13, 2008 10:03 am Post subject:

sankar narayanan,

The following DFSORT JCL will give you the desired results. It compares the date at pos 28 to current date(ccyymmdd) -6 days and if found will replace it with current date(ccyymmdd)