//NOMBREJOB JOB (EASY),'CRUCE EASY 1:1',MSGLEVEL=(1,1),                 
//            CLASS=X,MSGCLASS=X,NOTIFY=&SYSUID,COND=(4,LT)
//*
//*------------------------------------------------------------------*
//*  BORRADO DE FICHEROS                                             *
//*------------------------------------------------------------------*
//PASO000  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 DELETE EASY.FICHERO.OUT
/*
//*------------------------------------------------------------------*
//*  MATCHING FICHERO                                                *
//*------------------------------------------------------------------*
//PASO010  EXEC PGM=EZTPA00,PARM=('DYNALLOC=(SYSALLDA,32)')
//STEPLIB  DD DISP=SHR,
//            DSN=LIBRERIA.EASY.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSSNAP  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//EZTVFM   DD UNIT=SYSDA,SPACE=(CYL,(40,10))                           
//IN1      DD DISP=SHR,
//            DSN=EASY.DESCARGA.IN1
//IN2      DD DISP=SHR,
//            DSN=EASY.DESCARGA.IN2
//OUT      DD DISP=(,CATLG,CATLG),
//            UNIT=SYSDA,
//            SPACE=(CYL,(1,1),RLSE),
//            DCB=(RECFM=FB,LRECL=21),
//            DSN=EASY.FICHERO.OUT
//SYSIN    DD *
FILE IN1
    IN1-NUMCLI           1    4 B 0
    IN1-NUMPROD          5    3 P 0
    IN1-FECALTA          8   10 A
FILE IN2
    IN2-NUMPROD          1    3 P 0
    IN2-DESPROD          4   14 A
FILE OUT
    OUT-NUMCLI           1    4 B 0
    OUT-NUMPROD          5    3 P 0
    OUT-DESPROD          8   14 A
*
W-CONTA-OK               W    9 N 0
W-CONTA-KO               W    9 N 0
*
JOB INPUT (IN1 KEY (IN1-NUMPROD) +
           IN2 KEY (IN2-NUMPROD)) +
    FINISH PFINAL
IF MATCHED
   OUT-NUMCLI = IN1-NUMCLI
   OUT-NUMPROD = IN1-NUMPROD
   OUT-DESPROD = IN2-DESPROD
   PUT OUT
   W-CONTA-OK = W-CONTA-OK + 1
END-IF
PFINAL . PROC
  DISPLAY '******************** FINAL ********************'
  DISPLAY '** REGISTROS ACTUALIZADA RELACION :' W-CONTA-OK
  DISPLAY '** REGISTROS FINALIZADOS CON ERROR:' W-CONTA-KO
  DISPLAY '***********************************************'
END-PROC
/*