The VM Interface › Creating and Using the Accounting Table › Creating a User Accounting Table

Creating a User Accounting Table

Use the following steps to create a User Accounting Table that meets your data center's needs:

Access The Necessary Files

You must have read access to CAJRMAC and write access to a load library that you must subsequently add to the CA JARS JCL. You can use CAJRLOAD. If you use CAJRLOAD instead of a site-defined library, do not replace the default member CAIJV01. (The preferred method of CA maintenance is complete product replacement, so a user table named CAJRLOAD(CAIJV01) will be erased by regular maintenance.)

Update The User Accounting Table

EDIT the CAIJVnn ASSEMBLE file. Between the CAIJV01 TYPE=INITIAL and the CAIJV01 TYPE=FINAL statements, add whatever CAIJV01 statements you need to select/reject records or set CPU ID or accounting information.

Assemble Table/Place in Appropriate Load Library

The sample JCL on the next page, which can be found in CAJRJCL(CAIJVMAT), assembles the new table and places it in the load library of your choice. A user-selected name can be assigned by coding CSNAME=tablename on the CAIJV01 TYPE=INITIAL macro statement. If any of these commands gives a nonzero return code, do not proceed to the next step. Review what you have done in Steps 1 and 2 and resolve the error messages before proceeding.

Save The Updated Table

Save the User Table source macros in a repository that complies with your site's source control standard. The target library, shown here as DSN=&CAIPRFX..EXITLIB.LOAD should be chosen according to your data center standards. It must be concatenated to the //STEPLIB DD statement when you execute CA JARS.

//jobname JOB (Accntinfo),' CAIJVMAT ',NOTIFY=&SYSUID.
//*    (CAIJVMAT)
//ASM   EXEC PGM=ASMA90,REGION=0M,
//     PARM=('NODECK,OBJ,XREF(SHORT),TERM,USING(MAP)')
//SYSLIB  DD DISP=SHR,DSN=&CAIPRFX..CAJRMAC
//     DD DISP=SHR,DSN=SYS1.MACLIB
//SYSUT1  DD UNIT=SYSDA,SPACE=(TRK,(15,15))
//SYSUT2  DD UNIT=SYSDA,SPACE=(TRK,(15,15))
//SYSUT3  DD UNIT=SYSDA,SPACE=(TRK,(15,15))
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIN  DD DSN=&.&SYSLIN.,DISP=(NEW,PASS),UNIT=SYSDA,
//       SPACE=(CYL,(1,1))
//SYSIN  DD *
     CAIJV01 TYPE=INITIAL,CSNAME=CAIJV99
     CAIJV01 VMID=DOSVS,DISP=DELETE
     CAIJV01 VMID=CFT2ND*,VMAC=*,USER='SYSTEMS TEST'
     CAIJV01 TYPE=FINAL
/*
//LINK   EXEC PGM=IEWL,PARM='LET,LIST,NCAL,XREF,MAP,REUS',
//     COND=(0,NE)
//SYSUT1  DD DSN=&.&SYSUT1.,UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSN=&CAIPRFX..EXITLIB.LOAD <<= Modify
//SYSLIN  DD DSN=&.&SYSLIN.,DISP=(SHR,PASS)
//     DD *
 NAME  CAIJV99(R)
/*