Example 4: Responding to a negotiable BIND request
In this example, the application program, called LU2 and
defined in Example 3: Building and using session parameters in a BIND area receives a negotiable
BIND request in its SCIP exit routine. It moves the CID obtained from
the SCIP-exit-parameter list to the CID field of NIBR and moves the
session parameters of the received BIND to AREAR. It can then modify
the session parameters to make them suitable for the negotiable BIND
response. The response is sent using the OPNSEC macroinstruction.
OPNSEC RPL=RPLR
.
.
.
RPLR RPL AM=VTAM,NIB=NIBR
*
NIBR NIB PROC=NEGBIND,BNDAREA=AREAR
*
AREAR DS XL256 BIND RESPONSE AREA