ISRSUPC: Comparar código por JCL

ISRSUPC: Comparar código por JCL

Si usas entornos host te sonará la opción 3.13 o SUPERCE del ISPF para comparar fuentes.

Existe además la posibilidad de comparar a través de JCL con el programa ISRSUPC.
Aquí os dejamos un ejemplo sencillo para pasar fuentes de una librería a fichero, y luego compararlos.

//**********************************************************************
//*PASO FUENTE A FICHERO
//**********************************************************************
//SORTE01 EXEC PGM=SORT
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=MI.LIBRERIA.FUEN(PGMPRU1),DISP=SHR
//SORTOUT DD DSN=FICHERO.CON.PGMPRU1,
//      DISP=(,CATLG,CATLG),
//      SPACE=(CYL,(50,50),RLSE),
//      DCB=(RECFM=FB,LRECL=072,BLKSIZE=0,DSORG=PS)
//SYSIN DD *
  SORT FIELDS=COPY
//**********************************************************************
//*PASO FUENTE A FICHERO
//**********************************************************************
//SORTE01 EXEC PGM=SORT
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=MI.LIBRERIA.FUEN(PGMPRU2),DISP=SHR
//SORTOUT DD DSN=FICHERO.CON.PGMPRU2,
//      DISP=(,CATLG,CATLG),
//      SPACE=(CYL,(50,50),RLSE),
//      DCB=(RECFM=FB,LRECL=072,BLKSIZE=0,DSORG=PS)
//SYSIN DD *
  SORT FIELDS=COPY
//**********************************************************************
//* COMPARACIONES 
//**********************************************************************
//COMPARO EXEC PGM=ISRSUPC, 
//        PARM=('LINECMP,CHNGL,') 
//NEWDD DD DSN=FICHERO.CON.PGMPRU1,DISP=SHR 
//OLDDD DD DSN=FICHERO.CON.PGMPRU2,DISP=SHR 
//OUTDD DD SYSOUT=A 
//SYSIN DD * 
/* 

Podéis encontrar mucha más información en IBM: