level-number [ data-name ]
[ FILLER ]
[ REDEFINES data-name-1 ]
[ { PICTURE } [ IS ] character-string-1
{ PIC }
{ BINARY }
{ BINARY-CHAR }
{ BINARY-CHAR SIGNED }
{ BINARY-CHAR UNSIGNED }
{ BINARY-SHORT }
{ BINARY-SHORT SIGNED }
{ BINARY-SHORT UNSIGNED }
{ BINARY-LONG }
{ BINARY-LONG SIGNED }
{ BINARY-LONG UNSIGNED }
{ BINARY-DOUBLE }
{ BINARY-DOUBLE SIGNED }
{ BINARY-DOUBLE UNSIGNED }
[ [ USAGE [ IS ] ] { COMPUTATIONAL } ]
{ COMP }
{ COMPUTATIONAL-4 }
{ COMP-4 }
{ COMPUTATIONAL-5 }
{ COMP-5 }
{ COMPUTATIONAL-3 }
{ COMP-3 }
{ PACKED-DECIMAL }
{ DISPLAY }
{ INDEX }
[ SIGN [IS] { LEADING } [ SEPARATE [ CHARACTER ] ] ]
{ TRAILING }
[ OCCURS [ integer-1 TO ] integer-2 [ TIMES ]
[ DEPENDING [ ON ] data-name-1 ]
[ { ASCENDING } [ KEY IS ] { data-name-2 } ... ]
{ DESCENDING }
[ INDEXED BY { index-name-1 } ... ]
[ { SYNCHRONIZED } [ RIGHT ] ]
{ SYNC } [ LEFT ]
[ { JUSTIFIED } [RIGHT]
{ JUST }
[ BLANK [ WHEN ] { ZERO } ]
{ ZEROS }
{ ZEROES }
[ { VALUE } [ IS ] literal-1 ]
.
Renames.
66 data-name-1 RENAMES data-name-2 [ { THROUGH } data-name-2 .
{ THRU }
Condition name.
88 condition-name-1
{ VALUE } [ IS ] { literal-1 } ... .
{ VALUES } [ ARE ]