ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 培训的时候,一些比较好的程序

培训的时候,一些比较好的程序

原创 Linux操作系统 作者:chouer523 时间:2019-04-22 11:45:04 0 删除 编辑

*******************************************
**原创文章,版权所有,转载请保留信息
**msn:njchouer@hotmail.com
**作者:chouer
*******************************************


*&---------------------------------------------------------------------*
*& Report SAPBC405_ILBD_FIELD_SELECTION * *&
* *&-------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT sapbc405_ilbd_field_selection LINE-SIZE 83.
*使用逻辑数据库
NODES: spfli.
*定义变量
DATA: wa_carrname LIKE scarr-carrname,
wa_fldate LIKE sflight-fldate,
field_name(30), field_value(4),
quick_car(20), quick_con(20).
*定义常量
CONSTANTS: line_size TYPE i VALUE 83.
*开始屏幕事件 START-OF-SELECTION.
MOVE text-q01 TO quick_car.
MOVE text-q02 TO quick_con.
*从spfli表中取参数
GET spfli FIELDS carrid connid cityfrom cityto.
*格式化字体
FORMAT COLOR COL_KEY.
WRITE: sy-vline,
spfli-carrid QUICKINFO quick_car,
spfli-connid QUICKINFO quick_con.
FORMAT COLOR COL_NORMAL.
*其中at line_size sy-vline.的功能是对一行的栏位置进行颜色配置
WRITE: spfli-cityfrom,
spfli-cityto,
AT line_size sy-vline.
HIDE: spfli-carrid,
spfli-connid.

END-OF-SELECTION.

AT LINE-SELECTION.
* Cursor information 取得鼠标点击栏位的参数
GET CURSOR FIELD field_name VALUE field_value.
CASE field_name.
WHEN 'SPFLI-CARRID'.
SELECT carrname INTO wa_carrname FROM scarr
WHERE carrid = spfli-carrid.
WRITE: field_value, ':',
wa_carrname.
ENDSELECT.
*画出显示的对话框
WINDOW STARTING AT 15 10 ENDING AT 50 15.
WHEN 'SPFLI-CONNID'.
FORMAT COLOR COL_HEADING.
WRITE: spfli-carrid, field_value.
SELECT fldate INTO wa_fldate
FROM sflight
WHERE carrid = spfli-carrid
AND connid = spfli-connid.
FORMAT RESET.
WRITE: /4 wa_fldate.
ENDSELECT.
WINDOW STARTING AT 15 10 ENDING AT 50 15.
ENDCASE.

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

下一篇: 情感小语
请登录后发表评论 登录
全部评论

注册时间:2019-03-28

  • 博文量
    25
  • 访问量
    19395