Pathway/iTS TCP and Terminal Programming Guide

Programming for Intelligent Devices
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
6-13
Using PRESENT IF Clauses
MSG-IN-FLAVOR2), the presence of the alias name, address, city, state, and ZIP fields
is determined by bit-mask values contained earlier in the message.
The Working-Storage Section declarations for MSG-IN-FLAVOR1 are as follows:
WORKING-STORAGE SECTION.
01 WS-MSG-IN.
05 NAME PIC X(20).
05 ADDRESS PIC X(20).
05 CITY PIC X(15).
05 STATE PIC X(3).
05 ZIP PIC 9(5).
05 ALIAS-NAME PIC X(20).
05 ALIAS-ADDRESS PIC X(20).
05 ALIAS-CITY PIC X(15).
05 ALIAS-STATE PIC X(3).
05 ALIAS-ZIP PIC 9(5).
01 FIELD-STATUS.
05 FS-NAME.
10 FS-NAME-SHADOW PIC 9(4) COMP.
10 FS-NAME-ERROR PIC 9(4) COMP.
05 FS-ADDRESS.
10 FS-ADDRESS-SHADOW PIC 9(4) COMP.
10 FS-ADDRESS-ERROR PIC 9(4) COMP.
05 FS-CITY.
10 FS-CITY-SHADOW PIC 9(4) COMP.
10 FS-CITY-ERROR PIC 9(4) COMP.
05 FS-STATE.
10 FS-STATE-SHADOW PIC 9(4) COMP.
10 FS-STATE-ERROR PIC 9(4) COMP.
05 FS-ZIP.
10 FS-ZIP-SHADOW PIC 9(4) COMP.
10 FS-ZIP-ERROR PIC 9(4) COMP.
01 WS-MSG-IN-BIT-MASK.
05 ALIAS-NAME-PRESENT PIC 9.
05 ALIAS-ADDRESS-PRESENT PIC 9.
05 ALIAS-CITY-PRESENT PIC 9.
05 ALIAS-STATE-PRESENT PIC 9.
05 ALIAS-ZIP-PRESENT PIC 9.
The Message Section declarations for the MSG-IN-FLAVOR1 template are as follows:
MESSAGE SECTION.
01 MSG-IN-FLAVOR1.
05 MS-NAME PIC X(20) TO NAME.
05 MS-ADDRESS PIC X(20) TO ADDRESS.
05 MS-CITY PIC X(15) TO CITY.
05 MS-STATE PIC X(3) TO STATE.
05 MS-ZIP PIC 9(5) TO ZIP.
05 MS-ALIAS-NAME PIC X(20) TO ALIAS-NAME.
05 MS-ALIAS-ADDRESS PIC X(20) TO ALIAS-ADDRESS