//JCLJMP10  JOB (ACCT¥),'EJEMPLO01',CLASS=3,COND=(00,NE),
//        MSGCLASS=J,MSGLEVEL=(1,1),REGION=0M
//*
//LIBPROC   JCLLIB ORDER=(XXX01.PROCLIB)
//***************************************************************
//* OBTENCION ERRORES 
//***************************************************************
//******************************
//*** BORRADO DE FICHEROS
//******************************
//PASO000 EXEC PRBORRAR,DEF=
//SYSIN  DD *
         DEL RAIZ.APLIC03.FILE123A
         DEL RAIZ.APLIC03.FILE123B
         DEL RAIZ.APLIC03.FILE123C
         DEL RAIZ.APLIC03.FILE123D
         DEL RAIZ.APLIC03.FILE123E
         DEL RAIZ.APLIC03.FILE123F
         DEL RAIZ.APLIC03.FILE123G
         DEL RAIZ.APLIC03.FILE123H
         DEL RAIZ.APLIC03.FILE123I
         DEL RAIZ.APLIC03.FILE123J
         DEL RAIZ.APLIC03.FILE123K
         DEL RAIZ.APLIC03.FILE123L.APP3D611
         SET MAXCC = 0
//************************************
//*** PGM9121: GENERACION FICHAS SYSIN
//************************************
//PGM9121  EXEC PRCOBDB2,DEF=
//DD038E   DD DSN=RAIZ.APLIC01.FINMESAB(0),DISP=SHR
//DD139S   DD DSN=RAIZ.APLIC03.FILE123A,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(5,1),RLSE),
//         RECFM=FB,LRECL=80,BLKSIZE=0
//DD159S   DD DSN=RAIZ.APLIC03.FILE123B,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(5,1),RLSE),
//         RECFM=FB,LRECL=80,BLKSIZE=0
//SYSTSIN DD *
      DSN SYSTEM(DESA)
          RUN PROG(PGM9121)  PLAN(PGM9121)
      END
//***************************************************************
//*** SORT001: RECUPERA REGISTROS NO ANUL.FECHA MAYOR XXXX-XX
//***************************************************************
//SORT001  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC75.FINMES75(0),DISP=SHR
//SORTOUT  DD DSN=RAIZ.APLIC03.FILE123C,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(250,100),RLSE),
//            RECFM=FB,LRECL=231,BLKSIZE=0
//SYSIN    DD DSN=RAIZ.APLIC03.FILE123A,DISP=SHR
//***************************************************************
//*** SORT003: ORDENA LOS DOS FICHEROS DE SALIDA
//***         PRIMER FICHERO TODOS LOS CAMPOS1
//***         SEGUNDO FICHERO SOLO CAMPOS2
//***************************************************************
//SORT002  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC44.FINMES44(0),DISP=SHR
//FILE01   DD DSN=RAIZ.APLIC03.FILE123D,
//            DISP=(NEW,CATLG,DELETE),
//            VOL=(,,,20),DATACLAS=EXTCOMPS,
//            SPACE=(TRK,(500,250),RLSE),
//            LRECL=724,RECFM=FB
//FILE02   DD DSN=RAIZ.APLIC03.FILE123E,
//            DISP=(NEW,CATLG,DELETE),
//            VOL=(,,,20),DATACLAS=EXTCOMPS,
//            SPACE=(TRK,(500,250),RLSE),
//            LRECL=724,RECFM=FB
//SYSIN     DD *
       SORT FIELDS=(1,17,CH,A)
       RECORD TYPE=F
              OUTFIL INCLUDE=(14,4,CH,EQ,C?ABCD?),
            FNAMES=FILE01
              OUTFIL INCLUDE=(14,4,CH,EQ,C?ABCD?,AND,316,1,CH,GT,
            FNAMES=FILE02
//***************************************************************
//*** SORT004: ORDENA POR campo1
//***************************************************************
//SORT003  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC75.FINMES33(0),DISP=SHR
//SORTOUT  DD DSN=RAIZ.APLIC03.FILE123F,
//            DISP=(NEW,CATLG,DELETE),
//            VOL=(,,,20),DATACLAS=EXTCOMPS,
//            SPACE=(TRK,(500,100),RLSE),
//            RECFM=FB,LRECL=255,BLKSIZE=0
//SYSIN    DD *
    SORT FIELDS=(1,11,CH,A,12,2,CH,A,14,4,CH,A)
//************************************************
//*** PGM9122: OBTENCION IDENTIFICACION
//************************************************
//PGM9122  EXEC PRCOBDB2,PRG=PGM9122
//DD863E   DD DSN=RAIZ.APLIC42.FILE4207(0),DISP=SHR
//DD874E   DD DSN=RAIZ.APLIC03.FILE123C,DISP=SHR
//DD615E   DD DSN=RAIZ.APLIC03.FILE123D,DISP=SHR
//DD910E   DD DSN=RAIZ.APLIC03.FILE123F,DISP=SHR
//DD924S   DD DSN=RAIZ.APLIC03.FILE123G,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(250,100),RLSE),
//         RECFM=FB,LRECL=301,BLKSIZE=0
//***************************************************************
//*** SORT004: ORDENA POR CAMPO42
//***************************************************************
//SORT004  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC03.FILE123G,DISP=SHR
//SORTOUT  DD DSN=RAIZ.APLIC03.FILE123H,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(250,100),RLSE),
//            RECFM=FB,LRECL=301,BLKSIZE=0
//SYSIN    DD *
    SORT FIELDS=(13,11,CH,A,11,2,CH,A,3,4,CH,A)
//************************************************
//*** PGM9123: OBTENCION ADMINISTRADOR
//************************************************
//PGM9123  EXEC PRCOBDB2,PRG=PGM9123
//DD924E   DD DSN=RAIZ.APLIC03.FILE123H,DISP=SHR
//DD615E   DD DSN=RAIZ.APLIC03.FILE123E,DISP=SHR
//DD924S   DD DSN=RAIZ.APLIC03.FILE123I,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(250,100),RLSE),
//         RECFM=FB,LRECL=301,BLKSIZE=0
//***************************************************************
//*** SORT005: ORDENA POR NUMERO
//***************************************************************
//SORT005  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC03.FILE123I,DISP=SHR
//SORTOUT  DD DSN=RAIZ.APLIC03.FILE123J,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(250,100),RLSE),
//            RECFM=FB,LRECL=301,BLKSIZE=0
//SYSIN    DD *
    SORT FIELDS=(35,9,CH,A)
//***********************************************************
//*** PGM9124: OBTENCION DATOS CONTRATO
//***********************************************************
//PGM9124  EXEC PRCOBDB2,PRG=PGM9124
//DD924E   DD DSN=RAIZ.APLIC03.FILE123J,DISP=SHR
//DD858E   DD DSN=RAIZ.APLIC42.APP3J236.DD013220(0),DISP=SHR
//DD924S   DD DSN=RAIZ.APLIC42.JCLJMP10.FILE4169(+1),
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(250,100),RLSE),
//         RECFM=FB,LRECL=301,BLKSIZE=0
//***************************************************************
//*** SORT006: RECUPERA SUBROGACIONES CON ERRORES REGISTRALES
//***************************************************************
//SORT006  EXEC PRCSORT
//SORTIN   DD DSN=RAIZ.APLIC42.JCLJMP10.FILE4169(+1),DISP=SHR
//SORTOUT  DD DSN=RAIZ.APLIC03.FILE123K,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(250,100),RLSE),
//            RECFM=FB,LRECL=301,BLKSIZE=0
//SYSIN    DD DSN=RAIZ.APLIC03.FILE123B,DISP=SHR
//***************************************************************
//*** PGM9125: LISTADO DATOS CONTRATO ERRONEOS 
//***************************************************************
//PGM9125  EXEC PRCOBDB2,DEF=
//DD924E   DD DSN=RAIZ.APLIC03.FILE123K,DISP=SHR
//DD038E   DD DSN=RAIZ.APLIC01.FINMESAB(0),DISP=SHR
//DD918S   DD SYSOUT=(C,,J123),DEST=RMTCR1,
//            RECFM=FBA,LRECL=172
//DD931S   DD DSN=RAIZ.APLIC03.FILE123L.APP3J611,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(250,100),RLSE),
//         RECFM=FB,LRECL=322,BLKSIZE=0
//SYSTSIN DD *
      DSN SYSTEM(DESA)
          RUN PROG(PGM9125)  PLAN(PGM9125)
      END
//******************************
//*** BORRADO DE FICHEROS
//******************************
//PASO999 EXEC PRBORRAR,DEF=
//SYSIN  DD *
         DEL RAIZ.APLIC03.FILE123A
         DEL RAIZ.APLIC03.FILE123B
         DEL RAIZ.APLIC03.FILE123C
         DEL RAIZ.APLIC03.FILE123D
         DEL RAIZ.APLIC03.FILE123E
         DEL RAIZ.APLIC03.FILE123F
         DEL RAIZ.APLIC03.FILE123G
         DEL RAIZ.APLIC03.FILE123H
         DEL RAIZ.APLIC03.FILE123I
         DEL RAIZ.APLIC03.FILE123J
         DEL RAIZ.APLIC03.FILE123K
         SET MAXCC = 0