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

To use EntireX Security you need the following components:

• Delivered 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 with the Call Interface for CICS, Batch, IMS and Micro Focus:

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