1 level-1 variable-name OCCURS dimension 2! TIMES 3 . 4+ 4 level-2 var-1 4.1.0 PICTURE 4.1.0 PIC 4.1.1! IS 4.1.2 picture-string-1 usage-clause . 4.1 floating-point . 4.1 . varchar-string . 4.1 . vargraphic-string . 4.1 lob . 4.1 datetime . 4.1 rowid . 4.1 binary . floating-point 1? 1.0! USAGE 1.0.1! IS 1.1 COMPUTATIONAL-1 1.1 COMP-1 1.1 COMPUTATIONAL-2 1.1 COMP-2 2? VALUE 2.1! IS 2.2 constant usage-clause 1? 1.0! USAGE 1.0.1! IS 1.1.0 BINARY 1.1.0 COMPUTATIONAL-4 1.1.0 COMP-4 1.1 PACKED-DECIMAL 1.1 COMPUTATIONAL-3 1.1 COMP-3 1.1 COMPUTATIONAL 1.1 COMP 1.1 DISPLAY 1.1 display-clause 1.1 DISPLAY-1 2? VALUE 2.1! IS 2.2 constant display-clause 1! DISPLAY 2 SIGN 3! IS 4 LEADING SEPARATE 5! CHARACTER