After coding an online URT, assemble and link it to produce a load module.
URT Naming Conventions
Use the following naming conventions for your URTs:
The 3-digit or 4-digit numeric identifier can be any number, but generally it is associated with a database ID.
Note: Because CA Datacom/DB supports 4-digit database IDs and CA Datacom CICS Services now supports up to 9999 URTs, you can only have a one-to-one relationship between the 3-digit or 4-digit numeric identifier suffix and a database ID if the database ID is less than 1000. Therefore, PREFIX=DBUR2 (or 3, 4, ...) is invalid since there would be no distinction between URT 2nnn and nnn. For example, DBUR2005: is it URT5 or URT 2005.
z/OS JCL Example
The JOB, SYSLIB and SYSLMOD statements are for example only. Code these statements according to site standards.
//jobname JOB Job Statement Information //*-------------------------------------------------------------------* //* ASSEMBLE/LINK ONLINE USER REQUIREMENTS TABLE * //*-------------------------------------------------------------------* //ASM EXEC PGM=ASMA90,PARM='NODECK,LOAD' //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR // DD DSN=CAI.DHLQ.CABDMAC,DISP=SHR //SYSUT1 DD DSN=&.&SYSUT1.,UNIT=SYSDA,SPACE=(8800,(1200,100)) //SYSUT2 DD DSN=&.&SYSUT2.,UNIT=SYSDA,SPACE=(8800,(1200,50)) //SYSUT3 DD DSN=&.&SYSUT3.,UNIT=SYSDA,SPACE=(8800,(1200,50)) //SYSPRINT DD SYSOUT=* //SYSPUNCH DD SYSOUT=* //SYSLIN DD DSN=&.&OBJSET.,UNIT=SYSDA,SPACE=(80,(200,50)), // DISP=(MOD,PASS) //SYSIN DD * . . . . . . /* //* //LKED EXEC PGM=IEWL,PARM='XREF,LET,LIST,NCAL',COND=(8,LT,ASM) //SYSLIN DD DSN=&.&OBJSET.,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSUT1 DD DSN=&.&SYSUT1.,UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSPRINT DD SYSOUT=* //SYSLMOD DD DSN=CAI.CHLQ.CUSLIB,DISP=SHR //SYSIN DD * NAME DBURT025(R) /* //
z/VSE JCL Example
The JOB statement, power statements, and EXTENT statements in the following JCL are for example only. Code these statements according to site standards.
* $$ JOB JNM=jobname,CLASS=n * $$ LST CLASS=n // JOB ASMBLNK // DLBL BASE,'customer.designated.db.install.library' // EXTENT SYS009,volser // ASSGN SYS009,DISK.,VOL=vvvvvv,SHR // DLBL CUSLIB,'customer.designated.local.library' // EXTENT SYS009,volser // LIBDEF *,SEARCH=BASE.DBBASE // LIBDEF *,CATALOG=CUSLIB.sublib // OPTION CATAL PHASE DBURT025,* // EXEC ASSEMBLY . . . . . . // EXEC LNKEDT /& * $$ EOJ
Copyright © 2015 CA Technologies.
All rights reserved.
|
|