Level Numbers and Group Items

Level numbers are two-digit numbers, typically written 01 through 49, that appear before every data name in DATA DIVISION and express hierarchy rather than indentation alone. A 01-level entry always starts a new record or standalone item; any level number greater than the previous one and less than 50 declares a field subordinate to the nearest preceding lower-numbered item, regardless of exactly how much they differ, so jumping from 01 to 05 to 10 is just as valid as 01 to 02 to 03. Indentation in source code is purely a human readability convention, since the compiler only reads the numeric value itself to determine nesting, which is why COBOL style guides still insist on consistent indentation to keep large record layouts comprehensible.

An elementary item is a data name that carries a PICTURE clause and directly holds data, such as 05 EMP-SALARY PIC 9(7)V99. A group item, by contrast, has no PICTURE clause of its own; it is simply the sum of its subordinate elementary items and is treated as one large alphanumeric field whose size equals the total bytes of everything nested beneath it. This means MOVEing a group item moves the entire concatenated block of bytes at once, ignoring the individual field types of its subordinates, which is a powerful shortcut for copying a whole record but also a common source of bugs when a programmer forgets that a group MOVE is always alphanumeric, not numeric, even if every field inside happens to be numeric.

Three level numbers break the normal 01-49 hierarchy rules. Level 77 declares a standalone elementary item with no subordinates and no relation to any group, historically used for simple scratch variables, though modern style tends to prefer 01-level items instead. Level 66 introduces a RENAMES clause, letting a programmer create an alternate grouping over an existing set of consecutively defined fields without duplicating storage, for example 66 WS-FULL-NAME RENAMES WS-FIRST-NAME THRU WS-LAST-NAME. Level 88 declares a condition name tied to one or more specific values of its parent item, occupying zero bytes of its own storage, and is what powers readable conditional logic like IF WS-STATUS-APPROVED instead of IF WS-STATUS = 'A', which is by far the most commonly used of the three special levels in modern COBOL code.

Because two different 01-level records can legally reuse the same subordinate field name, COBOL provides qualification with OF or IN to disambiguate, so WS-STATUS OF WS-CUSTOMER-RECORD refers unambiguously to a specific field even if WS-STATUS also exists inside WS-ORDER-RECORD elsewhere in the same DATA DIVISION. Separately, reference modification lets a programmer extract a substring of any elementary item without declaring a new field, using the syntax identifier(start-position:length), so WS-FULL-NAME(1:5) grabs the first five characters of that group item regardless of its PICTURE clause. Reference modification is especially useful for parsing fixed-format legacy records where a single 20-byte field actually packs three logically distinct sub-values that were never broken out with their own level numbers.