      *>
       METHOD-ID. SET PROPERTY DATA-NAME.
       DATA DIVISION.
       LINKAGE SECTION.
       01 LS1 DATA-DESCRIPTION.
       PROCEDURE DIVISION USING LS1.
           SET DATA-NAME TO LS1
           EXIT METHOD.
       END METHOD.
