Subprogram SECTEST: Function Code Ownership Test

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. 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.