Изменение внутренней структуры для любой программы

Это было сделано в user-exit

IF sy-tcode EQ 'IW34'.
 
  FIELD-SYMBOLS <fs> TYPE caufvd.
  ASSIGN ('(SAPLCOIH)CAUFVD') TO <fs>.
 
  CHECK sy-subrc = 0.
 
  DATA: wa LIKE ziw21_vl.
  CLEAR wa.
  SELECT SINGLE * FROM ziw21_vl INTO CORRESPONDING FIELDS OF wa WHERE qmnum EQ caufvd_imp-qmnum.
  IF NOT wa IS INITIAL.
    <fs>-tplnr = wa-tplnr.
  ENDIF.
 
  UNASSIGN <fs>.
ENDIF.