1 level-1 variable-name OCCURS dimension 2! TIMES 3 . level-2 var-1 4 PICTURE 4 PIC 5! IS 6 picture-string 7! USAGE 7.1! IS 7.1.1 BINARY 7.1.1 COMPUTATIONAL-4 7.1.1 COMP-4 8? VALUE 8.1! IS 8.2 constant 9 .