Rational Developer for System z, Versión 7.6.1

Procedimiento de JCL de ejemplo para invocar preprocesadores personalizados

Este ejemplo muestra un procedimiento de JCL de ejemplo para invocar a un preprocesador personalizado.
El procedimiento de JCL de ejemplo ELAXFCP1 se proporciona con Rational Developer for System z. Este procedimiento de JCL se utiliza al invocar al preprocesador de inclusión suministrado con Rational Developer for System z. Este procedimiento de JCL deberá utilizarse como plantilla para crear un procedimiento de JCL que invoque a su propio preprocesador personalizado. ELAXFCP1 se ha copiado a ELAXFCP9 y se ha alterado para llamar a TMPLT00.
//ELAXFCP9 PROC LNGPRFX='IGYV3R40',
//            CICSLOD='CICSVS.TS230.CICS',
//            DB2LOD='DSN.DSN7',
//            LODPRFX='FOWLERM'
//*
//PREPROC1 EXEC PGM=TMPLT00,REGION=0M,
//            PARM=('TRACE(ON)')
//STEPLIB  DD DISP=SHR,DSN=MEL.LOAD
//         DD DISP=SHR,DSN=&LODPRFX..I1.L1;
//SYSPPOUT DD DSN=&&TEMPFILE;,DISP=(MOD,PASS),
//        UNIT=SYSALLDA,SPACE=(1800,(2500,2500))
//*
//COBOL    EXEC PGM=IGYCRCTL,REGION=0M,
//            PARM=('EXIT(ADEXIT(ELAXMGUX))',
//             'ADATA',
//            'LIB',
//            'TEST(ALL,SYM,SEP)',
//            'LIST',
//            'FLAG(I,I)'&CICS;&DB2;∁)
//STEPLIB  DD  DSNAME=FOWLERM.ERRFDBK8.FIDUCIA1.LOAD,
//          DISP=SHR
//         DD  DSNAME=&LNGPRFX..SIGYCOMP;,
//          DISP=SHR
//         DD DSNAME=&CICSLOD..SDFHLOAD;,
//          DISP=SHR
//         DD DSNAME=&DB2LOD..SDSNLOAD;,
//          DISP=SHR
//         DD DSNAME=&DB2LOD..SDSNEXIT;,
//          DISP=SHR
//SYSIN    DD DISP=(OLD,DELETE),DSN=&&TEMPFILE;
//SYSLIN   DD  DUMMY
//SYSLIB   DD DUMMY
//SYSADATA DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*

Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)