facing a problem with standard text in custom program

26 Views

Hi,

As per my requirement i need to create a standard text (transaction code s010 ) in custom program using below code. But when click save button then it needs to be come out of the screen without click back button.

CALL FUNCTION 'CREATE_TEXT'

EXPORTING

FID = G_THEAD-TDID

FLANGUAGE = G_THEAD-TDSPRAS

FNAME = G_THEAD-TDNAME

FOBJECT = G_THEAD-TDOBJECT

SAVE_DIRECT = 'X'

FFORMAT = '*'

TABLES

FLINES = I_TLINE

EXCEPTIONS

NO_INIT = 1

NO_SAVE = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

ELSE.

CALL FUNCTION 'EDIT_TEXT'

EXPORTING

HEADER = G_THEAD

SAVE = 'X'

TABLES

LINES = I_TLINE

EXCEPTIONS

ID = 1

LANGUAGE = 2

LINESIZE = 3

NAME = 4

OBJECT = 5

TEXTFORMAT = 6

COMMUNICATION = 7

OTHERS = 8.

IF SY-SUBRC <> 0.

ENDIF.

Can you please help me how to do this

Regards

nag