Muster mit Variable

Code: Alles auswählen.

FUNCTION z_eige_namen_editor_exit.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  TABLES
*"      BUFFER TYPE  RSWSOURCET
*"  EXCEPTIONS
*"      CANCELLED
*"----------------------------------------------------------------------
  FIELD-SYMBOLS <inclname> TYPE syrepid.
  FIELD-SYMBOLS <content> TYPE  rswsourcet.
  FIELD-SYMBOLS <line>    TYPE string.
  FIELD-SYMBOLS <cursorindex> TYPE i.

  ASSIGN ('(SAPLLOCAL_EDT1)X_INCLNAME') TO <inclname>.
  IF sy-subrc = 0.
    APPEND '* Wo bin ich ? ' TO buffer.
    APPEND |* befinde mich im INCLUDE { <inclname> }| TO buffer.
    APPEND '* dann ist ja alles gut ! ' TO buffer.
  ENDIF.

* Lese Source
  ASSIGN ('(SAPLLOCAL_EDT1)CONTENT[]') TO <content>.
  IF sy-subrc = 0.
* wo steht der Cursor
    ASSIGN ('(SAPLLOCAL_EDT1)CURSOR-INDEX') TO <cursorindex>.
    IF sy-subrc = 0.
      READ TABLE <content> ASSIGNING <line> INDEX <cursorindex>.
      IF sy-subrc EQ 0.
        APPEND |* Zeile { <cursorindex> } { <line> }  | TO buffer.
      ENDIF.
    ENDIF.
  ENDIF.

ENDFUNCTION.