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

