SORT query

[srinivas]

Hi,

I have 3 i/p files having same header and tailer. My requirement is to copy all the three files to a single o/p with only one trailer and hearder.Pls find the below example.

File1
------
Hearder
01433435466
01213232322
04354574585
Trailer

File2
------
Header
47934739748
49574957498
57457495448
39473974938
Trailer

File3
------
Header
58458400098
34384738698
Trailer

o/p File
---------
Header
01433435466
01213232322
04354574585
47934739748
49574957498
57457495448
39473974938
58458400098
34384738698
Trailer

Can any one suggest me how to solve this using SORT. Thanks

Regards,

Srinivas.

[Frank Yaeger]

Is there something unique about the header that identifies it (e.g. 'HDR' in positions 1-3) or is it just the first record of every file?

Is there something unique about the trailer that identifies it (e.g. 'TRL' in positions 1-3) or is it just the last record of every file?

Is the header and trailer in every file the same, so it doesn't matter which one you keep?

What is the RECFM and LRECL of each input file?

[rahul_kolhe]

The easiest way by using Xsum if you have same header and trailer in all three file and content of all three files is not duplicate. You can avoid XSUM part and SORTXSUM file.

//STEP01 EXEC PGM=SORT,REGION=0M
//SORTIN DD DSN=AAA,DISP=SHR
// DD DSN=BBB,DISP=SHR
// DD DSN=BBB,DISP=SHR
//SORTOUT DD DSN=AAA.dup,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(2000,500),RLSE),
// DCB=(MODELDCB,RECFM=FB,LRECL=270,DSORG=PS)
//SORTXSUM DD DSN=,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(2000,500),RLSE),
//* UNIT=TAPEA,EXPDT=2005/365,
// DCB=(MODELDCB,RECFM=FB,LRECL=270,DSORG=PS)
//SYSIN DD *
SORT FIELDS=copy
SUM FIELDS=NONe,XSUM
END
//SYSOUT DD SYSOUT=*
//*


Hope this will help!

[Frank Yaeger]

rahul,

Your "solution" makes no sense. SUM FIELDS=NONE is ignored with SORT FIELDS=COPY. You must use SORT or MERGE with a key in order for SUM FIELDS=NONE to eliminate records. The key determines the duplicates to be eliminated. If you sorted on positions 1-7 to try to keep only one Header and one Trailer, you would remove duplicate data records as well, and also sort Header and Trailer before the data records. Also, if all of the header and trailer records are not the same, you might get the wrong one. Additionally, XSUM has no relevance for this requirement.

The questions I asked are relevant to the solution.

In the future, please try your "solutions" to ensure they work before posting them.