HP NonStop Pathway/iTS

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-13
Configuring Pathway/iTS
3400-SELECT-TCP.
* Clear, build, and put the object-selector token for the TCP into the
* buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-TCP,
ZPWY-DDL-SEL-TCP
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZTCP OF ZPWY-DDL-SEL-TCP
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-TCP,
ZPWY-DDL-SEL-TCP
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3500-SELECT-TERM.
* Clear, build, and put the object-selector token for the TERM into the
buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-TERM,
ZPWY-DDL-SEL-TERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZTERM OF ZPWY-DDL-SEL-TERM
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-TERM,
ZPWY-DDL-SEL-TERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
/
3600-SAVE-INITIAL-REQUEST.
* Save the initial request. It will be used in continuation requests by
adding
* the continuation context token.
MOVE ZPWY-DDL-MSG-BUFFER TO REQUEST-SAVE-BUFFER
.
3700-SETUP-CONTINUATION.
* Move the context token from reply to the saved initial request, thus
* building a continuation request.
ENTER TAL "SSMOVE"
USING ZSPI-TKN-CONTEXT,
ZPWY-DDL-MSG-BUFFER,
WS-FIRST-OCCURRENCE,
REQUEST-SAVE-BUFFER,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
EVALUATE WS-SS-RESULT
WHEN ZERO
Example 13-1. Pathway/iTS Configuration Program (page 12 of 13)