查询物料主数据.txt

report AQZZZMM60=======ZMM60=========.

include /1BCDWB/IQG000000000013DAT.

data %dtab type standard table of /1BCDWB/IQG000000000013 with header line.

data %subrc type sy-subrc.

include /1BCDWB/IQG000000000013SSCR.

include /1BCDWB/IQG000000000013SSCRAT.


start-of-selection.
  if %runmode-extr_on <> space.
    call function '/1BCDWB/IQG000000000013EXTR'
         tables     %selopt = %seloptions
                    %dtab   = %dtab
         changing   %rtmode = %runmode
         exceptions no_data = 1
                    others  = 2.
    %subrc = sy-subrc.
    call function 'RSAQRT_CHECK_EXTR'
         exporting extr_subrc = %subrc
         tables    dtab   = %dtab
         changing  rtmode = %runmode.
  endif.


end-of-selection.