ABAP调用外部程序值

RV64A902程序中调用SAPMV45A的变量

  DATA: LV_KUNNR TYPE KUNNR.

  FIELD-SYMBOLS: <L_FS_VBAK> TYPE VBAK.
  FIELD-SYMBOLS: <L_FS_VBAP> TYPE VBAP.

  FIELD-SYMBOLS: <L_DYN_TAB> TYPE TABLE.
  FIELD-SYMBOLS: <L_DYN_WA>  TYPE ANY.

  FIELD-SYMBOLS: <L_FS_VA1>  TYPE ANY.
  FIELD-SYMBOLS: <L_FS_VA2>  TYPE ANY.

  DATA: LV_VBAK_STR  TYPE CHAR20 VALUE '(SAPMV45A)VBAK'.
  DATA: LV_VBAP_STR  TYPE CHAR20 VALUE '(SAPMV45A)VBAK'.
  DATA: LV_XVBPA_STR TYPE CHAR20 VALUE '(SAPMV45A)XVBPA[]'.
  ASSIGN (LV_VBAK_STR)  TO <L_FS_VBAK>.
  ASSIGN (LV_VBAP_STR)  TO <L_FS_VBAP>.
  ASSIGN (LV_XVBPA_STR) TO <L_DYN_TAB>.

  LOOP AT <L_DYN_TAB> ASSIGNING <L_DYN_WA>.
    ASSIGN COMPONENT 'PARVW' OF STRUCTURE <L_DYN_WA> TO <L_FS_VA1>.
    ASSIGN COMPONENT 'KUNNR' OF STRUCTURE <L_DYN_WA> TO <L_FS_VA2>.
    IF <L_FS_VA1> = 'WE'.
      LV_KUNNR = <L_FS_VA2>.
    ENDIF.
  ENDLOOP.