The IMS Interface › The User Accounting Table › Creating a User Accounting Table

Creating a User Accounting Table

The interface program translates IMS log data into the format for the Report Writer. One part of the operation of the interface is to add user-defined cost center identification to each translated record.

The interface accomplishes this cost center identification using the User Accounting Table. Assemble the User Accounting Table with the following JCL, found in CAJRJCL member IMSUA.

//IMSUA    JOB (ACCTINFO),'PROGRAMMER INFO',
//             MSGCLASS=X,CLASS=A
//*
//*********************************************************************
//* PURPOSE:  TO ASSEMBLE AND LINK THE USER ACCOUNTING TABLE FOR
//* PURPOSE:    THE CA JARS IMS INTERFACE.
//*********************************************************************
//IMSUA    EXEC ASMA90
//*
//ASM.SYSLIB DD DISP=SHR,DSN=CAI.CAJRMAC      CA JARS INSTALL MACLIB
//           DD DISP=SHR,DSN=SYS1.MACLIB
//ASM.SYSIN  DD *
         JSIUA TYPE=INITIAL
         .
         .
         .
         Code JSIUA statements for your configuration.
         See 'User Accounting Table (Optional)'
         .
         .
         .
         JSIUA TYPE=FINAL
         END
/*
//*  THE LAST 2 BYTES OF LOAD MODULE NAME ARE SUFFIX.
//*    THIS WILL BE SPECIFIED ON THE TRANSLATE CONTROL STATEMENT WHEN
//*    YOU RUN THE CA JARS IMS INTERFACE PROGRAM, JSIIMT00.
//*
//LKED.SYSLMOD DD DISP=SHR,DSN=CAI.your.loadlib(JSIIMUxx)       <<< DSN
//

Note: The xx in the SYSLMOD data set member name is the load module suffix.