SCREEN 程序

*CALL SCREEN 100.
*
*MODULE CANCLE INPUT.
*LEAVE PROGRAM.
*ENDMODULE.
*DATA: INPUT(20) TYPE C VALUE  "初始值" .
**      CODE      TYPE C .
**DATA: OK_CODE TYPE SY-UCOMM,
**      SAVE_OK TYPE SY-UCOMM.
*
*      CALL SCREEN 100.
*-----------------  下拉列表代码------------------
*DATA: OK_CODE TYPE SY-UCOMM,
*      SAVE_OK TYPE SY-UCOMM.
*      TYPE-POOLS VRM.
*DATA: FLD1(20) TYPE C.
*DATA: FNAME TYPE VRM_ID,
*      VVA   TYPE VRM_VALUES,
*      LVVA  LIKE LINE OF VVA .
**-------调用屏幕--------------------
*
*CALL SCREEN 100.
*
**------为下拉列表填充数据-----------
*MODULE STATUS_0100 OUTPUT.
*SET PF-STATUS 'STATUS1'.
*FNAME = 'FLD1'.
*LVVA-KEY = '1'.
*LVVA-KEY = '广州'.
*APPEND LVVA TO VVA.
*CLEAR LVVA .
*FNAME = 'FLD1'.
*LVVA-KEY = '上海'.
*APPEND LVVA TO VVA.
**-----------------------------------
*CALL FUNCTION 'VRM_SET_VALUES'.
*EXPORT .
*ID = FNAME.
*VALUES = VVA.
*ENDMODULE.
**------退出程序---------------------
*MODULE CANCEL INPUT.
*LEAVE PROGRAM.
*ENDMODULE.
*------------------2010.11.15 六章--------------
*------------------HELLO WORD SCREEN------------
*CALL SCREEN 110.
*
*MODULE C INPUT.
*LEAVE PROGRAM.
*ENDMODULE.
*－－－－－－－－程序设计------------------------
DATA: FORINPUT(20) TYPE C VALUE '初始值',
      FORCODE(20)  TYPE C .
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
CALL SCREEN 110.
WRITE : FORINPUT , / FORCODE.
MODULE STATUS_0110 OUTPUT.
SET PF-STATUS 'TESTSTAT1'.
FORCODE = SAVE_OK .
ENDMODULE.