Previous Topic: 7.2.2 Account Code Definition (IDMACCT)

Next Topic: 7.2.4 IDMS Application Unit Exit (IDMAURT)

7.2.3 Account Code Exit Routine Definition (IDMACRT)


The IDMS Account Code Derivation Exit is a user-written SAS
routine invoked for each transaction processed.  The object
of the account code derivation routine is to build the data
elements IDMACT1 to IDMACT9 (as many as have been defined in
IDMACCT) from the data made available in the IDMS transaction
input data.  For example, if the IDMACCT member in the
sharedprefix.MICS.PARMS library defines four account code
levels, the user routine builds the data values of those four
codes for each transaction processed.

The account code derivation routine makes available for use
each of the data elements in the IDMS User Activity File
(IDMSUA) and the IDMS Application Unit Counts File (IDMSAC).
The names of the elements begin with SSW since the data are
first read into a common work file.  For example, SUAPGM
would be referenced as SSWPGM.  For your convenience, the
list below includes most of the elements that you should need
to construct the account code, IDMACTn, and application unit,
IDMAPU, data elements:

  Elements that are 4 characters:
     SSWCTRN1 - CICS LRE Local ID1
     SSWCTRN2 - CICS LRE Local ID2
     SSWIVER  - IDMS Version
  Elements that are 7 characters:
     SSWOPSYS - Operating System
  Elements that are 8 characters:
     SSWJOB   - Batch/CICS Job Name
     SSWPGM   - Batch/CICS/DC Program Name
     SSWTERM  - CICS/DC Terminal Name
     SSWPTERM - Physical Terminal Name
     SSWCTRNC - CICS Transaction Code
     SSWOPRID - CICS Operator ID
     SSWDCTSK - DC Task Code
  Elements that are 9 characters:
     SSWPTYP  - Program Type
  Elements that are 12 characters:
     SSWDCBGP - DC Billing Group
  Elements that are 30 characters:
     SSWBAF1  - Batch Accounting Field 1
     SSWBAF2  - Batch Accounting Field 2
     SSWBAF3  - Batch Accounting Field 3
     SSWBAF4  - Batch Accounting Field 4
     SSWBAF5  - Batch Accounting Field 5
  Elements that are 32 characters:
     SSWDCUSR - DC User ID

The CA MICS Analyzer for CA-IDMS provides the following
sample account code derivation routine to help verify the
accuracy of the user modification to the routine.  Do not use
the sample account codes without first verifying their
compatibility with your data center's needs and other
installed CA MICS components.  The complexity of the
algorithm varies for each installation.

The sample account code derivation routine supplied with the
component sets IDMACT1 equal to the billing group for IDMS/DC
online tasks and to a constant for other types of tasks.  The
exit sets IDMACT2 equal to program name and IDMACT3 to
program type for all IDMS tasks.  The sample exit code can be
found in sharedprefix.MICS.PARMS(IDMACRT) and is shown below:

    IF IDMTYPE = 'O'   THEN IDMACT1 = SSWDCBGP;
      ELSE IDMACT1 = '************';
    IDMACT2 = SSWPGM;
    IDMACT3 = SSWPTYP;
The worksheet for structuring the IDMS Account Code
Derivation Routine is shown in Figure 7-2.

+--------------------------------------------------------------------------+ | INSTALLATION PREPARATION WORKSHEET: IDMS Account Code Routine Definition | | | | PARMS Library Member is IDMACRT | | Reference Sections: 7.2.3 CA MICS Analyzer for CA-IDMS Guide | +--------------------------------------------------------------------------+ | | | * VALIDATE FOR VALID ACCOUNT CODES, WHERE POSSIBLE ; | | | | IF { account data is valid } THEN DO; | | | | * BUILD ACCOUNT CODE FIELDS AS IN THE WORKSHEET 7-2 | | | | IDMACT1=field source 1 ; | | IDMACTn=field source n ; | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | | | END; | | ELSE DO; | | | | * ROUTINE TO BUILD INSTALLATION OVERHEAD ACCOUNT CODES ; | | | | IDMACT1='overhead category' ; | | IDMACTn='overhead category' ; | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | ____________________________________________________________________ | | | | END; | | | +--------------------------------------------------------------------------+ | ....5...10...15...20...25...30...35...40...45...50...55...60...65...70.. | +--------------------------------------------------------------------------+

Figure 7-2. IDMS Account Code Routine Definition Worksheet