Example JCL statements

Figure 246 shows the JCL used to install, translate, assemble, and link-edit the IBM-supplied governor exit routine. This JCL is supplied in the QMF sublibrary, under the name DSQ3GV3.Z. For more information on installing your own program into CICS, see the CICS System Definition Guide.

Figure 246. Example JCL for translating, assembling, and link-editing a governor exit

...* $$ JOB JNM=DSQ3GV3,DISP=D,CLASS=0
// JOB DSQ3GV3 Sample Job to Install Cutomer Written QMF Governor
* ---------------------------------------------------------------
* Instal QMF Governor Exit (HLASM)
* ---------------------------------------------------------------
// SETPARM VOLID=volid  *--update volid for syspch
// SETPARM START=rtrk   *--update start track/block (syspch)
// SETPARM SIZE=ntrks   *--update number of tracks/blocks (syspch)
* ----------------------------------------------------------------
* Library search chain must contain QMF, CICS, and HLASM sublibrary
* -----------------------------------------------------------------
// LIBDEF *,SEARCH=(PRD2.PROD,PRD1.BASE)
// LIBDEF PHASE,CATALOG=PRD2.PROD
* -----------------------------------------------------------------
* Step 1: Translate Governor exit program
* -----------------------------------------------------------------
// DLBL   IJSYSPH,'ASM.TRANSLATION'.0
// EXTENT SYSPCH,,1,0,&START.,&SIZE.
ASSIGN SYSPCH,DISK,VOL=&VOLID.,SHR
// EXEC   DFHEAP1$
         :
         :
         Your governor program
         :
         :
/*
* ------------------------------------------------------------------
* Step 2: Assemble Governor exit program
* ------------------------------------------------------------------
CLOSE SYSPCH,00D
// DLBL   IJSYSIN,'ASM.TRANSLATION',0
// EXTENT SYSIPT
ASSGN SYSIPT,DISK,VOL=&VOLID.,SHR
// OPTI0N CATAL,DECK,SYM,ERRS
   PHASE DSQUEGV3,*,SVA
         INCLUDE DFHEAI
         INCLUDE DFHEAI0
// EXEC ASMA90,SIZE=(ASMA90,50K),                                    C
              PARM='LIBMAC,USING(NOLIMIT,NOWARN),EXIT(LIBEXIT(EDECKXITC
              (ORDER=EA)))'
CLOSE SYSIPT,SYSRDR
/* 
* --------------------------------------------------------------
* Step 3: Link-edit Goernor exit program
* --------------------------------------------------------------
// EXEC LNKEDT,PARM='AMODE=31,RMODE=ANY'
/*
/&
// JOB  RESET
ASSGN SYSIPT,SYSRDR    IF 1A93D, CLOSE SYSIPT,SYSRDR
ASSGN SYSPCH,00D       IF 1A93D, CLOSE SYSPCH,00D
/&
...* $$ EOJ