This document explains how clients built with the COBOL Wrapper use EntireX Security.
To use EntireX Security you need the following components:
To use EntireX Security
Set the COMM-ETB-PASSWORD and set
COMM-KERNEL-SECURITY to
"Y". See The RPC Communication Area (Reference).
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
...
Issue your RPC requests as without using an explicit logon and logoff.
For logoff, see Using Broker Logon and Logoff.
