This document explains how clients built with the COBOL Wrapper use EntireX Security.

To use EntireX Security you need the following components:

• Generic RPC Services Modules

• The RPC Communication Area (Reference)

To use EntireX Security

1. Set the COMM-ETB-PASSWORD and set COMM-KERNEL-SECURITY to "Y". See The RPC Communication Area (Reference).

2. Log on to the broker with the function Logon LO provided by the generic RPC services module as described under Using Broker Logon and Logoff.

   • In the scenarios Micro Focus (UNIX and Windows), Batch, CICS with Call Interfaces and IMS in the COBOL Wrapper documentation with the Call Interface:

      ...
     * Broker Logon
      MOVE "2000" TO COMM-VERSION.
      MOVE "LO"   TO COMM-FUNCTION.
     
     * Set Broker userid in RPC Communication Area
      MOVE "COB-USER"  TO COMM-ETB-USERID.
     
     * Set Broker password/kernelsecurity to use EntireX Security
      MOVE "COB-PASS"  TO COMM-ETB-PASSWORD.
      MOVE "Y"         TO COMM-KERNEL-SECURITY.
     
     * Call the broker
      CALL "COBSRVI" USING ERX-COMMUNICATION-AREA
      ON EXCEPTION
      ...
      NOT ON EXCEPTION
      ...
      END-CALL.
     * begin of application logic
      ...

   • In the scenario Using the COBOL Wrapper for CICS with DFHCOMMAREA Calling Convention (z/OS and z/VSE) with the EXEC CICS LINK interface:

      ...
     * Broker Logon
      MOVE "2000" TO COMM-VERSION.
      MOVE "LO"   TO COMM-FUNCTION.
     
     * Set Broker userid in RPC Communication Area
      MOVE "COB-USER"  TO COMM-ETB-USERID.
     
     * Set Broker password/kernelsecurity to use EntireX Security
      MOVE "COB-PASS"  TO COMM-ETB-PASSWORD.
      MOVE "Y"         TO COMM-KERNEL-SECURITY.
     
     * Call the broker
      EXEC CICS LINK PROGRAM  ("COBSRVI")
                     RESP     (CICS-RESP1)
                     RESP2    (CICS-RESP2)
                     COMMAREA (ERX-COMMUNICATION-AREA)
                     LENGTH   (LENGTH OF ERX-COMMUNICATION-AREA)
      END-EXEC.
      IF WORKRESP = DFHRESP(NORMAL)
         IF (COMM-RETURN-CODE = 0) THEN
     *       Perform success-handling
         ELSE
     *       Perform error-handling
         END-IF
      ELSE
     *    Perform error-handling
      END-IF.
     
     * begin of application logic
      ...

3. Issue your RPC requests as without using an explicit logon and logoff.

4. For logoff, see Using Broker Logon and Logoff.