MVSFORUMS.com

[ldushkin]

The receiving file has variable length. In case if the first record has value

[Frank Yaeger]

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

[dbzTHEdinosauer]

Frank will probably drop by and provide an answer.

what you want to do is:
sort each subset (2 records) without changing the basic sequence of the complete file?

will there always be a even number of records?

my instinct is to say 'no to a solution with a utility'; REXX/ezytrieve would be very quick and easy to write. COBOL,PL/I or asm would be a longer solution only because of development time.
_________________
Dick Brenholtz
American living in Varel, Germany

[ldushkin]

Frank, thannk you so very much.
Unfortunately I cam't test it at this moment, however tomorrow at the same time I will let you know the outcome of my test.
Once again, your help is greatly appreciated.

[ldushkin]

Thank you Dick,

Frank already suggested the ICEMAN, and I have a solution with a Cobol program, however wanted to do it quicker, with lesser steps. I will test Franks JCL tomorrow and will let you know.

To answer your questions: Yes, records are always even.

[Frank Yaeger]

Note that the DFSORT solution I gave works regardless of whether the number of records is even or odd.
_________________
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

[dbzTHEdinosauer]

Frank,

The DFSORT Team is producing one very nice, amazing, product.
As a user, I thank the team for the effort.
_________________
Dick Brenholtz
American living in Varel, Germany

[Frank Yaeger]

Dick,

Thanks for the kind words. 8)
_________________
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

[ldushkin]

Frank,
I tried the JCL, the job completed with RC=0, however the output file was the same as input. The swithch didn't appear. Maybe some parameters should be changed, according to my specific file. I only changed the positioning of the characters "YY".
Thank you once again for your help.

[Frank Yaeger]

I tried to use the information you gave me on your specific file. My solution depends on the 'YY' indicator being in positions 79-80 including the RDW since that's what I assume you had from reading your post. If you have the indicator somewhere else, then the job would need to be adjusted accordingly. Don't forget to include the 4-byte RDW when determining the starting position.

To see if the indicator is actually in 79-80 or 83-84, you can run this DFSORT job:

[ldushkin]

Thank you Frank, I will try it again tomorrow, and will let you know the result.