ITPub博客

首页 > Linux操作系统 > Linux操作系统 > SAP Dialog From Program [转]

SAP Dialog From Program [转]

原创 Linux操作系统 作者:ultraluck 时间:2019-06-09 22:27:04 0 删除 编辑
Step 1: Create A Program: ZZW_DIALOG_FORM_LUW
Step 2: Data Define Section.
There you must Define:
Data ok_code TYPE Sy-Ucomm.

Step 3: Call SCREEN SCREEN_NUMBER.
e.g: Call Screen 100.

Setp 4: Double Click Screen_Number.
e.g: Double Click 100.

-Screen Painter
1) Element List.
Name Type
OK_CODE OK



-Flow Logic
Write PBO / PAI Process Section.
In Flow Logic Are All Module Define.

e.g:
Process Before OutPut.
Module Init.

Process After Input.
Module exit at exit-command.
...
Module Select.

At There ,You Can Double Click Module and Go To The Program to Write Module.

Module Implementation.
e.g :
Module exit input.
Leave Program.
EndModule.

2)Screen Painter - Design Screen.
Click - Layout or Point GO TO -> Layout.

Step 5: Implementation PBO Module Section.
e.g :
Module Init OutPut.
Set PF-STATS 'BASIC'.
Sflight-Carrid = 'LH'.
Sflight-Connid = '400'.
Sflight-fldate = Sy-datum.
EndModule.

Set PF-Stats is Initialization Screen Menu.
e.g: Set PF-Stats 'BASIC'.
'BASIC' is Screen Menu Name. Inclue [ Menu Bar ] , [Application

Toolbar],[Function Keys]


------
Dialog From Complete Program: ZZW_DIALOG_FORM_LUW

*-----------------------------------------------------------------------
*
* Company ASAT Company Limited
*
* ProgrameName: ZZW_DIALOG_FORM_LUW
*
* Author: Wei_Zhu
*
* Date: 05/12/2006
*
* Description: Study SAP Dialog Form Program and LUW(SAP Lock Databse
* Objec.)
*
*-----------------------------------------------------------------------
REPORT ZZW_DIALOG_FORM_LUW MESSAGE-ID sabapdocu. .

TABLES sflight.

DATA text(8) TYPE c.

DATA ok_code TYPE sy-ucomm.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*& Module init OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module init output.
SET PF-STATUS 'BASIC'.
sflight-carrid = 'LH'.
Sflight-connid = '400'.
* sflight-fldate = sy-datum.
endmodule. " init OUTPUT
*&---------------------------------------------------------------------*
*& Module exit INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module exit input.
LEAVE PROGRAM.
endmodule. " exit INPUT
*&---------------------------------------------------------------------*
*& Module Enqueue INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module Enqueue input.
Case ok_code.
when 'ENQUEUE'.
CALL FUNCTION 'ENQUEUE_EDEMOFLHT'
Exporting
mode_sflight = 'X'
carrid = sflight-carrid
connid = sflight-connid
fldate = sflight-fldate
Exceptions
foreign_lock = 1
system_failure = 2
Others = 3.

CASE sy-subrc.
WHEN 0.
MESSAGE i888 WITH 'Enqueue successful'(001).
WHEN 1.
text = sy-msgv1.
MESSAGE e888 WITH 'Record already'(002) 'locked by'(003)
text.
CALL TRANSACTION 'SM12'.
WHEN 2 OR 3.
MESSAGE e888 WITH 'Error in enqueue!'(004)
'SY-SUBRC:' sy-subrc.
ENDCASE.
WHEN 'DEQUEUE'.
CALL FUNCTION 'DEQUEUE_EDEMOFLHT'
EXPORTING
mode_sflight = 'X'
carrid = sflight-carrid
connid = sflight-connid
fldate = sflight-fldate
EXCEPTIONS
OTHERS = 1.
CASE sy-subrc.
WHEN 0.
MESSAGE i888 WITH 'Dequeue successful'(005).
WHEN 1.
MESSAGE e888 WITH 'Error in dequeue!'(006).
ENDCASE.
WHEN 'SM12'.
call transaction 'SM12'.
WHEN 'SELECT'.
MESSAGE i888 WITH 'SY-SUBRC:' sy-subrc.
ENDCASE.
endmodule. " Enqueue INPUT
*&---------------------------------------------------------------------*
*& Module select INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module select input.
* case ok_code.
* WHEN 'SELECT'.
* SELECT * FROM sflight WHERE carrid = sflight-carrid
* AND connid = sflight-connid
* AND fldate = sflight-fldate.
* ENDSELECT.
MESSAGE i888 WITH 'xxxxxxx'.
* ENDCASE.
endmodule. " select INPUT


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

请登录后发表评论 登录
全部评论

注册时间:2004-12-03

  • 博文量
    167
  • 访问量
    124675