EDIT TEXT

From Sapwiki

Baustein zum Bearbeiten eines Text-Objektes.

falls noch nicht vorhanden muss mit der Transaktion SE75 ein Text-Objekt angelegt werden. In diesem Beispiel ist es das Objekt ZLO16. In dem Objekt wurde eine Text-ID ZLO1 angelegt. Der eindeutige Name des Textes wird aus der Programmbezeichnung und der fortlaufenden Nummer zusammengesetzt.

Folgende Einstellungen für das Textobjekt ZLO16 haben sich bewährt:

   * Sicherungsmodus: Dialog
   * Editoroberfläche: TN 

Im Beispiel wird zuerst nach einem bereits vorhandenen Text mit der Funktion READ_TEXT gesucht. Ist kein Text vorhanden wird er mit INIT_TEXT angelegt. Anschliessend wird der Text mit EDIT_TEXT bearbeitet. Nach den Änderungen sollte der Text mit COMMIT_TEXT bestätigt werden.

soll der Text nur angezeigt werden, so muss der Baustein EDIT_TEXT mit dem Parameter DISPLAY = 'X' aufgerufen werden

*----------------------------------------------------------------
*  EDITOR -Definitionen
*----------------------------------------------------------------
DATA: texttab LIKE tline OCCURS 2000 WITH HEADER LINE.
DATA: texthead LIKE thead.
DATA: sav_tdname LIKE thead-tdname.

...

***********************************
*Hauptprogramm      
************************************

CONCATENATE 'ZLO16'
                  itab-lfdnr
        INTO sav_tdname
        SEPARATED BY ' '.

      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          id                            = 'ZLO1'
          language                      = sy-langu
          name                          = sav_tdname
          object                        = 'ZLO16'
       IMPORTING
         header                        = texthead
        TABLES
          lines                         = texttab
       EXCEPTIONS
         id                            = 1
         language                      = 2
         name                          = 3
         not_found                     = 4
         object                        = 5
         reference_check               = 6
         wrong_access_to_archive       = 7
         OTHERS                        = 8.

      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

        CALL FUNCTION 'INIT_TEXT'
          EXPORTING
            id       = 'ZLO1'
            language = sy-langu
            name     = sav_tdname
            object   = 'ZLO16'
          IMPORTING
            header   = texthead
          TABLES
            lines    = texttab
          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.
        ENDIF.

      ENDIF.


      CALL FUNCTION 'EDIT_TEXT'
       EXPORTING
*         DISPLAY             = ' '
*         EDITOR_TITLE        = ' '
          header              = texthead
*         PAGE                = ' '
*         WINDOW              = ' '
          save                = 'X'
*         LINE_EDITOR         = ' '
*         CONTROL             = ' '
*         PROGRAM             = ' '
*         LOCAL_CAT           = ' '
*      IMPORTING
*         FUNCTION            =
*         NEWHEADER           =
*         RESULT              =
       TABLES
          lines               = texttab
       EXCEPTIONS
          id                  = 1
          language            = 2
          linesize            = 3
          name                = 4
          object              = 5
          textformat          = 6
          communication       = 7
          OTHERS              = 8.

      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.