View Full Version : ZeilenMarkierung in Source
Hy Leute,
wie kann ich in einer RPG-Source Zeilen farbig Markieren?
Danke
Jamikl
Hallo Jamikl,
einfach diesen Forum nach "ZEILEN FARBIG MARKIEREN" suchen.
Gruss
Thierry
Da bekomme ich genau meinen Post.
Also, weißt du es ??
Dann schreib es mir bitte!!!!!
Danke
VierackerF
28-08-03, 11:43
hallo,
auf ähnliche frage wurde letztes jahr diese gute antwort gegeben:
die Brigitta hat da nen tolles Handout
siehe unter
www.common-d.de
---> aktuelles
---> publikationen
---> workshop vom 04.04.03
---> rpg_ohne_bezugszahlen
hi jamikl,
ich habe einen Sourceeintrag mit allen gängigen Farben.
Aus dem hole ich -bei bedarf- die Zeile (Farbe) die gebraucht wird.
den eintrag könnte ich dir in Form einer SAVFILE zur Verfügung stellen (anhang zu 'ner mail). du müsstest dann den eintrag nur vom pc auf die as bringen, dort entpacken und schon gehts los....
vielleicht ein bisschen kompliziert, but it works.
grundsätzlich: schau auch mal hier nach:
http://www.help400.de/Freeware.htm
gruss, brownie
Hi,
in der news400, vom August 2000 gab's ein SEU EXITpgm
(ich glaube sogar load and go)
das haben wir als Basis für div SUUUUUPER SEU Erweiterungen genommen
Farben war cow = color White, coy, cor ...
Wenn ich wüsste wie's geht, könnt ich 's dir Mailen, bin aber PC-Blöd
Frag mal Burgy
Robi
hi,
nochmal ich.
hier ist auch ein interessanter link!
bin mir allerdins nicht ganz sicher, ob dort auch mit "farbe" gehandelt wird.
trotzdem: reinschauen
http://www.as400pro.com/tips.htm
gruss, brownie
Hallo Jamikl,
um Zeilen im RPG-Code einzufärben, muss der entsprechende Hex-Wert in den Quellcode eingefügt werden.
Die zulässigen Hex-Codes liegen zwischen x'20' und x'3F'
Am besten legst Du Dir eine Source-File mit allen möglichen Farben an und kopierst die Zeilen bei Bedarf.
Das Hex-Zeichen darf im RPG-Code nur auf den Stellen 1-5 oder in einem Kommentar verwendet werden.
Um die Hex-Werte in deine Quellen zu bekommen hast Du folgende Möglichkeiten:
1. Mit SQL:
1.1. Teildatei überschreiben:
OVRDBF FILE(MYSRC)
TOFILE(HAUSER/QRPGLESRC)
MBR(MyMember)
OVRSCOPE(*JOB)
1.2. Update über SQL:
(Im folgenden Beispiel wird die Zeile 25 auf ROT gesetzt)
UPDATE MYLIB/MYSRC
SET SRCDTA = Substr(SRCDTA, 1,
3)!!x'28'!!substr(SrcDta, 5, 92)
WHERE SRCSEQ = 25
2. Die Teildatei mit RPG lesen, den Hex-Wert eintragen und fortschreiben.
3. Falls Ihr zufällig FILEACCESS von der Firma SSS im Einsatz habt, kannst Du die Zeilen auch direkt im Hex-Code verändern.
Birgitta
Danke Britta,
das war es was ich gebraucht habe!!!!:D
Nochmals Danke für Euer reges Interesse!!!!!
Jamikl
Hi Jamikl,
sorry, ich meinte "Zeilen farbig" als Suchbegriff eingeben.
Schuld war KOPIEREN/EINFÜGEN
Gruss
Thierry