Can system date/YYYY be changed?

Suresh Shankarakrishnan · New User Joined: 11 Jul 2008 Posts: 42 Location: USA

Using ICEMAN, the following statement gives year in YYYY format.

//SYMNAMES DD *
CUR_YEAR,S'&YR4'

Can the year(YYYY) be returned as 2009 between July 1, 2008 and December 31, 2008 (as July 1 is beginning of fiscal year 2009) ?

Frank Yaeger · Posted: Mon Jul 14, 2008 9:38 pm

What year would you want between Jan, 2008 and June, 2008?

What year would you want between Jan, 2009 and June, 2009?

Do you really need to check the month and day (e.g. Dec 31) or would just checking the month do as well (e.g. Dec)?

Suresh Shankarakrishnan · New User Joined: 11 Jul 2008 Posts: 42 Location: USA

Frank,

1.What year would you want between Jan, 2008 and June, 2008?

Year 2008.

2. What year would you want between Jan, 2009 and June, 2009?

Year 2009

3. Between Jul, 2008 and Dec 2008, YYYY will be 2009.
4. Between Jul, 2009 and Dec 2009, YYYY will be 2010.

Do you really need to check the month and day (e.g. Dec 31) or would just checking the month do as well (e.g. Dec)?

Just checking the month (Dec) only will be enough.

thanks.

Frank Yaeger · Posted: Tue Jul 15, 2008 1:01 am

You can use a DFSORT job like this to create the symbol you asked for:

Suresh Shankarakrishnan · New User Joined: 11 Jul 2008 Posts: 42 Location: USA

Frank,

From your example above, in the following code - does RECORD refer to the input record?

If so, can the 'system year'(YYYY) be taken as input (instead of input record/file), and then the logic to add 1 be applied (i.e. add 1 if month falls between July and December) ?

//SORTIN DD *
RECORD
/*

Frank Yaeger · Posted: Tue Jul 15, 2008 1:32 am

No, RECORD in S1 is just a dummy record. We just need that one record (it can be anything) to create the DATE2 record of yyyymm so we can manipulate it.

The S2 step would have your actual input records.

I've modified the job to make that clearer.

Suresh Shankarakrishnan · New User Joined: 11 Jul 2008 Posts: 42 Location: USA

Maybe I am missing something, but I get errors, let me try some more...please let me know.

Frank Yaeger · Posted: Tue Jul 15, 2008 2:52 am

Sigh. The ICE005A message indicates you started INREC in column 1. Look at my example again. Every line starts with at least one blank. Shift all of your DFSORT control statements over at least one column:

Suresh Shankarakrishnan · New User Joined: 11 Jul 2008 Posts: 42 Location: USA

Thanks Frank, that works.