Data Description Entry

Format 1

level-number [ data-name ]
             [ FILLER    ]

 [ REDEFINES prev-data-name ]

 [ IS EXTERNAL      ]
 [ IS GLOBAL        ]

 [ IS SPECIAL-NAMES  {CURSOR         } ]
                     {CRT STATUS     }
                     {CHART STATUS   }
                     {SCREEN CONTROL }
                     {EVENT STATUS   }

 [ IS EXTERNAL-FORM [ IDENTIFIED BY template-file-name ] ]
 [ IS IDENTIFIED BY external-name                        ]

 [ {PICTURE} IS picture-string ]
   {PIC    }

 [ [ USAGE IS ] usage-type ]

 [ [ SIGN IS ] {LEADING } [ SEPARATE CHARACTER ] ]
               {TRAILING}

 [ OCCURS
        { table-size TIMES                       }
        { min TO max TIMES DEPENDING ON dep-item }

        [ {ASCENDING } KEY IS {key-name} ... ] ...
          {DESCENDING}

        [  INDEXED BY {index-name} ... ] ]

 [ {SYNCHRONIZED}  [LEFT ] ]
   {SYNC        }  [RIGHT]

 [ {JUSTIFIED} RIGHT ]
   {JUST     }

 [ BLANK WHEN ZERO ]

 [ VALUE IS value-lit ] .

Format 2

66 new-name RENAMES name-start [ {THRU   } name-end ] .
                                 {THROUGH}

Format 3

78 user-name VALUE IS {literal-1} [ {+} literal-2 ] ... .
                      {NEXT     }   {-}
                                    {*}
                                    {/}

Format 4

88 cond-name  {VALUE IS  } { low [ {THRU   } high ] } ...
              {VALUES ARE}         {THROUGH}

        [ WHEN SET TO FALSE false-val ] .