Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Procedure Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
6-49
MOVE Statements
The following examples show corresponding items.
Example 1
All items in the following two groups correspond:
01 detail-in. 01 report-line.
05 social-security 03 social-security
05 employee-name 03 FILLER
05 address 03 employee-name
10 street 03 FILLER
10 city 03 address
10 state 05 street
10 zip-code 05 FILLER
05 city
05 FILLER
05 state
05 FILLER
05 zip-code
The following sentence would fill in report-line:
MOVE CORRESPONDING detail-in TO report-line
Example 2
Only pencils items in the following groups correspond; even though all other
elementary names are alike, they do not have the same qualifiers:
01 stock-items. 01 shelf-items.
05 erasers 05 pens
10 gum 07 felt-tip-pens
10 pink 07 ball-point-pens
10 ink 07 fountain-pens
05 pencils 05 eradicators
10 mechanical 10 ink
10 non-mechanical 10 pink
05 felt-tip-pens 10 gum
05 ball-point-pens 05 pencils
05 fountain-pens 10 mechanical
10 non-mechanical
The following sentence would move only the data items of the pencils group:
MOVE CORRESPONDING stock-items TO shelf-items