xref: /Universal-ctags/Units/parser-cobol.r/levels.d/input.cbl (revision 4361bab1569f60bc40a0c33f7621af3ec39b8b16) 
1       IDENTIFICATION DIVISION.
2       PROGRAM-ID. Test-Items.
3
4       DATA DIVISION.
5       WORKING-STORAGE SECTION.
6       01 RECORD1.
7              05 ITEM1 PIC X(1).
8              05 ITEM2 PIC A(1).
9                     88 ODD VALUES 1, 3, 5, 7, 9.
10                     88 EVEN VALUES 2, 4, 6, 8.
11              05 ITEM3 PIC X(6).
12              66 RDITEM4 RENAMES ITEM1 THRU ITEM2.
13              66 RDITEM5 RENAMES ITEM1 THROUGH ITEM3.
14       77 STDLN1 PIC A(4).
15       01 REC2.
16              02 G1.
17                     05 ITEM1 PICTURE X(10).
18                     05 ITEM2 PIC X(10).
19              66 OTHERNAME1 RENAMES ITEM1 IN REC2.
20              66 OTHERNAME2 RENAMES G1.
21
22       PROCEDURE DIVISION.
23       MAIN-PROCEDURE.
24            DISPLAY "Hello world".
25            DISPLAY OTHERNAME2.
26            STOP RUN.
27       END PROGRAM Test-Items.
28