Function Module To Check and Make changes

Question

hi
i have created a FM which have following code , i have created that one for updating header data of Notification
the Fm module are as following code
Import
Notif      Type    qmnum      (check box pass value) 
Export
TT_data  type   zNotif_data    (where ZNotif_data is a table type which having fields qmnum qmart priok etc....)
source code:---
select qmnum
       qmart
       priok
       ernam
       qmdat
       from qmel
       into table tt_data
       up to 1000 rows.
data : it_tlines like tline occurs 0 with header line.
data : it_text1 like thead occurs 0 with header line.
data : x_header type thead.
      x_header-tdobject = 'feature'.
      x_header-tdname  = '99999996020000'.
      x_header-tdid    = 'head'.
      x_header-tdspras = 'D'.
      loop at it_tlines.
      it_tlines-tdformat = '*'.
      it_tlines-tdline = it_text1-tdtxtlines.
      append it_tlines.
      endloop.
      CALL FUNCTION 'SAVE_TEXT'
        EXPORTING
        CLIENT                = SY-MANDT
          HEADER                = x_header
         INSERT                = ' '
         SAVEMODE_DIRECT       = 'X'
        OWNER_SPECIFIED       = ' '
        LOCAL_CAT             = ' '
      IMPORTING
        FUNCTION              =
        NEWHEADER             =
        TABLES
          LINES                 = it_tlines
       EXCEPTIONS
         ID                    = 1
         LANGUAGE              = 2
         NAME                  = 3
         OBJECT                = 4
         OTHERS                = 5
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      commit work and wait.
      update stxh set tdobject = 'D'
      where tdobject = notif.
        ENDIF.
ENDFUNCTION.
I M rtying it but it is not working.
if any one have idea please help me.
Edited by: Thomas Zloch on Apr 25, 2011 10:50 PM - please cut it down with the exclamation marks

Answer 1

Hi,
Please find a piece of working code for your requirement as mentioned below. This code is working fine in my system.
Edit Text
HEADER-TDOBJECT = 'QMEL'.       "Should be given as QMEL in capital letters
HEADER-TDNAME = gfl_notif-QMNUM.     "Should pass the Notification number with leading zeros.
HEADER-TDSPRAS = 'E'.                          "Should be given as E in capital letters
HEADER-TDID = 'LTXT'.                             "Should be given as LTXT in capital letters
header-tdlinesize = '072'.
>Text1
lines-TDFORMAT = '*'.
lines-TDLINE = 'Text1'.            "Pass the Header text values one by one.
APPEND lines to git_lines.
CLEAR lines.
>Text2
lines-TDFORMAT = '*'.
lines-tdline = 'Text2'.            "Pass the Header text values one by one.
APPEND LINES to git_lines.
CLEAR lines.
>Text3
lines-TDFORMAT = '*'.
lines-tdline = 'Text3'.            "Pass the Header text values one by one.
APPEND LINES to git_lines.
CLEAR lines.
Here call function CREATE_TEXT ior SAVE_TEXT
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
FID = HEADER-TDID
FLANGUAGE = HEADER-TDSPRAS
FNAME = HEADER-TDNAME
FOBJECT = HEADER-TDOBJECT
SAVE_DIRECT = 'X'
FFORMAT = '*'
TABLES
FLINES = GIT_LINES
EXCEPTIONS
NO_INIT = 1
NO_SAVE = 2
OTHERS = 3
OR
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = HEADER
INSERT = ' '
SAVEMODE_DIRECT = 'X'
TABLES
LINES = GIT_LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
HERE PUT A BREAK POINT AND SEE WHETHER SY-SUBRC IS EQUAL TO ZERO OR NOT. IF NOT EQUAL TO ZERO, THEN CHECK WHAT IS THE ERROR MESSAGE AND CORRECT THE SAME.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
OBJECT = header-tdobject
NAME = header-tdname.
set long text flag because create text does not do it
SELECT SINGLE indtx INTO long_text_ind FROM qmel WHERE qmnum = gfl_notif-QMNUM.     "PROVIDE THE NOTIFICATION NUMBER WITH LEADING ZEROS.
IF long_text_ind IS INITIAL.
UPDATE qmel SET indtx = 'X' WHERE qmnum = gfl_notif-QMNUM.  "PROVIDE THE NOTIFICATION NUMBER WITH LEADING ZEROS.
ENDIF.
Thanks & Regards,
Harish