Variables:

      DECLARE data-type decl-item [, [ data-type ] decl-item ]...

        decl-item:  { unsubs-var-name                              }
                    { array-name ([int-const1 TO] int-const2,... ) }

  DEF Functions:

      DECLARE data-type FUNCTION { def-name [ ( [ def-param ],... ) ] },...

        def-param:  [ data-type ]

  Named Constants:

      DECLARE data-type CONSTANT { const-name = const },...