日韩av黄I国产麻豆传媒I国产91av视频在线观看I日韩一区二区三区在线看I美女国产在线I麻豆视频国产在线观看I成人黄色短片

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 >

通过LDB_PROCESS函数使用逻辑数据库

發布時間:2025/3/20 33 豆豆
生活随笔 收集整理的這篇文章主要介紹了 通过LDB_PROCESS函数使用逻辑数据库 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
樣例代碼及說明
TABLES SPFLI.
SELECT-OPTIONS S_CARR FOR SPFLI-CARRID.

TYPE-POOLS: RSDS, RSFS.

DATA: CALLBACK TYPE TABLE OF LDBCB,
  ??? CALLBACK_WA LIKE LINE OF CALLBACK.

DATA: SELTAB TYPE TABLE OF RSPARAMS,
????? SELTAB_WA LIKE LINE OF SELTAB.

DATA: TEXPR TYPE RSDS_TEXPR,
????? FSEL? TYPE RSFS_FIELDS.

??? *設置需要回調的數據節點和回調對應的子程序
??? CALLBACK_WA-LDBNODE???? = 'SPFLI'.
??? CALLBACK_WA-GET???????? = 'X'.
??? CALLBACK_WA-GET_LATE??? = 'X'.
??? CALLBACK_WA-CB_PROG???? = SY-REPID.
??? CALLBACK_WA-CB_FORM???? = 'CALLBACK_SPFLI'.
??? APPEND CALLBACK_WA TO CALLBACK.

??? CLEAR CALLBACK_WA.
??? CALLBACK_WA-LDBNODE???? = 'SFLIGHT'.
??? CALLBACK_WA-GET???????? = 'X'.
??? CALLBACK_WA-CB_PROG???? = SY-REPID.
??? CALLBACK_WA-CB_FORM???? = 'CALLBACK_SFLIGHT'.
??? APPEND CALLBACK_WA TO CALLBACK.

??? *設置對應的選擇屏幕的參數的傳入值
??? SELTAB_WA-KIND = 'S'.
??? SELTAB_WA-SELNAME = 'CARRID'.

??? LOOP AT S_CARR.
??? MOVE-CORRESPONDING S_CARR TO SELTAB_WA.
??? APPEND SELTAB_WA TO SELTAB.
??? ENDLOOP.

??? *調用函數
CALL FUNCTION 'LDB_PROCESS'
???? EXPORTING
????????? LDBNAME???????????????????? = 'F1S'
????????? VARIANT???????????????????? = ' '
????????? EXPRESSIONS???????????????? = TEXPR
????????? FIELD_SELECTION???????????? = FSEL
???? TABLES
????????? CALLBACK??????????????????? = CALLBACK
????????? SELECTIONS????????????????? = SELTAB
???? EXCEPTIONS
????????? LDB_NOT_REENTRANT?????????? = 1
????????? LDB_INCORRECT?????????????? = 2
????????? LDB_ALREADY_RUNNING???????? = 3
????????? LDB_ERROR?????????????????? = 4
????????? LDB_SELECTIONS_ERROR??????? = 5
????????? LDB_SELECTIONS_NOT_ACCEPTED = 6
????????? VARIANT_NOT_EXISTENT??????? = 7
????????? VARIANT_OBSOLETE??????????? = 8
????????? VARIANT_ERROR?????????????? = 9
????????? FREE_SELECTIONS_ERROR?????? = 10
????????? CALLBACK_NO_EVENT?????????? = 11
????????? CALLBACK_NODE_DUPLICATE???? = 12
????????? OTHERS????????????????????? = 13.

IF SY-SUBRC <> 0.
? WRITE: 'Exception with SY-SUBRC', SY-SUBRC.
ENDIF.

*SPFLI節點對應的回調處理函數
FORM CALLBACK_SPFLI USING NAME? TYPE LDBN-LDBNODE
????????????????????????? WA??? TYPE SPFLI
????????????????????????? EVT?? TYPE C
????????????????????????? CHECK TYPE C.
? CASE EVT.
?? WHEN 'G'.
????? WRITE: / WA-CARRID, WA-CONNID, WA-CITYFROM, WA-CITYTO.
????? ULINE.
??? WHEN 'L'.
????? ULINE.
? ENDCASE.
ENDFORM.

*SFIGHT節點對應的回調處理函數
FORM CALLBACK_SFLIGHT USING NAME? TYPE LDBN-LDBNODE
??????????????????????????? WA??? TYPE SFLIGHT
??????????????????????????? EVT?? TYPE C
??????????????????????????? CHECK TYPE C.
? WRITE: / WA-FLDATE, WA-SEATSOCC, WA-SEATSMAX.
ENDFORM.

??? 注意:通過'LDB_PROCESS'函數訪問邏輯數據庫時,請不要在程序屬性里綁定邏輯數據庫,否則會出LDB_ALREADY_RUNNING錯誤。


總結

以上是生活随笔為你收集整理的通过LDB_PROCESS函数使用逻辑数据库的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。