Changing Billing Groups Through a Program

Changing the Billing Group Code › Changing Billing Groups Through a Program

Changing Billing Groups Through a Program

An application program running under a DC/UCF system can maintain billing groups through a program call to PMAMBL10, a module supplied with the Application Monitor.

PMAMBL10 functions

Two functions are available with the PMAMBL10 interface:

Get Billing Group returns the current billing group for the signed-on user
Set Billing Group establishes a new billing group for the signed-on user

These functions are useful when:

Your billing group changes during the day
Your installation wishes to bill by program or application; using PMAMBL10, the billing assignment falls under program control

PMAMBL10 interface record

Programs that use PMAMBL10 require the following interface record (shown for COBOL):

01 BILLING-INTERFACE-RECORD.
   05 BILLING-RECORD-LENGTH   PIC 9(4) USAGE COMP  VALUE 24.
   05 BILLING-RECORD-VERSION  PIC 9(4) USAGE COMP  VALUE 1.
   05 BILLING-RECORD-FUNCTION PIC X(4) USAGE DISPLAY.
         88  GET-BILL          VALUE 'GETB'.
         88  SET-BILL          VALUE 'SETB'.
   05 BILLING-GROUP-RETCODE   PIC X(4) USAGE DISPLAY.
         88  GOOD-RETURN       VALUE 'RBOK'.
         88  NO-USER-SIGNED-ON VALUE 'RBNS'.
         88  BAD-RECORD        VALUE 'RBBP'.
   05 BILLING-GROUP           PIC X(12).

Description of fields

BILLING-RECORD-LENGTH (binary) contains the length of the BILLING-INTERFACE-RECORD (always 24 for this release).
BILLING-RECORD-VERSION (binary) contains the version number of the interface record (always 1 for this release).
BILLING-RECORD-FUNCTION (display) determines the function requested: GETB, to return the current billing group into BILLING-GROUP; SETB, to set the billing group from the value in BILLING-GROUP.
BILLING-GROUP-RETCODE (display) contains the status of the last request, as shown in the following table.
BILLING-GROUP (display) contains the billing group last set or returned (depending on the value in BILLING-RECORD-FUNCTION).

Billing group return codes

Code	Meaning
RBOK	Processing was successfully completed
RBNS	No user was signed on, so no action was taken
RBBP	The interface record contains an invalid length (should be 24), version (should be 1), or function (should be GETB or SETB)

Passing control to PMAMBL10

When the program initializes fields in the interface record, it passes control to PMAMBL10. When the program receives control back from PMAMBL10, it examines the contents of BILLING-GROUP-RETCODE for the status of the requested operation.

COBOL example

PROCEDURE DIVISION.
    .
    .
    .
MOVE 24 TO BILLING-RECORD-LENGTH.
MOVE 1 TO BILLING-RECORD-VERSION.
MOVE 'AUDITING    ' TO BILLING-GROUP.
MOVE 'SETB' TO BILLING-RECORD-FUNCTION.
TRANSFER CONTROL TO 'PMAMBL10'
LINK USING BILLING-INTERFACE-RECORD.
    .
    .
    .
IF GOOD-RETURN . . .

CA ADS example

MOVE 'AUDITING    ' TO BILLING-GROUP.
MOVE 'SETB' TO BILLING-RECORD-FUNCTION.
LINK TO PROGRAM 'PMAMBL10'
      USING (BILLING-INTERFACE-RECORD).
IF GOOD-RETURN . . .