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

This program is used to find out if a particular "function code" is owned by the terminal operator that invoked a transaction (see Security Function Codes Use for detailes). The COMMAREA passed to SECTEST should be nine bytes long and consist of the eight byte function to be validated followed by a one byte return code. You fill in the first eight bytes, LINK to SECTEST and the return code will be set as follows:

• 0 = Validation Successful
• 1 = Validation Not Successful

The SECTESTD COPY member is available to define the appropriate COMMAREA layout. The COBOL names are as follows:

01 SECTEST-COMMAREA.
    05 NWST-FUNCTION PIC X(08).
    05 NWST-RETURN-CODE PIC X(01).
       88 NWST-SECTEST-OK VALUE '0'.
       88 NWST-SECTEST-FAILED VALUE '1'.

You code:

    COPY SECTESTD.

    MOVE 'FUNCTION' TO NWST-FUNCTION.
    EXEC CICS LINK PROGRAM('SECTEST')
         COMMAREA(SECTEST-COMMAREA)
    END-EXEC.
    IF NWST-SECTEST-FAILED
       GO TO NOT-AUTHORIZED.