MVSFORUMS.com

mahesh_chv · Beginner Joined: 04 Aug 2005 Posts: 41 Topics: 16

Hi,

Below is my requirement.

the first 3bytes is the product code and next 10 bytes is the account number.

Input file

0012200113323
2802200123325
0013890054321
0104455789012
2806045322917
0018807389368

Now I wanted to copy the first 1000 accounts for each product type into the output file.
If a product is having more than 1000 accounts ignore the 1001 th account and proceed with the next product type.

My input file is sorted on account number.

Thanks
Mahesh

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

How many input files are there? Is ther one "control file" and another file with the data?

If there is only one input file, what has been posted?

How many records are in the "data" file?
_________________
All the best,

di

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

mahesh_chv,
Assuming 80 byte input and product type being CH and account number being ZD.Tested on DFSort. See if below works...

You mentioned that your input file is already sorted on account number, if you could change previous sort to product type and then account number, you wouldn't have to resort the file again in this step.

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

Oh...ok..makes sense now...

That someone else from another forum is indeed me but (this is funny), I didn't know if you are there, on another forum.

Thanks,

Frank Yaeger · Posted: Fri Jul 29, 2011 4:15 pm Post subject:

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

Frank,
I completely misunderstood SYSUDUMP from your earlier post on other forum. I didn't realize one would have to have DFSort source code to debug the error in the event of an abend. I had it confused with SORTDIAG.

This is clear now as I ran a test job with and without SYSUDUMP, compared sysout messages.

Thanks.

Frank Yaeger · Posted: Fri Jul 29, 2011 4:43 pm Post subject:

There might be a few abends that you could debug without the source code by looking at the storage and registers dumped by SYSUDUMP. For example, if you got an S0C7, you might be able to figure out what the "bad" data looked like by decoding the instruction the PSW pointed at and looking at where the registers pointed. But, in general, you need compiled listings for a SYSUDUMP to be useful.

Note that a SYSUDUMP would be useful if you were calling DFSORT from your own program or using your own exit, and the ABEND occurred in your program or exit. But with PGM=SORT, a SYSUDUMP isn't usually helpful except to the developers or service people.

SORTDIAG messages can be useful, especially if you show them to me or Kolusu. Wink

_________________
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

mahesh_chv · Beginner Joined: 04 Aug 2005 Posts: 41 Topics: 16

Thanks sqlcode...... your solution worked for me....but the sequence number got added at the end of the file which i have to skip using BUILD Smile

mahesh_chv · Beginner Joined: 04 Aug 2005 Posts: 41 Topics: 16

sorry...not end of file....end of each record....

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

mahesh_chv,
Yes,I missed that in my original post.

Thanks.