Getting Started with TRANSACT (32247-90007)

96 Chapter6
Data Structures
This same definition in COBOL might be:
Figure 6-2. Comparable COBOL Data Structures
And in Pascal:
1 01 valid pic 9(4) comp.
2 01 yes pic 9(4) comp value 1.
3 01 no pic 9(4) comp value 0.
4 01 lastkey pic 9(4) comp.
5 01 enter pic 9(4) comp value 0.
6 01 ws-vorderhead.
7 02 order-no pic x(8).
8 02 cust-no pic 9(4).
9 02 order-status pic x(2).
10 02 order-date pic x(6).
11 01 ws-vorderline.
12 02 line-no pic 9(2).
13 02 part-number pic x(8).
14 02 quantity pic 9(6) comp.