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