Moin Uwe,
In dem Beitrag
viewtopic.php?f=31&t=5005hatte ich schon mal das Auflösen von Textincludes behandelt. Es gibt aber nach wie vor
die Funktionsbausteine des Sapscript. Man muß diese eben explizit im Smartform coding aufrufen.
Hier ein Beispiel für das Evaluieren von IF Bedingungen aus der SAPSCRIPT-Welt.
Lege einen Text mit SO10 an. Der Inhalt ist in den Kommentarzeilen.
Setze den Wert der Variablen TEST auf 'X' , bzw. auf SPACE und schau Dir das Ergebnis der internen Tabelle tlin an.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
*&---------------------------------------------------------------------*
*& Report ZTEST_SAPSCRIPT_IF
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
* Textname ZTEST_IF_COMMAND
* ID = ST
* Object = TEXT
* TEST TEXT
* /: IF &TEST& EQ 'X'
* * JA
* /: ELSE
* * NEIN
* /: ENDIF
tid TYPE thead-tdid VALUE 'ST',
lang TYPE thead-tdspras VALUE 'D',
tname TYPE thead-tdname VALUE 'ZTEST_IF_COMMAND',
tobj TYPE thead-tdobject VALUE 'TEXT',
thead type THEAD,
tlin TYPE TABLE OF tline.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = tid
language = lang
name = tname
object = tobj
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
IMPORTING
HEADER = thead
lines = tlin
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
CALL FUNCTION 'TEXT_CONTROL_REPLACE'
EXPORTING
header = thead
* PROGRAM = ' '
* REPLACE_COMMENT = 'X'
* IMPORTING
* CHANGED =
* NEWHEADER =
lines = tlin.
- GeSHi ©
gruß Jens