相關(guān)t-code sldb 一定要清空 ：轉(zhuǎn)到-〉屬性-〉邏輯數(shù)據(jù)庫設(shè)定

*&---------------------------------------------------------------------*
*& Report? YZXUTEST12
*&
*&---------------------------------------------------------------------*
*&
*& PROGRAM SAPDBHKS
*&---------------------------------------------------------------------*

REPORT? yzxutest12
.
*0090018291
TABLES:mkpf,bseg,ska1,skb1.
DATA wa_bkpf TYPE bkpf.
*PARAMETERS:p_month(2) TYPE n.
SELECT-OPTIONS s_budat FOR wa_bkpf-budat.
SELECT-OPTIONS s_belnr FOR wa_bkpf-belnr.
*SELECT-OPTIONS: sd_ktopl??? FOR? ska1-ktopl.
*SELECT-OPTIONS: sd_saknr??? FOR? ska1-saknr MATCHCODE OBJECT sako.
*SELECT-OPTIONS: sd_bukrs??? FOR? skb1-bukrs.
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.
*TYPES: BEGIN OF rsds_expr,
*???????? tablename LIKE rsdstabs-prim_tab,
*???????? expr_tab TYPE rsds_expr_tab,
*?????? END OF rsds_expr.

DATA: texpr TYPE rsds_texpr,
????? fsel? TYPE rsfs_fields.

*callback_wa-ldbnode???? = 'BKPF'.
*callback_wa-get???????? = 'X'.
*callback_wa-get_late??? = 'X'.
*callback_wa-cb_prog???? = sy-repid.
*callback_wa-cb_form???? = 'CALLBACK_BKPF'.
*APPEND callback_wa TO callback.

CLEAR callback_wa.
callback_wa-ldbnode???? = 'BSEG'.
callback_wa-get???????? = 'X'.
callback_wa-cb_prog???? = sy-repid.
callback_wa-cb_form???? = 'CALLBACK_BSEG'.
APPEND callback_wa TO callback.

seltab_wa-kind = 'S'.
seltab_wa-selname = 'BR_BUDAT'.

LOOP AT s_budat.
? MOVE-CORRESPONDING s_budat TO seltab_wa.
? APPEND seltab_wa TO seltab.
ENDLOOP.
seltab_wa-kind = 'S'.
seltab_wa-selname = 'BR_BELNR'.

LOOP AT s_belnr .
? MOVE-CORRESPONDING s_belnr TO seltab_wa.
? APPEND seltab_wa TO seltab.
ENDLOOP.

CALL FUNCTION 'LDB_PROCESS'
? EXPORTING
??? ldbname???????????????????? = 'BRF'
??? 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.

*&---------------------------------------------------------------------*
*&????? Form? callback_bkpf
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*????? -->NAME?????? text
*????? -->WA???????? text
*????? -->EVT??????? text
*????? -->CHECK????? text
*----------------------------------------------------------------------*
*FORM callback_bkpf USING name? TYPE ldbn-ldbnode
*????????????????????????? wa??? TYPE bkpf
*????????????????????????? evt?? TYPE c
*????????????????????????? check TYPE c.
*? CASE evt.
*??? WHEN 'G'.
**????? WRITE: / wa-carrid, wa-connid, wa-cityfrom, wa-cityto.
*????? IF check = 'X'.
*??????? WRITE:/ wa-belnr,.
*????? ENDIF.
*????? ULINE.
*??? WHEN 'L'.
*????? ULINE.
*? ENDCASE.
*ENDFORM.??????????????????? "callback_bkpf

*&---------------------------------------------------------------------*
*&????? Form? callback_sflight
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*????? -->NAME?????? text
*????? -->WA???????? text
*????? -->EVT??????? text
*????? -->CHECK????? text
*----------------------------------------------------------------------*
FORM callback_bseg USING name? TYPE ldbn-ldbnode
??????????????????????????? wa??? TYPE bseg
??????????????????????????? evt?? TYPE c
??????????????????????????? check TYPE c.
*? WRITE: / wa-fldate, wa-seatsocc, wa-seatsmax.
? IF check = 'X'.
??? WRITE:/ wa-belnr , wa-buzei,wa-hkont,wa-saknr.
* append wa to? it_)ddd.
? ENDIF.
ENDFORM.??????????????????? "callback_sflight

總結(jié)

以上是生活随笔為你收集整理的逻辑数据库读取bseg的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。