REPORT  YTEST20160614002.
DATA:OK_CODE TYPE SY-UCOMM,SAVE_OK TYPE SY-UCOMM.
*定义控制和图像对象定义
DATA CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA PICTURE TYPE REF TO CL_GUI_PICTURE.
*初始标志字段定义
DATA INIT.CALL SCREEN 100.MODULE USER_COMMAND_0100 INPUT.SAVE_OK = OK_CODE.CLEAR OK_CODE.CASE SAVE_OK.WHEN 'CANCEL'.LEAVE PROGRAM.ENDCASE.
ENDMODULE.MODULE STATUS_0100 OUTPUT.SET PF-STATUS 'STATUS1'.
*如果还未创建定制对象IF INIT IS INITIAL.
*图片地址字段定义DATA URL(255).CLEAR URL.
*创建对象CREATE OBJECT CONTAINEREXPORTING CONTAINER_NAME = 'P1'.CREATE OBJECT PICTUREEXPORTING PARENT = CONTAINEREXCEPTIONS ERROR = 1.IF SY-SUBRC NE 0.ENDIF.
*定义通用函数取得图片地址PERFORM LOAD_PIC_DB CHANGING URL.
*显示图片CALL METHOD PICTURE->LOAD_PICTURE_FROM_URLEXPORTINGURL = URL.IF SY-SUBRC NE 0.ENDIF.
*置标志位已初始INIT = 'X'.ENDIF.
ENDMODULE.*获取图片地址通用函数
FORM LOAD_PIC_DB CHANGING P_URL.DATA QUERY_TABLE LIKE W3QUERY OCCURS 1 WITH HEADER LINE.DATA HTML_TABLE LIKE W3HTML OCCURS 1.DATA RETURN_CODE LIKE W3PARAM-RET_CODE.DATA CONTENT_TYPE LIKE W3PARAM-CONT_TYPE.DATA CONTENT_LENGTH LIKE W3PARAM-CONT_LEN.DATA PIC_DATA LIKE W3MIME OCCURS 0.DATA PIC_SIZE TYPE I.REFRESH QUERY_TABLE.
*查询对象数据QUERY_TABLE-NAME = '_OBJECT_ID'.
*图片对象名称QUERY_TABLE-VALUE = 'ZTESTPIC'.APPEND QUERY_TABLE.
*读取WWWDATA表，取得图片对象信息CALL FUNCTION 'WWW_GET_MIME_OBJECT'TABLESQUERY_STRING = QUERY_TABLEHTML = HTML_TABLEMIME = PIC_DATACHANGINGRETURN_CODE = RETURN_CODECONTENT_TYPE = CONTENT_TYPECONTENT_LENGTH = CONTENT_LENGTHEXCEPTIONSOBJECT_NOT_FOUND = 1PARAMETER_NOT_FOUND = 2OTHERS = 3.IF SY-SUBRC EQ 0.PIC_SIZE = CONTENT_LENGTH.ENDIF.
*创建图片URL地址CALL FUNCTION 'DP_CREATE_URL'EXPORTINGTYPE = 'image'SUBTYPE = CNDP_SAP_TAB_UNKNOWNSIZE = PIC_SIZELIFETIME = CNDP_LIFETIME_TRANSACTIONTABLESDATA = PIC_DATACHANGINGURL = URLEXCEPTIONSDP_INVALID_PARAMETER = 1DP_ERROR_PUT_TABLE = 2DP_ERROR_GENERAL = 3OTHERS = 4.
ENDFORM.

4.4、程序输出

5.2、文本编辑器程序

REPORT  YTEST20160614003.
DATA: OK_CODE TYPE SY-UCOMM,SAVE_OK TYPE SY-UCOMM.
*初始标志字段定义
*定制控制和编辑对象定义
DATA: INIT,CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,EDITOR TYPE REF TO CL_GUI_TEXTEDIT.DATA: M1(256) TYPE C OCCURS 0,LINE(256) TYPE C.
*输入初始值
LINE = '请输入'.
APPEND LINE TO M1.CALL SCREEN 100.REFRESH M1.CALL METHOD EDITOR->GET_TEXT_AS_R3TABLEIMPORTINGTABLE = M1.
*逐行输出
LOOP AT M1 INTO LINE.WRITE / LINE.
ENDLOOP.MODULE USER_COMMAND_0100 INPUT.SAVE_OK = OK_CODE.CLEAR OK_CODE.CASE SAVE_OK.WHEN 'CANCEL'.LEAVE TO SCREEN 0.ENDCASE.
ENDMODULE.MODULE STATUS_0100 OUTPUT.SET PF-STATUS 'STATUS1'.
*如果还未创建定制对象IF INIT IS INITIAL.INIT = 'X'.CREATE OBJECT: CONTAINER EXPORTING CONTAINER_NAME = 'P1'.CREATE OBJECT EDITOREXPORTINGPARENT = CONTAINERWORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITIONWORDWRAP_POSITION = 256WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.ENDIF.
*读入初始数据CALL METHOD EDITOR->SET_TEXT_AS_R3TABLEEXPORTINGTABLE = M1.
ENDMODULE.

5.3、输出

单击“CANCEL”按钮，退出文本编辑器屏幕，输出内表记录，如图

REPORT  YTEST20160614004.
DATA: OK_CODE TYPE SY-UCOMM,SAVE_OK TYPE SY-UCOMM,CITYID(20) TYPE C.
TABLES YTJAYSCHOOL.CALL SCREEN 100.MODULE CANCEL INPUT.LEAVE PROGRAM.
ENDMODULE.MODULE USER_COMMAND_0100 INPUT.SAVE_OK = OK_CODE.CLEAR OK_CODE.IF SAVE_OK EQ 'BTN1'.LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.SUPPRESS DIALOG.SELECT *FROM YTJAYSCHOOL WHERE YCT_ID = CITYID.WRITE: / YTJAYSCHOOL-YCT_ID, YTJAYSCHOOL-YSH_ID,YTJAYSCHOOL-YSH_NAME, YTJAYSCHOOL-YSH_ADDR.ENDSELECT.ENDIF.WRITE:/ 'DONE'.
ENDMODULE.

系统输出如图

选择输出位置，单击后，系统自动创建输入文本和输出字段，添加退出按钮，如图

REPORT  YTEST20160615001.*功能码返回值
DATA: OK_CODE TYPE SY-UCOMM,SAVE_OK TYPE SY-UCOMM.TABLES YTJAYSCHOOL.START-OF-SELECTION.SELECT * FROM YTJAYSCHOOL.WRITE:/ YTJAYSCHOOL-YCT_ID, (15) YTJAYSCHOOL-YSH_ID,(15) YTJAYSCHOOL-YSH_NAME, (15) YTJAYSCHOOL-YSH_ADDR.HIDE: YTJAYSCHOOL-YCT_ID, YTJAYSCHOOL-YSH_ID,YTJAYSCHOOL-YSH_NAME,  YTJAYSCHOOL-YSH_ADDR.ENDSELECT.AT LINE-SELECTION.CHECK NOT YTJAYSCHOOL-YSH_ID IS INITIAL.CALL SCREEN 100.MODULE CANCEL INPUT.LEAVE PROGRAM.
ENDMODULE.MODULE USER_COMMAND_0100 INPUT.SAVE_OK = OK_CODE.CLEAR OK_CODE.CASE SAVE_OK.WHEN 'CANCEL'.LEAVE PROGRAM.ENDCASE.
ENDMODULE.

当选择某一行，输出结果如图