通過LDB_PROCESS函數使用邏輯數據庫
1、概覽
通過LDB_PROCESS函數可以允許任何程序訪問邏輯數據庫,允許一個程序訪問多個邏輯數據庫,當然也允許多次連續訪問訪問同個邏輯數據庫。當使用LDB_PROCESS函數來訪問邏輯數據庫時,選擇屏幕將不顯示,其選擇參數由FIELD_SELECTION參數傳入。
2、LDB_PROCESS參數說明
LDBNAME
Name of the logical database you want to call.
VARIANT
Name of a variant to fill the selection screen of the logical database.
The variant must already be assigned to the database program of the
logical database. The data is passed in the same way as when you use the
WITH SELECTION-TABLE addition in a SUBMIT statement.
EXPRESSIONS
In this parameter, you can pass extra selections for the nodes of the
logical database for which dynamic selections are allowed. The data type
of the parameter RSDS_TEXPR is defined in the type group RSDS. The data
is passed in the same way as when you use
the WITH FREE SELECTION addition in a SUBMIT statement.
FIELD_SELECTION
You can use this parameter to pass a list of the required fields for the
nodes of the logical database for which dynamic selections are allowed.
The data type of the parameter is the deep internal table RSFS_FIELDS,
defined in the type group RSFS. The component
TABLENAME contains the name of the node and the deep component FIELDS
contains the names of the fields that you want to read.
The function module has the following tables parameters:
CALLBACK
You use this parameter to assign callback routines to the names of nodes
and events. The parameter determines the nodes of the logical database
for which data is read, and when the data is passed back to the program
and in which callback routine.
SELECTIONS
You can use this parameter to pass input values for the fields of the
selection screen of the logical database. The data type of the parameter
corresponds to the structure RSPARAMS in the ABAP Dictionary. The data
is passed in the same way as when you use the
WITH SELECTION-TABLE addition in a SUBMIT statement.
3、LDB_PROCESS的CALLBACK回調參數的具體字段的說明
LDBNODE
Name of the node of the logical database to be read.
GET
A flag (contents X or SPACE), to call the corresponding callback routine at the GET event.
GET_LATE
A flag (contents X or SPACE), to call the corresponding callback routine at the GET LATE event.
CB_PROG
Name of the ABAP program in which the callback routine is defined.
CB_FORM
Name of the callback routine.
4、回調函數的編寫
回調子程序的標準形式
FORM <subr> USING <node> LIKE LDBCB-LDBNODE
<wa> [TYPE <t>]
<evt>
<check>.
......
ENDFORM.
其中參數說明作用:
<node> contains the name of the node.
<wa> is the work area of the data read for the node. The program
that calls the function module LDB_PROCESS and the program containing
the callback routine do not have to declare interface work areas using
NODES or TABLES. If the callback routine is only used
for one node, you can use a TYPE reference to refer to the data type of
the node in the ABAP Dictionary. Only then can you address the
individual components of structured nodes directly in the subroutine. If
you use the callback routine for more than one node,
you cannot use a TYPE reference. In this case, you would have to
address the components of structured nodes by assigning them one by one
to a field symbol.
<evt> contains G or L, for GET or GET LATE respectively. This
means that the subroutine can direct the program flow using the contents
of <evt>.
<check> allows the callback routine to influence how the program
is processed further (but only if <evt> contains the value G). The
value X is assigned to the parameter when the subroutine is called. If
it has the value SPACE when the subroutine ends, this
flags that the subordinate nodes of the logical database should not be
processed in the function module LDB_PROCESS. This is the same as
leaving a GET event block using CHECK in an executable program. If this
prevents unnecessary data from being read, it will
improve the performance of your program.
5、樣例代碼及說明
1 TABLES spfli. 2 SELECT-OPTIONS s_carr FOR spfli-carrid. 3 4 TYPE-POOLS: rsds, rsfs. 5 6 DATA: callback TYPE TABLE OF ldbcb, 7 callback_wa LIKE LINE OF callback. 8 9 DATA: seltab TYPE TABLE OF rsparams, 10 seltab_wa LIKE LINE OF seltab. 11 12 DATA: texpr TYPE rsds_texpr, 13 fsel TYPE rsfs_fields. 14 15 *設置需要回調的數據節點和回調對應的子程序 16 callback_wa-ldbnode = ‘SPFLI‘. 17 callback_wa-get = ‘X‘. 18 callback_wa-get_late = ‘X‘. 19 callback_wa-cb_prog = sy-repid. 20 callback_wa-cb_form = ‘CALLBACK_SPFLI‘. 21 APPEND callback_wa TO callback. 22 23 CLEAR callback_wa. 24 callback_wa-ldbnode = ‘SFLIGHT‘. 25 callback_wa-get = ‘X‘. 26 callback_wa-cb_prog = sy-repid. 27 callback_wa-cb_form = ‘CALLBACK_SFLIGHT‘. 28 APPEND callback_wa TO callback. 29 30 *設置對應的選擇屏幕的參數的傳入值 31 seltab_wa-kind = ‘S‘. 32 seltab_wa-selname = ‘CARRID‘. 33 34 LOOP AT s_carr. 35 MOVE-CORRESPONDING s_carr TO seltab_wa. 36 APPEND seltab_wa TO seltab. 37 ENDLOOP. 38 39 *調用函數 40 CALL FUNCTION ‘LDB_PROCESS‘ 41 EXPORTING 42 ldbname = ‘F1S‘ 43 variant = ‘ ‘ 44 expressions = texpr 45 field_selection = fsel 46 TABLES 47 callback = callback 48 selections = seltab 49 EXCEPTIONS 50 ldb_not_reentrant = 1 51 ldb_incorrect = 2 52 ldb_already_running = 3 53 ldb_error = 4 54 ldb_selections_error = 5 55 ldb_selections_not_accepted = 6 56 variant_not_existent = 7 57 variant_obsolete = 8 58 variant_error = 9 59 free_selections_error = 10 60 callback_no_event = 11 61 callback_node_duplicate = 12 62 OTHERS = 13. 63 64 IF sy-subrc <> 0. 65 WRITE: ‘Exception with SY-SUBRC‘, sy-subrc. 66 ENDIF. 67 68 *SPFLI節點對應的回調處理函數 69 FORM callback_spfli USING name TYPE ldbn-ldbnode 70 wa TYPE spfli 71 evt TYPE c 72 check TYPE c. 73 CASE evt. 74 WHEN ‘G‘. 75 WRITE: / wa-carrid, wa-connid, wa-cityfrom, wa-cityto. 76 ULINE. 77 WHEN ‘L‘. 78 ULINE. 79 ENDCASE. 80 ENDFORM. "CALLBACK_SPFLI 81 82 *SFIGHT節點對應的回調處理函數 83 FORM callback_sflight USING name TYPE ldbn-ldbnode 84 wa TYPE sflight 85 evt TYPE c 86 check TYPE c. 87 WRITE: / wa-fldate, wa-seatsocc, wa-seatsmax. 88 ENDFORM. "CALLBACK_SFLIGHT
註意:通過‘LDB_PROCESS‘函數訪問邏輯數據庫時,請不要在程序屬性裏綁定邏輯數據庫,否則會出LDB_ALREADY_RUNNING錯誤。
資料來源sap library.
通過LDB_PROCESS函數使用邏輯數據庫