通过SUBMIT方式不同程序间获取ALV数据

不念不忘少年蓝@ 2022-01-23 08:29 291阅读 0赞

当前程序：ZFIR039

被调程序：ZFIR038

ZFIR038执行结果

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1][]

ZFIR039中获取ZFIR038的ALV值，程序段

**********************************************************************
    * 获取程序ZFIR038 输出内表GT_OUT值
      FIELD-SYMBOLS:<lt_data> TYPE STANDARD TABLE.
    
      "SUBMIT前屏蔽ALV GRID的显示
      CALL METHOD cl_salv_bs_runtime_info=>set(
          display  = space
          metadata = space
          data     = 'X' ).
    
      SUBMIT zfir038 WITH p_rbukrs = p_rbukrs
                     WITH s_date IN s_date
                     WITH s_aufnr IN s_aufnr
                     AND RETURN.
    
      TRY.
          cl_salv_bs_runtime_info=>get_data_ref(
            IMPORTING r_data = DATA(ls_data) ).
    
          ASSIGN ls_data->* TO <lt_data>.
    
        CATCH cx_salv_bs_sc_runtime_info.
    
          MESSAGE 'UNABLE TO RETRIEVE ALV DATA' TYPE 'E'.
    
      ENDTRY.
    
      cl_salv_bs_runtime_info=>clear_all( ).

![20190603112718156.jpg][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 3][]

处理读取到的ALV数据，程序段

**********************************************************************
    * 读取上步骤的值
      DATA: ls_out_r104 TYPE ty_out_r104.
    
      CLEAR: gt_out_r104.
    
      LOOP AT <lt_data> ASSIGNING FIELD-SYMBOL(<fs_data>).
        ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <fs_data> TO FIELD-SYMBOL(<fd_val_1>).
        ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <fs_data> TO FIELD-SYMBOL(<fd_val_2>).
        CHECK <fd_val_1> IS ASSIGNED AND <fd_val_2> IS ASSIGNED.
        "ACTION
    
        CLEAR: ls_out_r104.
        UNASSIGN:<fd_val_1>,
                 <fd_val_2> .
      ENDLOOP.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: /images/20220123/67183b8e1f784116a23e0bbec1c347b2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1]: /images/20220123/cb2e53b994794551900bb58f9e563e90.png
[20190603112718156.jpg]: /images/20220123/757be40406144efb908e77b8b077d10f.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2]: /images/20220123/68cf1aa7a91542719b4f9f9ab9e62c32.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 3]: /images/20220123/626e4a13b22a4768a50e49f52670e211.png