MVSFORUMS.com

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

Hi,

I have an Input File which has Some records with Blanks(Spaces) in
the Date Field(CCCCMMYY). The Requirements is that I have to
replace the date Field having spaces with the Current Date.The
records having valid date values should be left untouched and
should remain intact in the output File.

Thanks & rgds
Dinesh

Ex:
Input File

kolusu · Posted: Tue Jan 18, 2005 2:48 pm Post subject:

Dinesh,

Try this JCL. I assumed that your input file has the following attributes .Recfm=fb , lrecl=80

Frank Yaeger · Posted: Tue Jan 18, 2005 4:22 pm Post subject:

With z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004), you can do this more easily and efficiently with DFSORT's new IFTHEN and OVERLAY parameters as follows:

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

kolusu,

Thanks a Lot, but One more problem which forgot to mention was the
there are trailer records which will have the sequence no in the date field
The trailer record are denoted by 9 in the first byte and the detailed record are denoted by 5 in the first byte.I want to replace the
date field having spaces with the Current Date only for the detailed records and remaining records should be intact in o/p file.(The sequence No should appear as it is for the Trailer Record)

Thanks & Rgds
Dinesh

kolusu · Posted: Tue Jan 18, 2005 6:53 pm Post subject:

Dinesh,

All you need is to change the include cond in the second jcl. try this job

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

Kolusu,

Is it possible to implement the logic by a single SORT CARD.(Sort pgm)as mentioned.

Rgds
Dinesh

Frank Yaeger · Posted: Tue Jan 18, 2005 7:36 pm Post subject:

Dinesh,

I don't know if you didn't see my post or just ignored it, but ...

Looking at your new input data and output data, it appears that you changed the requirements a little bit more than you mentioned. The date now starts in position 5 instead of position 6, and you show 20051801 as the current date which would be in the format yyyyddmm instead of yyyymmdd. Perhaps this was a mistake on your part since it doesn't seem to match the 20050113 date in your input file. And by "single SORT CARD.(Sort pgm)", I assume you mean a single pass over the data.

At any rate, whichever type of date you want, you can do this in a single copy pass with DFSORT as follows:

kolusu · Posted: Wed Jan 19, 2005 9:25 am Post subject:

Dinesh,

Take a look at the solution provided by frank. If you don't have DFSORT or you don't have the latest ptf installed then try this jcl

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

Thanks Kolusu & Frank for the Solution. One more query what should be approach if the Input file is in VB Format.The mentioned Jcl worked fine
for FB format File.When I tried for VB format File the Job abended.The Sysout stated like this

WER244A INREC - SHORT RECORD

kolusu · Posted: Wed Jan 19, 2005 3:31 pm Post subject:

Dinesh,

Please follow the rules. Post detailed information on what you're trying to accomplish. Do not make people guess what you mean. This will give you a much better chance of getting a good answer to your question.

We will post a detailed solution when you provide us the information

1. What is the LRECL,RECFM of the input/output datasets
2. What is the position of the date field in the file ( consider RDW)
3. Post all the conditions which need to be considered for updating the date.
4. Post a sample input and desired output

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Frank Yaeger · Posted: Wed Jan 19, 2005 4:43 pm Post subject:

The WER message indicates you're using Syncsort, so you won't be able to use the IFTHEN/OVERLAY method I posted since IFTHEN/OVERLAY is only available with DFSORT. Also, I don't answer questions on Syncsort.
_________________
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

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

HI Kolusu,
Here is my Requirements

I have an Input VB Format File which has detailed records and Trailer Records.The trailer record are denoted by 9 in the first byte and the detailed recordare denoted by 5 in the first byte.
There are Some detailed records with Blanks(Spaces)in the Date Field(YYYYMMDD).
The trailer records will have Some sequence no in the date field
The Requirements is that I have to replace the Detailed records with the date Field having spaces with the Current Date.
The Trailer records ,the Detailed records having valid date values should be left untouched and should remain intact in the output File.

The Input File Length=56, Record Format=VB
Date Field Positon starts from 10th Byte

Thanks & rgds
Dinesh

Ex:
Input File

kolusu · Posted: Thu Jan 20, 2005 2:05 pm Post subject:

Dinesh,

Try this JCL

Dinesh.G · Beginner Joined: 18 Jan 2005 Posts: 9 Topics: 2

Thanks Kolusu, Thanks a lot....
The Sort Card worked Fine.

Rgds
Dinesh

Maheshwari · Beginner Joined: 19 Oct 2004 Posts: 21 Topics: 3

Kolusu,

Can you please let me know about the parameter VLTESTI passed to SORT as I am not very much aware of this. I tried to find it in Google also but seems to have not much info available for this.

Thanks.
_________________
Amit