SNAX/HLS Configuration and Control Manual

Step 5. Planning for Programming Standards

Planning the SNAX/HLS Environment

2–34 104705 Tandem Computers Incorporated

01 TERM-FILE-REG-X REDEFINES TERM-FILE-REG.

05 DOLLAR-SIGN pic X.

88 SEVEN-CHARACTER-FORM VALUE "$".

05 SERVER-NAME-7 pic X(07).

05 FILLER pic X(16).

01 LINKAGE-INFO.

05 DEV-SERVER pic X(07).

05 SESS-ID pic 9(04) comp.

PROCEDURE DIVISION.

A-MAIN.

MOVE TERMINAL-FILENAME TO TERM-FILE-REG.

IF SEVEN-CHARACTER-FORM

MOVE SERVER-NAME-7 TO DEV-SERVER

ELSE

MOVE SERVER-NAME-6 TO DEV-SERVER.

MOVE TERMINAL-FILENAME TO LU-NAME.

SEND OPEN-SESSION-REQUEST

TO DEV-SERVER

REPLY ...........

MOVE SESSION-ID TO SESS-ID.

CALL SEND-RECEIVE USING LINKAGE-INFO

ON ERROR GO TO A-MAIN.

EXIT.

Note that in this example, the session ID returned by the OPEN-SESSION reply is

passed to any program unit that uses the SNAX/HLS session, along with the name of

the Pathway server class.

SCOBOLX Integer

Variables

Most messages sent to and from the SNAX/HLS server contain 16-bit binary values.

These fields carry verb codes, session ID, message sequence numbers, and so on, all of

that are basically binary values. However, because of limitations in the SCOBOLX

language, these fields are declared either as:

pic 9(4) comp.

pic S9(4) comp.