dialog之多行文本的使用

来源：互联网发布：阿里云华北华东华南编辑：程序博客网时间：2024/05/21 17:18
REPORT  Z_CHANGWENBEN_001.DATA: CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,      EDITOR01    TYPE REF TO CL_GUI_TEXTEDIT.START-OF-SELECTION.  CALL SCREEN 0100.*&---------------------------------------------------------------------**&      Module  STATUS_0100  OUTPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE STATUS_0100 OUTPUT.  SET PF-STATUS 'S0100'.*  SET TITLEBAR 'xxx'.ENDMODULE.                 " STATUS_0100  OUTPUT*&---------------------------------------------------------------------**&      Module  USER_COMMAND_0100  INPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE USER_COMMAND_0100 INPUT.  LEAVE TO SCREEN 0.ENDMODULE.                 " USER_COMMAND_0100  INPUT*&---------------------------------------------------------------------**&      Module  INIT  OUTPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE INIT OUTPUT.  PERFORM CREATE_CON.  PERFORM CREATE_EDI.ENDMODULE.                 " INIT  OUTPUT*&---------------------------------------------------------------------**&      Form  CREATE_CON*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM CREATE_CON .  IF CONTAINER IS INITIAL .    CREATE OBJECT CONTAINER      EXPORTING        CONTAINER_NAME = 'CONTAINER01'.  ENDIF.ENDFORM.                    " CREATE_CON*&---------------------------------------------------------------------**&      Form  CREATE_EDI*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM CREATE_EDI .  IF EDITOR01 IS INITIAL.    CREATE OBJECT EDITOR01      EXPORTING         PARENT = container         WORDWRAP_MODE = cl_gui_textedit=>WORDWRAP_AT_FIXED_POSITION         WORDWRAP_POSITION = 20         WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>FALSE         MAX_NUMBER_CHARS = 100000.  ENDIF.ENDFORM.                    " CREATE_EDI
0 0