This exit program is designed to control the connection before any authentication. This can deny connection before any password or ticket exchange is made.
This can also be used to control whenever the connection must or can be made using SSL.
PGM PARM(&LIB &TPNAME &RMTADDR &IPVERSION +
&SSLASK &SSLCNF &VALID)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&TPNAME) TYPE(*CHAR) LEN(30)
DCL VAR(&RMTADDR) TYPE(*CHAR) LEN(50)
DCL VAR(&IPVERSION) TYPE(*CHAR) LEN(1)
DCL VAR(&SSLASK) TYPE(*CHAR) LEN(1)
DCL VAR(&SSLCNF) TYPE(*CHAR) LEN(1)
DCL VAR(&VALID) type(*CHAR) len(10)
&LIB is the library that when the Easycom program is. Usually, Easycom.
&TPNAME is the name of the Easycom program. By default, this is Easycom.
&RMTADDR is the TCP/IP address of the connection request. This can be in IPV4 or IPV6 form depending on &IPVERSION value.
&IPVERSION is equal to 4 or 6 depending on the IP version currently in use for the connection (if the AS/400 supports it, Easycom will accept both protocols by default)
&SSLASK informs if the client will try to negotiate an SSL connection. Possible values are:
- ‘Y’: the client supports SSL, and if the server accepts it, the connection will be made using SSL. In other words, the connection will maybe use SSL.
- ‘N’: the client is not supporting SSL or doesn’t ask to use it. In other words, the connection won’t use SSL in any case.
&SSLCNF informs if the SERVER will or supports SSL. Possible values ares:
- 0: the server won’t use SSL at all (even if supported)
- 1: the server may use SSL if SSLASK=Y. If SSL negotiation fails, the connection will remain valid.
- 3: the server will use SSL. If SSLASK=N or if the SSL negotiation fails, the connection will be aborted.
&VALID is used to tell EASYCOMD to grant or deny the connection. Possible values are:
- *YES: the connection process can continue
- *DENY: the connection is aborted immediately. An error message will be prompted on the client.
Note: only &SSLCNF and &VALID can be modified by the exit program.