1. 前言

• 支持读取状态列表
  

2. 实现

• 代码

  DATA: ls_objects  TYPE tca11,ls_t490_imp TYPE t490.
  DATA: lt_ord_pre_imp TYPE TABLE OF ord_pre.
  FIELD-SYMBOLS:  TYPE any.DATA: lt_jest TYPE TABLE OF jest."fill var
  ls_objects = VALUE #( flg_alt = 'X' flg_seq = 'X' flg_opr = 'X' flg_fhm = 'X' flg_aps = 'X' flg_mst = 'X' ).
  ls_t490_imp = VALUE  #( tcode = 'CO03' autyp = '10' ).
  lt_ord_pre_imp = VALUE #( ( aufnr = '000100002415' ) )."call function getting data
  CALL FUNCTION 'CO_DB_ORDER_PRE_READ'EXPORTINGflg_check         = 'X'objects           = ls_objectstrtyp_imp         = 'A'explode_ord_net   = ''t490_imp          = ls_t490_impTABLESord_pre_imp       = lt_ord_pre_impEXCEPTIONSnot_found         = 1release_no_change = 2OTHERS            = 3."assign data
  ASSIGN ('(SAPLBSVA)JEST_BUF[]') TO ."initial object
  CALL FUNCTION 'CO_BH_DATA_RESET'."using Production Data
  IF  IS ASSIGNED.lt_jest = .cl_demo_output=>display( lt_jest ).
  ELSE.MESSAGE 'Open Order Error' TYPE 'E'.
  ENDIF.
  

• 效果
  
  
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX