이 예제는 사용자 정의 프리프로세서를 호출하는
샘플 JCL 프로시저를 보여줍니다.
샘플 JCL 프로시저 ELAXFCP1은 System z®용 Rational® Developer와 함께 제공됩니다. 이 JCL 프로시저는
System z용 Rational Developer와 함께 제공된 포함 프리프로세서를 호출할 때 사용됩니다. 이 JCL 프로시저는
고유 사용자 정의 프리프로세서를 호출하는 JCL 프로시저를 작성하기 위한
템플리트로 사용되어야 합니다. ELAXFCP1이 ELAXFCP9에 복사되고
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))
//*