*     if exists infotype text.
        IF NOT p0015-itxex IS INITIAL.
          CLEAR tx-key.
          MOVE-CORRESPONDING p0015 TO tx-key.
          IMPORT ptext FROM DATABASE pcl1(tx) ID tx-key.
          IF sy-subrc = 0.
            LOOP AT ptext.
              CASE sy-tabix.
                WHEN 1.
                  data-motive = ptext-line.
                WHEN 2.
                  data-reason1 = ptext-line.
                WHEN 3.
                  data-reason2 = ptext-line.
              ENDCASE.
            ENDLOOP.
          ENDIF.
        ENDIF.