MVSFORUMS.com

[shuko]

I have a file with FB and LRECL=2562. I have a timestamp starting at position 1891. I would like to select only timestamp which matches the
current year from this file and write to another file.
At the moment I do it like this, with the year hard coded. Is it possible
to say for example CURRENT YEAR instead of hard coding?

[kolusu]

shuko,

Use Date1 parm to put the current date(YYYYMMDD) at the end of each record and now compare the contents at 1891 to the date at the end of the record.

Try this

[Frank Yaeger]

Here's a better way to do it using DFSORT's new System Symbol String Constants (S'string') feature. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) to use this new feature. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

[shuko]

Thank you Kolusu,Frank. Both the codes worked for me.