The ADABAS Interface › Operating Instructions › User Table Customization › QAACT Account Code Macro

QAACT Account Code Macro

              Macro       Operands
  name        QAACT       TYPE=INITIAL   (generates a header for the Account
                                         Code Table)

              QAACT       TYPE=ENTRY,    (generates an Account Code Table entry)
                          JOBNAME=jobname,

                          USERID=nnnnn,

                             ZFILL= YES|NO ,

                          ACTCODE='account code'

              QAACT       TYPE=FINAL     (generates a trailer for the Account
                                         Code Table)

name

is the name of the generated CSECT. The default name is JSIQAACT.

JOBNAME=

specifies the entry's job name. An asterisk (*) in any position treats the remaining characters of the job name as a match (1-8 characters alphanumeric).

USERID=

specifies the entry's user ID. An asterisk (*) in any position treats the remaining characters of the user ID as a match (1-8 digits).

ZFILL=

specifies whether this entry's user ID should be right-justified with zero-padding on the left (YES) or left-justified and padded with blanks on the right (NO, default). ZFILL=YES should only be specified if you are processing ADABAS Version 4 format records.

ACTCODE=

specifies, in a quoted string, the assigned account code for this combination of job name and user ID (1-16 characters alphanumeric).

The following is a sample Account Code Table that you can modify and assemble. It is included as member JSIQAACT in CAJRSAMP. The load module name for the Account Code Table must be QAACT.

JSIQAACT  QAACT TYPE=INITIAL
*
          QAACT TYPE=ENTRY,                                            *
                JOBNAME=COMPLETE,                                      *
                USERID=616,                                            *
                ZFILL=YES,                                             *
                ACTCODE='ANDRIANI'
          QAACT TYPE=ENTRY,                                            *
                JOBNAME=COMPLETE,                                      *
                USERID=527,                                            *
                ZFILL=YES,                                             *
                ACTCODE='GREEN'
           QAACT TYPE=ENTRY,                                           *
                 JOBNAME=COMPLETE,                                     *
                 USERID=604,                                           *
                 ZFILL=YES,                                            *
                 ACTCODE='BERGERIS'
           QAACT TYPE=ENTRY,                                           *
                 JOBNAME=CICS*,                                        *
                 USERID=L233,                                          *
                 ACTCODE='JOHNSON'
*
           QAACT TYPE=FINAL
           END