Pathway/iTS TCP and Terminal Programming Guide

Programming for Intelligent Devices
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
6-4
Sample Declarations
01 WS-ITEM2.
05 WS-ITEM2-CNT PIC 9(2) COMP.
05 WS-ITEM2-GROUP.
10 WS-ITEM2-DATA PIC X(1)
OCCURS 1 TO 30 TIMES
DEPENDING ON ws-item2-cnt.
01 WS-ITEM3.
05 WS-ITEM3-CNT PIC 9(2) COMP.
05 WS-ITEM3-GROUP.
10 WS-ITEM3-DATA PIC X(1)
OCCURS 1 TO 30 TIMES
DEPENDING ON ws-item3-cnt.
01 WS-ITEM4.
05 WS-ITEM4-CNT PIC 9(2) COMP.
05 WS-ITEM4-GROUP.
10 WS-ITEM4-DATA PIC X(1)
OCCURS 1 TO 30 TIMES
DEPENDING ON ws-item4-cnt.
01 WS-ITEM5.
05 WS-ITEM5-CNT PIC 9(2) COMP.
05 WS-ITEM5-GROUP.
10 WS-ITEM5-DATA PIC X(1)
OCCURS 1 TO 30 TIMES
DEPENDING ON ws-item5-cnt.
MESSAGE SECTION.
01 msg-format4 MESSAGE FORMAT IS DELIMITED
MESSAGE DELIMITER IS OFF.
05 item1 PIC X(30)
USING ws-item1-group
RESULTING COUNT IS ws-item1-cnt.
05 item2 PIC X(30)
USING ws-item2-group
RESULTING COUNT IS ws-item2-cnt.
05 item3 PIC X(30)
USING ws-item3-group
RESULTING COUNT IS ws-item3-cnt.
05 item4 PIC X(30)
USING ws-item4-group
RESULTING COUNT IS ws-item4-cnt.
05 item5 PIC X(30)
USING ws-item5-group
RESULTING COUNT IS ws-item5-cnt.