利用BSP call ABAP程序更新数据库表

最新推荐文章于 2024-03-19 16:22:40 发布

congdan0590

最新推荐文章于 2024-03-19 16:22:40 发布

阅读量251

点赞数

需求及解决方案:

1,创建一个数据库表,例如两个字段:ID (char 5),STATUS(char 5),输入几条数据记录

2,创建一个ABAP程序实现屏幕上输入ID号及STATUS,执行时根据对应的ID号更新数据库表中的数据.功能实现后,为此程序创建一个T_code

3,创建一个BSP程序,实现call ABAP 程序的T_code来实现数据更新(因为发现不能直接使用call transcation 语句后面带两个参数的function,而用F1查得,可以有Call transcation using BDC_table的语法,所以想到在BSP里的call之前,先利用ABAP程序录制一个BDC文件并生成其自带的program,创建一个BAPI文件,利用BDC文件生成program里提到的call transaction的方法,实现call 我们自己的Transaction的功能,然后在BSP的OnInputprocessing里call 我们自建的Function.

[@more@]

解决过程.

1.创建数据库表,T_code: SE11,数据库名ZKBSP,两个字段:ID (char 5),STATUS(char 5),输入3条记录:1,open;2,close,3,new.

2,创建一个ABAP程序,T_code: SE80,程序名ZABAP_BSP,实现了根据对应的ID号更新数据库表中的数据功能.并给予其创建一个T_code:ZABAP_BSP程序如下 :

REPORT ZABAP_BSP.
DATA: BEGIN OF IT_OUT OCCURS 100,
ID(5) TYPE C,
Status(5) type C,
END OF IT_OUT.

DATA: WA_OUT LIKE IT_OUT.

SELECTION-SCREEN BEGIN OF BLOCK SEL WITH FRAME TITLE T-001.
PARAMETERS: P_ID(5) TYPE C,
P_STATUS(5) TYPE C.
SELECTION-SCREEN END OF BLOCK SEL.

SELECT SINGLE ID STATUS INTO WA_OUT FROM ZKBSP WHERE ID = P_ID.
IF SY-SUBRC = 0.
WA_OUT-STATUS = P_STATUS.
MODIFY ZKBSP FROM WA_OUT.
MESSAGE 'DATA HAS BEEN MODIFIED SUCCESSFUL!' TYPE 'S'.
ENDIF.

3,利用BDC的方法生成一个call T_code的程序.

1)T_code: SHDB 进入BDC界面

2)录制一段先前做好的ABAP程序执行过程.New Recording->ZBSP->输入需要录制的Transaction code:ZABAP_BSP->Starting Recording->输入执行程序的两个参数->执行->退出->保存->recording 生成.

3)选中先前创建的recording 记录,点击Test Data button->create Test data for recording ->输入一个file name,这个文件将会成为后来生成程序中的BDCDATA dataset.

4)点击Program button,生成BDC的程序,分析程序,找到其中可以实现call T_ code的方法.

4.创建一个Function module ,命名为I_call_BSP,主要功能是利用BDC生成的程序,抽出其中的可以实现call T_code执行程序的方法.

其中Import 为:I_ID type CHAR5;I_STATUS type CHAR5.Export 为Output type I.Source code 部分程序如下:

FUNCTION Z_CALL_BSP.
perform bdc_dynpro using 'ZABAP_BSP' '1000'.
perform bdc_field using 'BDC_CURSOR'
'P_STATUS'.
perform bdc_field using 'BDC_OKCODE'
'=ONLI'.
perform bdc_field using 'P_ID'
I_ID.
perform bdc_field using 'P_STATUS'
I_STATUS.
perform bdc_dynpro using 'ZABAP_BSP' '1000'.
perform bdc_field using 'BDC_OKCODE'
'/EE'.
perform bdc_field using 'BDC_CURSOR'
'P_ID'.
perform bdc_transaction.
ENDFUNCTION.

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.
IF FVAL IS NOT INITIAL.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDIF.
ENDFORM.

FORM bdc_transaction. CALL TRANSACTION 'ZABAP_BSP' USING BDCDATA
MODE 'N'
UPDATE 'L'.(最主要是这一句话实现了这一个BAPI调用T_code的功能)
ENDFORM.

5.创建BSP program, 程序名:ZK_BSP_TEST同样实现根据对应的ID号更新数据库表中的数据功能,

1),创建page1,命名为:first.htm.在Page Attribute tab 里定义两个attribute ,S_ID type ZKBSP-ID;S_STUTAS type ZKBSP-STATUS.记得将auto打上勾.

2),在layout tab里写上如下代码:

<html>
<head>
<title>First Pagetitle>
head>
<body>
<form method="post" action="first.htm">
ID: <input name="S_ID"/><br>
STATUS: <input name="S_STATUS"/><br>
<input value="submit" type="submit" name="OnInputProcessing"/>
form>
body>
html>

3)在event handler中OnInputProcessing事件中,进行call BAPI 实现功能的操作,代码如下

IF S_ID IS NOT INITIAL.
CALL FUNCTION 'Z_CALL_BSP'
EXPORTING
i_id = S_ID
i_status = S_STATUS
IMPORTING
OUTPUT = OUTPUT
.
ENDIF.

if output = 0.
MESSAGE 'sucessful!' type 'S'.
ENDIF.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10339634/viewspace-923787/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10339634/viewspace-923787/

congdan0590

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
利用BSP call ABAP程序更新数据库表

需求及解决方案:1,创建一个数据库表,例如两个字段:ID (char 5),STATUS(char 5),输入几条数据记录2,创建一个ABAP程序实现屏幕上输入ID号及STATUS,执行时根据对应的ID号更新数据库表中的数据.功...
复制链接

扫一扫