MVSFORUMS.com

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Hi,

Please help me getting the solution for the below problem.

File format of input file.

Frank Yaeger · Posted: Thu Jun 16, 2005 10:49 am Post subject:

What is the RECFM and LRECL of your input file? Please show exactly what you want the output record to look like.

Your points 1 and 2 are rather confusing. 1 seems to say that you only want accounts where the 13 segment has 'Y' in the indicator value. But 2 says to skip the record for accounts where the 13 segment has SPACES in the indicator value.
Seems like rule 1 includes rule 2 - since we're only interested in accounts with a 'Y', we're not interested in any other accounts including those with a SPACE. Or am I misinterpreting what you mean?

It would help if you showed a larger sample of input records and output records.
_________________
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

kolusu · Posted: Thu Jun 16, 2005 10:49 am Post subject:

Rahull,

So your output should be as follows?

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Hi,

Sorry for the late reply. I was making sure by talking to my client.

They are open with LRECL of output file. It can be of any length. There would not be any spanning of maling address.

The input file is of LRECL 1200 and RECFM FB.

The file which KOLUSU comes up is the final output file I want.

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Hi Frank,

See the sample records of input file

04 7202009991 RAHUL BANSAL 3131 BETHEL ROAD COL....
13 7202009991 7202A 121221 Y
04 7202009992 RAHUL BANSAL 3131 BETHEL ROAD COL....
13 7202009992 7202A 121222 Y
04 7202009993 RAHUL BANSAL 3131 BETHEL ROAD COL....
13 7202009993 7202A 121223
04 7202009994 RAHUL BANSAL 3131 BETHEL ROAD COL....
13 7202009994 7202A 121224 Y

The output file will be
7202009991 7202A 121221 RAHUL BANSAL 3131 BETHEL ROAD COL
7202009992 7202A 121222 RAHUL BANSAL 3131 BETHEL ROAD COL
7202009994 7202A 121224 RAHUL BANSAL 3131 BETHEL ROAD COL

It should not have record for 7202009993 as it does not have Y in his sement 13 record.

Hi Kolusu,
The maximum legth of mailing address will be 130

kolusu · Posted: Thu Jun 16, 2005 1:18 pm Post subject:

Rahull,

The following DFSORT/ICETOOL JCl will give you the desired results. If you have syncsort at your shop then change the pgm name to synctool.

Here are some of the assumptions I made.

kolusu · Posted: Thu Jun 16, 2005 1:26 pm Post subject:

Rahull,

A tip that might help us both in future. Whenever you post a question seeking help, please 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.
Provide as much information as you can.

It only takes 5 mins for me to come up with a solution(provided I can solve it), but it takes hours trying to customize the solution to fit the newly appended requirements.

Without complete details you are wasting your time as well as other people's time who come here to help.

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

Frank Yaeger · Posted: Thu Jun 16, 2005 2:45 pm Post subject:

Rahull,

Here's a DFSORT/ICETOOL job that does this a little more easily and efficiently using DFSORT's new IFTHEN function. You'll need z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) in order to use DFSORT's new IFTHEN function. Only DFSORT has this function, so if you don't have DFSORT, you won't be able to use it. If you do have DFSORT, but you don't have the Dec, 2004 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 Dec, 2004 PTF, see:

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

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Thanks for the solution.

Its working and I am reading some manual to understand more about SPLICE so that I can very well explain it to my client also.

One quick question: Could you please tell me one thing ? Is there any way to avoid duplicate while creating the temporary files.

I have customized the creation of both temp files but would like to add feature so that I dont have any duplicates in both of my temp file.

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Hi,

I am running the SYNCTOOL in deveopment and production environment successfully.

But Client is asking for libraries/modules where they can look and can get ensurity that the JCL does not abend while running in CA7.

In SYSOUT , following is the only sentence I found to convince my client.

SYT000I SYNCTOOL RELEASE 1.4D - COPYRIGHT 2003 SYNCSORT INC.

Please tell me system table or some load module which I can show to the client, which SYNCTOOL load is present.

Hi Kolusu, I am sorry that I didn't put this one in my previous query. Client need some kind of evidence and they have called up just now.

kolusu · Posted: Fri Jun 17, 2005 11:31 am Post subject:

Rahull,

Please search before posting. Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?t=3036&highlight=load

Hope this helps...

Cheers

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

Rahull · Beginner Joined: 29 Jan 2004 Posts: 62 Topics: 19

Hi Kolusu,

I am sorry for that. But I am afraid how that link is co-related to my dount ?

kolusu · Posted: Fri Jun 17, 2005 11:45 am Post subject: