Version 9.6
 —  EntireX PL/I Wrapper  —

Using Broker Logon and Logoff

Broker logon and logoff functions are provided through Generic RPC Services module. See Using the Generic RPC Services Module.

The following topics are covered here:


Log on to the Broker

With the Call Interface

...
ERXCOM.COM_FUNCTION = 'LO'; /* Broker Logon */
ERXCOM.COM_CLIENT_USERID   = 'PLI-USER';
ERXCOM.COM_CLIENT_PASSWORD = 'PLI-PASS';
call xxxSRVI(ERXCOM); /* see (1) below */
IF SUBSTR(ERXCOM.COM_ERROR,8) ^= ERX_S_SUCCESS then
DO;
/* error handling */
/* ... */
END;
/* begin of application logic including calls to interface objects */
...

With the EXEC CICS LINK Interface

...
ERXCOM.COM_FUNCTION = 'LO'; /* Broker Logon */
ERXCOM.COM_CLIENT_USERID   = 'PLI-USER';
ERXCOM.COM_CLIENT_PASSWORD = 'PLI-PASS';
CICS_LEN = STORAGE(ERXCOM);
CICS_RESP1 = DFHRESP(NORMAL);
CICS_RESP2 = DFHRESP(NORMAL);
/* called CICS program name depends on PP switch ERXFCTPRE */
EXEC CICS LINK PROGRAM  ('xxxSRVI') /* see (1) below */
               RESP     (CICS_RESP1)
               RESP2    (CICS_RESP2)
               COMMAREA (ERXCOM)
               LENGTH   (CICS_LEN);
IF SUBSTR(ERXCOM.COM_ERROR,8) ^= ERX_S_SUCCESS then
DO;
/* error handling */
/* ... */
END;
/* begin of application logic including calls to interface objects */
...

(1) The prefix of the program name (xxxSRVI) can be customized, see PL/I Preprocessor Settings. The default is PLISRVI.

Top of page

Log off from the Broker

With the Call Interface

...
/* end of application logic including calls to interface objects */
ERXCOM.COM_FUNCTION  = 'LF'; /* Broker Logoff */
call xxxSRVI(ERXCOM); /* see (1) below */
IF SUBSTR(ERXCOM.COM_ERROR,8) ^= ERX_S_SUCCESS then
DO;
/* error handling */
/* ... */
END;
...

(1) The prefix of the program name (xxxSRVI) can be customized, see PL/I Preprocessor Settings. The default is PLISRVI.

With the EXEC CICS LINK Interface

See Log on to the Broker above.

Top of page

Additional Hints

Top of page