lunes, 22 de julio de 2013

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:

A.0 Appendix A. SuperC reference

No hay comentarios: