Konvertieren einer ABAP Quelldatei in eine HTML-Datei, wobei bereits Befehlsworte, Variablen,
Konstanten und Kommentare in anderen Farben dargestellt werden. Die Quell- und Zieldatei sind
ebenso frei eingebbar wie die Farben in dem Formular im Anschluß an diesen Text,
wobei die Farben der Farbpalette in Hexwerten entsprechen,
wie es in der Internetprogrammierung am gebräuchlisten ist.
Voraussetzung und bitte beachten Sie, daß dieses Beispiel auf FSO-Programmierung
basiert, welche nur unter dem Internet-Explorer (vom Microsoft) funktioniert und bei
welchem die Dateien durch den Computer lokal zu erreichen sein müssen. Die Pfadtrennzeichen
sind nicht der Backslash "\" sondern der Forward-Slash "/" in Anknüpfung an Linux und Unix.
Im Internet befindliche ABAP Programme müssten somit erst lokal gesichert werden,
bevor sie überarbeitet werden können. Die Zieldatei muß ebenfalls bereits vorhanden
sein, das Programm erwartet eine Datei zum Überschreiben. Ein Fragment ist dabei bereits
völlig ausreichend. Das Ergebnis der Überarbeitung ist eine HTML-Seite,
welche von jedem Browser interpretiert werden sollte, sei es Netscape oder Microsoft.
Für den zweiten Start zuvor besser
Aktualisieren oder F5 drücken.
Nach Betätigen des
Konvertierung Knopfes startet das Programm. Am Ende erscheinen
zwei Medlungen, die daß die Seite generiert wurde, sowie eine weitere interne Meldung,
eine Sicherheitsabfrage für den Email-Versand. Beide Meldungen betsätigen Sie bitte, um
wieder in mit diesem Bildschirm weiterarbeiten zu können. Da das ABAP-Konvewrtprogramm
sehr einfach geschrieben ist, nutzt es für die Parameterpflege die HTML-Routinen für den
Formularaufbau, in dem die Emailsicherheitsfrage implementiert ist. Das Ergebnis der
Überarbeitung einer ABAP-Quellsource sieht aus wie der unten abgebildete Teilauszug in
dem weißen Fenster. Die Farben der Ausgabe entsprechen denen der Standardeinstellung
im Formular. Rechtshinweis: BJH Software übernimmt keinerlei Haftung und auch keine
Garantie für die ordnungsgemäße Verarbeitung des Werkzeuges.
*-----------------------------------------------------------*
* Zwischentabelle durch Funktionsbaustein jagen, um den Text
* splitten zu lassen und ausgabefreundlich zu gestalten
*-----------------------------------------------------------*
LOOP AT t_thead.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = t_thead-tdid
language = t_thead-tdspras
name = t_thead-tdname
object = t_thead-tdobject
TABLES
lines = t_lines.
*-----------------------------------------------------------*
* Text ist gesplittet vorhanden, die einzelnen Textzeilen
* verarbeiten in diesem Fall einfach am Bildschirm ausgeben
*-----------------------------------------------------------*
CLEAR wa_lines.
LOOP AT t_lines INTO wa_lines.
WRITE: / wa_lines-tdline.
ENDLOOP.
ENDLOOP.
|