SORT

Calls to the SORT or ICEMAN utilities are handled by means of XSORT. It is an high performance sort program, which accepts the same data cards of IBM DF/SORT. Please refer to XSORT documentation for further information.

XSORT is started using the shell function , as in the following example:

// SRC: //STEP0060 EXEC GGGOZ65Y,SPAZIO='(6225,(1000,100),,,ROUND)'  SORT0000
// SRC: //SORTIN   DD DSN=PCWTOS.E122.SCWTR340.GC,DISP=SHR
// SRC: //         DD DSN=PGWIOS.E122.SGWI5EF1.MA,DISP=SHR
// SRC: //SORTOUT  DD DSN=PGWIOS.E122.SGWI5EF1.SORTED,DISP=(NEW,KEEP),
// SRC: //SYSIN    DD *
// SRC:   SORT FIELDS=(15,7,A,22,7,A,1,4,A),FORMAT=BI
// SRC:   INCLUDE COND=(1,4,CH,EQ,C'WTA1',OR,1,4,CH,EQ,C'WTA2')
// SRC: //********************************************************************
step("STEP0060");
dd("SORTIN1", "PCWTOS.E122.SCWTR340.GC,cat=FLATCAT,type=flat,disp=SHR");
dd("SORTIN2", "PCWTOS.E122.SCWTR340.MA,cat=FLATCAT,type=flat,disp=SHR");
dd("SORTIN2", "PCWTOS.E122.SCWTR340.SORTED,cat=FLATCAT,type=flat,disp=(NEW,KEEP)");
shell("xsort lrecl=80",
    "SORT FIELDS=(15,7,A,22,7,A,1,4,A),FORMAT=BI"+NL+
    "INCLUDE COND=(1,4,CH,EQ,C'WTA1',OR,1,4,CH,EQ,C'WTA2')"
);