SNAX/HLS Configuration and Control Manual

Step 5. Planning for Programming Standards
Planning the SNAX/HLS Environment
2–36 104705 Tandem Computers Incorporated
01 APPLICATION-TAGS.
02 SEND-NUMBER pic XX.
02 RCV-NUMBER pic XX.
01 APPLICATION-VALS.
02 SEND-VAL pic S9(5) comp.
02 RCV-VAL pic S9(5) comp.
01 APPLICATION-VALX REDEFINES APPLICATION-VALS.
02 FILLER pic XX.
02 SEND-VALX pic XX.
02 FILLER pic XX.
02 RCV-VALX pic XX.
(Assume values are in APPLICATION-VALS)
MOVE send-valx TO send-number.
MOVE rcv-valx TO rcv-number.
MOVE application-tags TO recovery-tags OF
hls-open-request.
The first two MOVE statements copy the lower 16 bits of each numeric value,
addressing them as characters. This avoids any value testing. The third MOVE
statement moves the entire group, also without value testing.
Similar tricks must be undertaken to deal with sense data because the hexadecimal
notation preferred in dealing with such data is not directly supported by SCOBOLX.