//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=*
//* KLIJUOJAM FAILUS I VIENA
//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
//*ISTRINIM RETS IR DUBLIKATUS
//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.VISDARB3,
// 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
//* FAILU SPLITINIMAS I GDG BAZES
//STEP04 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=VIL0014.VISDARB3,DISP=SHR
//SORTOF01 DD DSN=VIL0014.ATOI(+1),
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SORTOF02 DD DSN=VIL0014.JTOR(+1),
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SORTOF03 DD DSN=VIL0014.STOZ(+1),
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSIN DD *
 SORT FIELDS=COPY
 OUTFIL FILES=01,INCLUDE=(21,1,CH,GE,C'A',AND,21,1,CH,LE,C'I')
 OUTFIL FILES=02,INCLUDE=(21,1,CH,GE,C'J',AND,21,1,CH,LE,C'R')
 OUTFIL FILES=03,SAVE