čia mano pagrindinis

//VIL0014D JOB UNIVER,CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
// JCLLIB ORDER=VIL0014.MASTER.PROCLIB
//STEP01 EXEC PGM=IDCAMS
//SYSIN DD *
 DELETE VIL0014.VISDARB
 IF MAXCC = 8 THEN SET MAXCC = 0
//SYSPRINT DD SYSOUT=*
//PROCED1 EXEC SUKL,CS=DRCS,INPUT1=UNIVIL.STAFF.ATOI.G0001V00,
// INPUT2=UNIVIL.STAFF.JTOR.G0001V00,INPUT3=UNIVIL.STAFF.STOZ.G0001V00,
// INPUT4=VIL0014.NEWS,
// OUTPUT=VIL0014.VISDARB
//STEP02 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=VIL0014.VISDARB,DISP=SHR
//SORTJNF2 DD DSN=VIL0014.RETS,DISP=SHR
//SORTOUT DD DSN=VIL0014.VISDARB2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//SYSIN DD *
 SORT FIELDS=(20,21,CH,A)
 JOINKEYS FILES=F1,FIELDS=(1,10,D)
 JOINKEYS FILES=F2,FIELDS=(1,10,D)
 JOIN UNPAIRED,F1,ONLY
 REFORMAT FIELDS=(F1:1,71,F2:1,9)
 SUM FIELDS=NONE