MVSFORUMS.com

[sunilchik]

My sequential file is as follows

[kolusu]

sunil,

The following DFSORT/ICETOOL JCl will give you the desired results.The first copy operator splits the input file into 3 files. The first line goes to L1 file ,second
line goes to L2 and 3rd line goes to L3 and this process repeats untill eof.

Now we reformat these 3 files,so that we can get the 3 lines as a single
line.

The first line has only 12 bytes and the rest 244 bytes is spaces. so using
ctl2 we reformat the record

[Premkumar]

This can also be achieved using the following method, provided the input file has 3*n fixed length records, where n is an integer.

[sunilchik]

Guys,

Thanks for the responses

Kolusu,

we dont have DFSORT/ICETOOL ,only ordinary sort I think Syncsort. Is there any way in it??

Premkumar,

I ran your jcl.it was showing invalid LRECL, then i copied it to a dataset of LRECL 768.
but now it is truncating after 12 charcters like this

01CP19841231
TRK=99999999
T=99999999RE
P=NDEV=NPPT=
NF=NPIN=NPID
01CP19850531
TRK=19850101
T=99999999RE
P=NDEV=YPPT=
NF=NPIN=NPID
01CP19850730
TRK=19850101
T=99999999RE
P=NDEV=YPPT=
NF=NPIN=NPID
01CP19851231

Please let me know the syntax of INREC in sort??

[kolusu]

sunil,

Change the pgm name to SYNCTOOL and you should be able to get the desired results.

Prem kumar's solution is easy and involves less overhead but only restriction is that blocksize should be a multiple of 3. For a file with LRECL of 256 the optimum blocksize is 27904 which is not a multiple of 3.

kolusu

[Premkumar]

Sunil,

You will have to copy the input file to a temp file of lrecl=256 and blksize=27648 and use it in sort.

Thanks, Kolusu for pointing out the caveat.

[Cogito-Ergo-Sum]

Premkumar,
I had learnt this trick from this site itself. But, there is another "caveat" here. What if the number of records is NOT a multiple of 3 ?

The input dataset looks like as if it was some kind of dump. So, probably, the solution will always work. Using a LRECL as some multiple of the actual LRECL presumes that, the number of records are going to be that some multiple. What if it is NOT, in a more generic scenario ?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[Premkumar]

If the no. of records is not a multiple of 3, this solution will fail.

[sunilchik]

Thanks guys for the responses.
We had to go for a work around. The input we had to change had only 500 records. So we downloaded the file and the used an ordinary word editor with macros and then uploaded it back to a sequential file with more record length.
And it worked!!!