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