RPG bald ohne 80 Spaltenbegrenzung

[mihael]

Mit der möglichkeit im SEU eigene Userexits aufzurufen ist der so mächtig geworden, das muß ein PC editor erst mal können (ohne das wie es wieder 'neu' wie eine Makro programmieren)

Userexits hatte ich im SEU nie verwendet und kenne mich damit nicht aus. Was sind denn klassische Beispiele, was man damit löst? Vielleicht lässt sich das ohne viel Aufwand doch umsetzen bzw. ist in anderen graphischen Editoren schon vorhanden.

Gruss

Mihael

[BenderD]

... ich verorte das eher irgendwo bei Freemarker Templates.

PS: schön, von Dir zu hören/lesen!

[mihael]

... Templates ...

Ja, das Gefühl habe ich auch, dass man mit Templates und Snippets in Kombination mit einigen Refactoring Hilfsmitteln (ich denke da an "surrounding with") schon einige Fälle erschlagen kann (u. a. stehen Templates/Snippets auch auf meiner Todo Liste und zwar recht weit oben =D ).

Aber Beispiele von SEU Benutzern würden mich schon interessieren.

Gruss

Mihael

[Robi]

Wir haben damit viel individuellen Kram gelöst, vieles nur in Verbindung mit unserer Projekt/Sourcen Verwaltung.

dcp   vor einer F-Karte:  Zeigt die dds der Datei
      vor einem Prototyp: zeigt das Pgm   
      vor einer /copy   : zeigt die source
      vor einer zeile in der es ein PxxxParm (mit xxx = beliebige Nr) gibt:  
           Zeigt die /Copy Pxxxparm    

ecp   wie dcp, holt aber die source IN die Basissource und markiert diese Zeilen 
        im Kommentar Bereich
         (beim verlassen des Pgm's wird die /copy ins Projekt geholt, 
         falls noch nicht drin und in der geänderten Form gespeichert und als 
         Sourcecode wieder aus dem Pgm entfernt.

msg   vor einer Zeile in der eine Fehlernr. gesetzt wird: Zeigt den Fehlertext.

atr     versucht einen Feldnamen in der Zeile zu finden und zeigt 
         Text, colhdg, Art Länge,dec 
         atr in der Zeile zum 2. mal: nächste Feldsuche ... 

nk bzw 
2 mal nkk  kopie der zeile(n) in eine erfundene 'Zwischenablage'   mit vorherigem löschen

AK bzw
2 mal akk  kopie der Zeile(n) .... ohne vorheriges löschen

Die 'Zwischenablage' ist ein Source file, das allen Pgmmern zur Verfügung steht. Jeder
 hat seine eigene, kann aber auf das eines Kollegen zugreifen bzw sich eigene machen

EZW  Edit des 'Zwischenablage'  im separaten Fenster
 
iwl*xxyyy  mit xx = index nr und yyy = Dateisatzart  (steht für "Ich will lesen")
        generiert den codeblock zum Aufruf des Lesepgm's in die source. 
        mit allen zum Index passenden Key's 

ub bzw
2 mal ubb   macht aus rpgsyntax im ILE pgm:    f1   ifeq f2         if     f1 = F2

IKOx  insert Komentar mit x Zeilen

cow/B/R/P/Y   setzt   Kommentarzeilen vorne, echte Zeile ab kommentarspalte nach 
                             Weiß,Blau/Rot/Pink/Yelow  (auch als Block Befehl)

dre bzw
2 mal dree   macht aus       eval x=y   ein eval y=x

def             macht aus       eval x= y   ein *like define x y

ST bzw
2 mal STT     Sternt eine Zeile mit   c* XX **  xx = zugewiesenes User Kürzel
                   oder es entsternt die Zeile(n)

und einiges mehr ...

[RobertMack]

@Mihael
Mit den Hochgeschwindigkeits-CTRL-SHIFT-Fingerbrechern komme ich zur Not klar - was mir wichtig ist sind Kombinationen wie diese: erstmal H ' ' und dann F 'Irgendwas ' 7 80 a

@Robi
Danke für den Tipp

[Robi]

Nicht falsch verstehen,
unsere SEU Userexit sind ja mal Programmiert worden!

Diese Arbeit will ich nur nicht nochmal machen.
Das ein Standard Editor das nicht können kann ist völlig klar!!

Wenn er 'nur' für RPG ist, währe
atr, dcp, nk, dre, ub, COx, def möglich denn das ist nicht individuell

[mihael]

Kombinationen wie diese: erstmal H ' ' und dann F 'Irgendwas ' 7 80 a

Wenn ich das richtig verstanden habe, willst Du per Tastenkombination/-kürzel einen bestimmten Text (z. B. ein Programmskelett) einfügen.

Das ist genau das, wofür ein Template/Snippet benutzt wird. Wird in MiWorkplace auf jeden Fall umgesetzt.

Gruss

Mihael

[Robi]

OK, du kennst anscheinend SEU nicht

h steht für hide
h ' ' heißt : verstecke alle Zeilen in denen ein ' ' = Blank ist
F heißt finde
f 'irgendwas' 7 80 a heißt finde 'Irgendwas' in den Spalten 7 bis 80 also ohne Kommentar, a = alle

Geht wunderbar um sich mal schnell einen Überblick über eine Programmstruktur zu verschaffen

h ' '
f write 7 80 a
f begsr p (vorheriges ab cursor position )

und schon hast du alle SR's in denen geschrieben wird ...

Robi

[mihael]

Ok. Danke für die Erklärung.

[ExAzubi]

Da bei uns noch tlw. RPG III PRogramm im Einsatz sind, habe wir folgende Zeilen-Commands programmiert:

#KLIST    ==> Man gibt eine Datei an und es wird die KEYLIST generiert
#KOM      ==> Kommentarblock wird eingefügt
#READE   ==> Eine READE-Loop mit allem drum und dran wird generiert
#RENAME ==> I-Karten Umbenunng einer ganzen Datei wird generiert...
#SR        ==> Subroutine-Block wird generiert

Sicher in RPGLE / free wird das nicht mehr benötigt aber da wir ca 67% RPGIII Programme haben, sind das doch sehr angenehme Hilfsmittel.

[mihael]

Danke für die Beispiele. Das meiste davon kann man mittels Templates lösen. Für "Rename" Anforderungen wird es unter dem Stichwort "Refactoring" Möglichkeiten geben.

Dank und Gruss

Mihael

[camouflage]

Irgendwie sexy find ich die integrierte 5250 Terminal Emulation, obwohl die in den meisten Fällen so nicht gebraucht wird.