proxy->get_form_interface( IMPORTING error = error
                                       f_interface = li_form ).
  CHECK error->error_code = c_oi_errors=>ret_ok.

  li_form->get_form_fields( EXPORTING no_flush = 'X'
                            IMPORTING error = error
                                      fields = lit_fields[] ).

  LOOP AT lit_fields ASSIGNING <field>.
    CONCATENATE '(' program ')' <field>-name INTO l_fieldname.
    ASSIGN (l_fieldname) TO <fs>.
    IF sy-subrc = 0.
      WRITE <fs> TO <field>-value LEFT-JUSTIFIED NO-GROUPING.
    ENDIF.
  ENDLOOP.

  li_form->set_data( EXPORTING fields  = lit_fields[]
                     IMPORTING error   = error ).