COBCH2382 Cannot use ADDRESS OF with a DECLARE data item

The ADDRESS OF syntax has been used with a locally-declared item.

In the following example, the ADDRESS OF syntax used in the s1 section is not permitted, and must be re-coded or recompiled with the DECLARE"1" directive in effect:

       01 buff-t pic x(100) typedef.

       linkage section.
       01 p0 buff-t.

       perform s1
       goback.

       s1 section.
         declare l as buff-t
         set address of p0 to address of l   *> error