Example 10
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SARA DD *
AAA FROM SARA
CCC FROM SARA
DDD FROM SARA
//MOLLY DD *
AAA FROM MOLLY
BBB FROM MOLLY
DDD FROM MOLLY
//NORA DD *
AAA FROM NORA
BBB FROM NORA
CCC FROM NORA
//SORTOUT DD SYSOUT=*
//DFSPARM DD *
OPTION EQUALS,MERGEIN=(NORA,SARA,MOLLY)
MERGE FIELDS=(1,3,CH,A)
/*
This example illustrates the use of the alternate ddnames NORA,
SARA and MOLLY for a MERGE application instead of SORTINnn ddnames.
Since EQUALS is specified, equally collating records will be from
NORA, then SARA, then MOLLY, that is, in the order specified in the
MERGEIN list. Thus, SORTOUT contains these records:
AAA FROM NORA
AAA FROM SARA
AAA FROM MOLLY
BBB FROM NORA
BBB FROM MOLLY
CCC FROM NORA
CCC FROM SARA
DDD FROM SARA
DDD FROM MOLLY
If MERGEIN=(SARA,MOLLY,NORA) was specified in the MERGEIN list
in DFSPARM, SORTOUT would contain these records:
AAA FROM SARA
AAA FROM MOLLY
AAA FROM NORA
BBB FROM MOLLY
BBB FROM NORA
CCC FROM SARA
CCC FROM NORA
DDD FROM SARA
DDD FROM MOLLY