
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.