MVSFORUMS.com

[mf_user]

Hi,

My input files looks like this - RECFM-FB, LRECL=80

[Frank Yaeger]

Here's a DFSORT job that will do what you asked for:

[mf_user]

Hi, Frank.

Thank you very much for the quick reply. This solution is working only on value '0' in 41st position. How to modify it for other than '0' value in 41st position?

Input:

[Frank Yaeger]

[mf_user]

Hi,

Thanks for the details. The info is really useful to me. I would like to know why the SYMNAMES with "CURYR,S'&YR4'" does not work with DFSORT v1.5? Why that restriction? It shows "$" sign right below the "S" character after job ends with MAXCC=16.

I also would like to know, after changing the value from "0006" to "2010006", how to convert it to "2010-01-06" using DFSORT v1.5?

Thanks for your patience.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[Frank Yaeger]

S constants have been available with z/OS DFSORT V1R5 since April, 2006. So your site must be very behind in installing PTFs. Ask your System Programmer to install z/OS DFSORT V1R5 PTF UK51706 (Nov, 2009). That will get you up to date on all of the DFSORT functional PTFs.

[mf_user]

Hi,

Below given are my input and expected output files.

Input:

[mf_user]

Hi, Frank.

Sorry. I forgot to mention the characteristics of input and output files.

Input File: LRECL: 80 AND RECFM: FB
Output File: LRECL: 80 AND RECFM: FB

We are using DFSORT v1.5. No upgrades to be done till 2011.

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[Frank Yaeger]

[mf_user]

Hi, Frank.

Here are the details you have asked for :-

[Frank Yaeger]

If I understand it correctly, you want to change the year and also convert a julian date (ccyyddd) to a gregorian date (ccyy-mm-dd).

You can certainly do that with the latest level of DFSORT (Nov, 2009), but your site is very behind in installing DFSORT functional PTFs, so I don't see a way to do it at your level.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[mf_user]

Frank, thanks.

Can you let me know the solution with DFSORT v1.8 or 1.9 so that I at least get the solution to see.

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[Frank Yaeger]

z/OS DFSORT V1R5 is used for z/OS 1.8 and 1.9. z/OS DFSORT V1R10 is used for z/OS 1.10 and 1.11. You don't need a new version of DFSORT for the new functions - you just need to install the appropriate Nov, 2009 DFSORT PTF on your current version of DFSORT.

At this point, I'm not sure exactly which requirement we're talking about. Is it the one where you have 0, 1, 2 in 41 and you want to insert the first 3 digits of the current year, and/or is it the one where you want to change the julian date to a gregorian date, or what? For the situation you want the job for, please show an example of the records in the input file and what you expect for output, and explain the "rules" for getting from input to output. Once I know what you want, I can show you the job.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[mf_user]

Hi, Frank.

[Frank Yaeger]

With the Nov, 2009 DFSORT PTF installed, you can use these control statements: