Rational Developer for System z

Exemple de procédure JCL d'appel de préprocesseurs personnalisé

Cet exemple illustre une procédure JCL d'appel de préprocesseur personnalisé.
L'exemple de procédure JCL ELAXFCP1 est fourni avec Rational Developer for System z. La procédure JCl permet d'appeler le préprocesseur d'inclusion fourni avec Rational Developer for System z. Il est recommandé de l'utiliser comme modèle de création d'une procédure JCL pour appeler votre préprocesseur personnalisé. ELAXFCP1 a été copié dans ELAXFCP9 et modifié pour appeler 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))
//*

Conditions d'utilisation | Commentaires

Ce centre de documentation utilise la technologie Eclipse. (http://www.eclipse.org)