text editor in module pool

[Former Member]

hi

i need a module pool pgm for text editor with screens

any one help me.

thanks

[Former Member]

Create a container on screen say 'EDITOR'

in PBO

CALL FUNCTION 'RH_EDITOR_SET'

EXPORTING

repid = sy-repid

dynnr = '0400'

controlname = 'EDITOR'

max_cols = 80

max_lines = 6 "has no effect"

show_tool = 'X'

show_status = 'X'

display_mode = space

TABLES

lines = gt_line

EXCEPTIONS

create_error = 1

internal_error = 2

OTHERS = 3.

Code in PAI

REFRESH gt_line.

CALL FUNCTION 'RH_EDITOR_GET'

EXPORTING

controlname = 'EDITOR'

TABLES

lines = gt_line

EXCEPTIONS

internal_error = 1

OTHERS = 2.

CASE sy-ucomm.

WHEN 'OK'.

IF gt_line[] IS INITIAL.

MESSAGE 'Please specify Reason for rejection' TYPE 'E'.

ELSE.

LEAVE TO SCREEN 0.

ENDIF.

ENDCASE.

In Top include

TYPES: BEGIN OF TY_LINES,

LINE(90) TYPE c,

END OF TY_LINES.

DATA: GT_LINE TYPE TABLE OF TY_LINES WITH HEADER LINE.

data: cont type ref to cl_gui_custom_container,

editor type ref to cl_gui_textedit.

Reward if useful