Pathway/iTS TCP and Terminal Programming Guide

Programming for Intelligent Devices
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
6-14
Using PRESENT IF Clauses
PRESENT IF MS-ALIAS-
NAME FIELD-STATUS IS
FS-ADDRESS.
05 MS-ALIAS-CITY PIC X(15) TO ALIAS-CITY
PRESENT IF MS-ALIAS-
NAME FIELD-STATUS IS
FS-CITY.
05 MS-ALIAS-STATE PIC 9(3) TO ALIAS-STATE
PRESENT IF MS-ALIAS-
NAME FIELD-STATUS IS
FS-STATE.
05 MS-ALIAS-ZIP PIC 9(5) TO ALIAS-ZIP
PRESENT IF MS-ALIAS-
NAME FIELD-STATUS IS
FS-ZIP.
When the MSG-IN-FLAVOR1 template is used for receiving incoming messages, the
fields NAME through ALIAS-NAME are always physically present. The overall
content, blank or nonblank, of the field ALIAS-NAME determines whether the fields
ALIAS-ADDRESS through ALIAS-ZIP are present. If ALIAS-NAME is entirely
blank, the remaining ALIAS fields are not present. If ALIAS-NAME contains any
nonblank characters, the remaining ALIAS fields are present.
The Message Section declarations for the MSG-IN-FLAVOR2 template are as follows:
MESSAGE SECTION.
01 MSG-IN-FLAVOR2.
05 PRESENCE-MASK.
10 ALIAS-NAME-PM PIC 1 TO ALIAS-NAME-PRESENT.
10 ALIAS-ADDRESS-PM PIC 1 TO ALIAS-ADDRESS-PRESENT.
10 ALIAS-CITY-PM PIC 1 TO ALIAS-CITY-PRESENT.
10 ALIAS-STATE-PM PIC 1 TO ALIAS-STATE-PRESENT.
10 ALIAS-ZIP-PM PIC 1 TO ALIAS-ZIP-PRESENT.
10 FILLER PIC 1(3).
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.
PRESENT IF ALIAS-NAME-PM
FIELD-STATUS IS FS-NAME.
05 MS-ALIAS-ADDRESS PIC X(20) TO ALIAS-ADDRESS
PRESENT IF ALIAS-ADDRESS-PM
FIELD-STATUS IS FS-ADDRESS.
05 MS-ALIAS-CITY PIC X(15) TO ALIAS-CITY
PRESENT IF ALIAS-CITY-PM
FIELD-STATUS IS FS-CITY.
05 MS-ALIAS-STATE PIC 9(3) TO ALIAS-STATE
PRESENT IF ALIAS-STATE-PM
FIELD-STATUS IS FS-STATE.
05 MS-ALIAS-ZIP PIC 9(5) TO ALIAS-ZIP
PRESENT IF ALIAS-ZIP-PM
FIELD-STATUS IS FS-ZIP.