[AS/400] SEU - Frage

[Doham]

Hi,

im SEU ist es ja möglich z.B. in einem RPG-Quellcode eine (Kommentar)-Zeile in einer anderen Farbe (bei mir weiß) anzuzeigen. Wie mache ich so ein highlighting? Also normaler Quellcode ist grün auf schwarz und diese Zeile ist dann weiß auf schwarz. Meine Kollegin hat dazu auch keine Idee, sie kopiert diese Zeilen ganz einfach.

Irgendwie muss es doch einen Befehl bzw. Befehlstaste dazu geben.

[KleinerChaot]

Hi,

endlich mal ein AS/400ler am Werk ;-)

Also es ist nicht so das es Befehl gibt mit dem du die Zeile Weiß machen kannst. Um die Farbe weiß zu machen mußt du ein Farbbit der Zeile geben in einem Hexcode.

Du führst den Befehl

updf aus, Dann gibst du bei File z.b. qrpglesrc ein und bei Member deine Srource.

Dann kommt eine Maske wo jede Zeichen einer Zeile im Hexcode dargestellt werden.

Dann gehts du her und sucht dir einen Anfangspunkt aus und schreibst 2 2 von oben nach unten also so

xxx2xxxx

xxx2xxxx

Danach drückst du die Taste F12 und gehst mit F1 raus.

Wenn du dann wieder die Source im SEU öffnest ist die Zeile ab dieser Stelle dann weiß.

Aber wenn du die Stelle mit einem Leerzeichen oder einem anderen Buchstaben überschreibst wird sie dann wieder grüm, da das Farbbit dann weg ist.

Wenn du nach Fragen hast kannst mir ja Posten oder mailen hier klicken

Bis dann Gruß kleinerChaot

[Doham]

Originally posted by KleinerChaot

Aber wenn du die Stelle mit einem Leerzeichen oder einem anderen Buchstaben überschreibst wird sie dann wieder grüm, da das Farbbit dann weg ist.

Jepp, das ist mir auch schon aufgefallen. Danke für die schnelle Hilfe

----------------------

EDIT:

Allerdings gibts da noch ein Problem: updf wird nicht als Befehl erkannt. In der Befehlsreferenz (sltcmd *all) finde ich updf auch nicht, nur UPDDTA, UPDPGM und UPDSRVPGM. Entweder bin ich zu blöd oder wir haben ein anderes System als Du. Schade.

Hat sonst noch jemand eine Idee?

----------------------

Do*AS400Beginner*ham

[KleinerChaot]

Hm is ja komisch,

geb mal up* ein dann müßte so eine Lister erscheinen

Auswahl eingeben und Eingabetaste drücken.

1=Auswählen

Ausw Befehl Bibliothek Text

UPDDTA QSYS Daten mit temp. Pgm. fortschr.

UPDPGM QSYS Programm aktualisieren

UPDSRVPGM QSYS Serviceprogramm aktualisieren

UPDDCWINF DCWP Update Remote-Infos to WRMTINFO

UPDF DCWP Update file

UPDF QGPLUSR Dateien anzeigen und verändern

UPDSRCARC TAATOOL Update source archive - UPDSRCARC

UPDSTK TAATOOL Update stack - UPDSTK

Was habt ihr denn für ein System?

[Doham]

Nö, ich bekomm den Befehl immer noch nicht angezeigt. Aber vermutlich liegts daran, dass die Bibliothek DCWP nicht in der aktuellen Libarylist steht. Ich werd mal nachfragen, ob man die mit einbinden kann. (mit edtlibl ). Was ist das für eine Bibliothek - irgendetwas von euch oder kommt die auch von Big Blue ?

[KleinerChaot]

Das ist eine Bib. von DCW aber der Befehl liegt ja auch in der Qgplsur, und die hat jeder, somit liegt es nicht daran.

Vielleicht bist du für den Befehl nich berechtigt, denn Befehle sind ja auch Objekte wo man Benutzerechte hinterlegen kann.

[Doham]

Hmm, ich hab eigentlich wie alle Kollegen die Programiererzugriffsberechtigung.

Hmm, wir haben nur folgende Bibliotheken in der Liste:

"QTEMP, ein paar firmenspezifische Bibliotheken, QGPL, QRPG, ZETDTA, ZETLIB, QSYS38, PCLIB, MNULIB".

Aber ich werd mal unsern Admin fragen. (ala Sesamstraße: "Wieso, weshalb, warum? - Wer nicht fragt bleibt dumm!" ).

Nochmal danke für Deine Hilfe.

[Qube]

UPDF ist kein IBM-Befehl. Wenn du WRKOBJ UPDF* machst, solltest du sehen, dass das Programm (ist eins..) nicht in einer Q*-Bibliothek steht, außer es wurde extra da rein gestellt. Das sollt allerdings nicht so sein.:-)

[bildschirm]

Opt Objekt Typ Bibliothek Attribut Text

UPDF *PGM XY RPG38 Anzeige/Änderung Datenbankd

UPDF *FILE XY DSPF38 Anzeige/Änderung Datenbankd

UPDF *CMD XY Anzeige/Änderung Datenbankd

[/bildschirm]

[Doham]

UPDATE:

(ich hab heut einen Zufallsfund im WWW gemacht)

Vielleicht treiben sich doch noch einige iSeries-Gläubige und RPG-Glücksritter auf dem Forum herum, deshalb als Ergänzung zu den obigen Vorschlägen:

Einfach in Client Access die Tastenzuordnung aufrufen und einer freien Tastenkombination die Zeichenkette "APL yy" zuordnen. (ohne " ).

yy steht für eine Hexzahl.

22 = weiß bzw. ähnlich wie DSPATR(RI).

24 = Unterstreichen

28 = Rot

30 = Türkis

32 = Gelb

38 = Pink

3A = Blau

Wie gesagt einfach einer Taste zuordnen oder in ein Makro schreiben.

Wenn man dann in Spalte1 die Taste drückt und danach Datenfreigabe, wird die Zeile in der jeweiligen Farbe angezeigt. Mann kann auch einzelne Abschnitte einer Zeile einfärben.

Quelle: http://www.martinvt.com/Code_Samples/SEU_Colors/seu_colors.html

[ExAzubi]

Joha,

das war aber mal ein echt geiler Tipp, Danke für den Link, bei der Firma wo ich vorher war, hatten wir die "Source-Code" Farbe per Exit-Programm wählen können, das hier ist aber genau so gut.

Nomals Danke.

Außerdem Gut zu merken, das ich nicht der einzige RPG'ler bin, kam mir schon so einsam vor