3. IMPLEMENTATION › 3.6 Avoiding IMS Duplicate Charging

3.6 Avoiding IMS Duplicate Charging

Duplicate charging for IMS regions can occur because their
resource utilizations are reported in both IMS and SMF.  In
addition, duplicate charging for IMS DBCTL regions can occur
between IMS and CICS.

If you charge for IMS resource utilization from the ACTJIS
IMS Resource Journal File and also charge for batch
processing from the ACTJBJ Batch Job or ACTJBP Batch Program
Journal File, or if you charge DBCTL from CICS, then you must
take care to avoid duplicate charging for the IMS control
region and for IMS dependent regions.

If you charge IMS control regions from IMS, you should
exclude them from charging in SMF.

For IMS dependent regions, the type of program that generated
the IMS transaction determines where it should be charged.
The types of programs are:

o BMP
o APPC
o MPP
o DBCTL

BMP programs should be charged from SMF because SMF will
contain the total resource utilization for the program, not
just the IMS part.

APPC programs will not be charged in SMF, so they should be
charged in IMS.

MPP programs should be charged from IMS.

DBCTL programs should be charged from CICS because the user
who issued the transaction cannot be determined from IMS.

Note that DBCTL resources will not automatically be charged
from CICS.  You must activate the appropriate data elements
and create computation codes for them and then use the
computation codes in your charging algorithms.  Refer to
Section 3.5, Avoiding CICS Duplicate Charging, for more
information.


HOW TO AVOID DUPLICATE CHARGING

Use Rate Table Algorithm Qualification to exclude the IMS
control region and the MPP and DBCTL programs from SMF
charging.  Refer to Section 3.4, Avoiding SMF Duplicate
Charging, for more information.

Use Journal File Eligibility and Rate Table Algorithm
Qualification to cause BMP and DBCTL transactions to be
charged with 0 rates in IMS as follows:

1) Assign ISUITYPE (initial transaction type) to an IMSACTn
   variable in sharedprefix.MICS.SOURCE(IMSACRT).

   ISUITYPE is a work variable that indicates the type of
   program that generated the transaction.  Assigning it to
   an IMSACTn variable causes it to be available in the
   DAYS timespan, where charging occurs.

   Transactions generated by BMP and DBCTL programs will
   have ISUITYPE values of B and D respectively.

2) Select Journal File Eligibility (Option S;2 on the
   Installation Accounting Primary Options Menu) and select
   the ACTJIS IMS Resource Journal File.

   Enter IMSACTn (where n is the number of the account code
   that contains ISUITYPE) in the "Subtype variable" and
   "Workarea variable 1" fields.

   END from Journal File Eligibility.

3) Select Rate Table (Option 3;6 on the Installation
   Accounting Primary Options Menu), select the IMS unit if
   necessary, and select the ACTJIS IMS Resource Journal
   File.

4) If you have not previously done so, select Option 1 and
   enter the file specifications.

5) Select Algorithm Specification, Option 3, from the File
   Options menu.

   If you have not previously done so, insert your charging
   algorithms.

   Insert a new "dummy" charging algorithm for BMP and DBCTL
   regions and select it.  Enter any IMS computation code and
   a rate of 0.

   END back to the File Options menu.

6) Select Algorithm Qualification, Option 4, from the File
   Options menu.

   Enter a Subtype value of B for the "dummy" BMP/DBCTL
   algorithm.

   Use the I line command to create another row for the
   "dummy" algorithm with a Subtype value of D.

   Enter a Subtype value of *DEF for all other algorithms.

   This will cause the "dummy" algorithm to be used for BMP
   /DBCTL transactions, and the normal algorithms to be used
   for all other IMS work.

7) END from Rate Table and submit MAGRUN when requested.

8) Repeat steps 3 through 7 for each additional IMS unit.

A sample qualification panel is shown below with a standard
IMS algorithm called JIS and the dummy algorithm called DUM:



 --------------------------  Algorithm Qualification  ----------  ROW 3 FROM 22
 Command ===>                                                 Scroll ===> CSR

 Unit: I  - COST MANAGEMENT IMS UNIT
 Journal file:   IMS Resource Journal File

 Line Commands: I Insert  D Delete SCROLL RIGHT TO VIEW COMPLETE WORKUNIT COLUMN

 Use groups for SYSID    ===> NO    Subsysid ===> NO   Subtype ===> NO
                COSTCTR1 ===> NO    Workunit ===> NO

    Alg SYS-                                                   S Partial
Cmd ID  ID   Subsysid Subtype  COSTCTR1                        E Workunit
-  --- ---- -------- -------- ------------------------------- --------------
_  JIS *ALL *ALL     *DEF     *ALL                            _ _____
_  DUM *ALL *ALL     B        *ALL                            _ _____
_  DUM *ALL *ALL     D        *ALL                            _ _____

___________________________________________________________________________


 Figure 3-3.  Sample Algorithm Qualification Panel