procedūra SUKL

//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=VIL0014.MASTER.CSLIB(&CS),DISP=SHR
//SORTIN DD DSN=&INPUT1,DISP=SHR
//       DD DSN=&INPUT2,DISP=SHR
//       DD DSN=&INPUT3,DISP=SHR
//       DD DSN=&INPUT4,DISP=SHR
//SORTOUT DD DSN=&OUTPUT,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)