Subprogram SECVERB: Transaction Code Authorization Utility

If you have any questions about the content of this page, please contact CICS Requests for  clarification

The purpose of this program is to check for the current operator's authority  to run a given transaction before it is attempted. The main use of this utility  is to groom a users menu items to match what they are actually authorized to  use.

(The original transaction processor at NWRDC was a non-IBM product named  INTERCOMM.
INTERCOMM did not have transaction codes, it had verbs; different  names, exact same concept. SECVERB was an INTERCOMM subprogram long before NWRDC  had CICS. So we stayed with the old name, just think of it as  SECTRAN.)

 The COMMAREA passed to SECVERB should be five bytes long and consist of the  four byte transaction code (verb) to be validated followed by a one byte return  code. You fill in the first four bytes, LINK to SECVERB and the return code will  be set as follows:

  • 0 = Validation Successful
  • 1 = Validation Not Successful

The SECVERBD COPY member is defines  the appropriate COMMAREA layout. The COBOL names are as follows:

01  SECVERB-COMMAREA
    05 NWVR-VERB           PIC X(04).
    05 NWVR-RETURN-CODE    PIC X(01).
       88  NWVR-SECVERB-OK     VALUE  '0'.
       88 NWVR-SECVERB-FAILED  VALUE  '1'.

You code:

      COPY SECVERBD.

    MOVE 'ABCD' TO  NWVR-VERB.
    EXEC CICS LINK  PROGRAM('SECVERB')
                    COMMAREA(SECVERB-COMMAREA)
    END-EXEC.
    IF  NWVR-SECVERB-FAILED
        PERFORM NOT-AUTHORIZED
    END-IF.