OLE-LABEL



  DATA:h_doc TYPE ole2_object.

  CREATE OBJECT h_doc 'Lblvw.Document'.

  SET PROPERTY OF h_doc 'Visible' = 0.

  CALL METHOD OF
      h_doc
      'Open' = rc
    EXPORTING
      #1     = zzscpr_doc_s-filepath.

  IF rc <> 0.
    CLEAR rc.

    DATA:flds TYPE ole2_object,
         h_fld TYPE ole2_object.

    IF *zzscpr_doc_s <> zzscpr_doc_s.
      REFRESH:gt_field.

      DATA:descr TYPE REF TO cl_abap_structdescr.
      descr ?= cl_abap_structdescr=>describe_by_data( zbcsst_010 ).

      DATA:ls_field LIKE LINE OF descr->components.

      GET PROPERTY OF h_doc 'LabelFields' = flds.

      LOOP AT descr->components INTO ls_field.
        CALL METHOD OF
            flds
            'item' = h_fld
          EXPORTING
            #1     = ls_field-name.

        PERFORM fm_flush.
        IF sy-subrc = 0.
          APPEND ls_field-name TO gt_field.
        ENDIF.

      ENDLOOP.

      CALL METHOD OF
          flds
          'item' = h_fld
        EXPORTING
          #1     = 'UU'.

      PERFORM fm_flush.
      IF sy-subrc = 0.
        APPEND ls_field-name TO gt_field.
      ENDIF.

       *zzscpr_doc_s = zzscpr_doc_s.
    ELSE.
      GET PROPERTY OF h_doc 'LabelFields' = flds.
    ENDIF.