MVSFORUMS.com

[yadav2005]

I have an input file with records as below with FB 80 bytes , I want to create new file with FB 80 bytes but with data joined in one record only and XYZ shoud
start from 48 th position in the new output file.

[RonB]

You can do this using a SORT step ( Assuming that there are exactly 2 input records for every output record ):

1. In your JCL, specify that SORTIN has an LRECL of 160 ( not 80 ). This will make the SORT think that each input record is 160-bytes long, when in reality each 160-byte record is a concatenation of 2 80-byte records.

2. Specify that SORTOUT has an LRECL of 80, which is what you want

3. Code SYSIN as follows

SORT FIELDS=COPY
OUTREC FIELDS=(1,47,81,33)

That should do it.
_________________
A computer once beat me at chess, but it was no match for me at kick boxing.

[kolusu]

yadav2005,

The following DFSORT JCL will give you the desired results

[RonB]

1. The topic starter did not say that he wanted to use a sort product. I suggested a method that did use a sort product, but one that "could" be adapted to other utilities that can build an 80-byte record by extracting fields from a 160-byte record - e.g. IEBGENER

[Frank Yaeger]

[yadav2005]

Thanks Kolusu, Frank and RonB for the neeful help and I was able to achieve desired output.

[RonB]

That's why I didn't post an IEBGENER solution to begin with. I only mentioned IEBGENER afterwards because it, too, is universally available. DFSORT is not universally available, and I'm not sure that other sort products support IFTHEN...WHEN=GROUP...PUSH logic.

I would wager that more people know how to code an LRECL specification and are familiar with the simple OUTREC FIELDS= statement of sort products than know how to use DFSORT's IFTHEN...WHEN=GROUP...PUSH logic.
------------------------------
I do feel free to post any type of utility solution in this, or any other forum, and the same freedom is offered to you or Kolusu to post DFSORT solutions, but I would greatly appreciate not being reprimanded because a solution that I offer is not a DFSORT specific solution, even though such a solution is possible.
_________________
A computer once beat me at chess, but it was no match for me at kick boxing.

[yadav2005]

Kolusu,

Suppose if I have three records as below:

[kolusu]

[kolusu]

[Frank Yaeger]

I'm sure Kolusu will show you how to do the new variation with WHEN=GROUP, but FWIW here's a DFSORT/ICETOOL SPLICE solution which you might find easier to understand and extrapolate (then again, you might not):

[yadav2005]

Kolusu,

The three records is the final requirement.

[kolusu]

[yadav2005]

Thanks Kolusu and Frank.