RPG Free Form TR7

[dschroeder]

Ich habe mir gerade die Neuerungen im Handbuch angeschaut. So wie ich es sehe, gibt es leider immer noch keine vernünftige Freeform-Syntax für "CALL". Ich schreibe alle neuen Dinge direkt in FreeForm. Äußerst störend ist für mich, dass man für einen "normalen" Programmaufruf immer wieder ins FixFormat zurück muss. Ich hatte gehofft, dass das endlich gelöst ist. Aber es sieht wohl nicht so aus.
Die in TR7 umgesetzten Dinge (z.B. F-Bestimmungen im Free) sind zwar OK, aber die waren bisher nicht das Problem. Mein Hauptproblem sind die Aufrufe "normaler" Programme. Oder wie macht ihr das? Habt ihr für alle eure Programm-Schnittstellen Prototypes definiert?

Dieter

[B.Hauser]

Dafür gibts doch die CALLPs.
Dazu braucht man lediglich einen Prototypen und schon kann man den Programm-Aufruf über CALLP machen!

Soviel kann ich auf alle Fälle sagen, weder für einen CALL noch einen GOTO oder ähnliche alte Befehle wird es je eine Free-Format-Variante geben.

Birgitta

[camouflage]

Habt ihr für alle eure Programm-Schnittstellen Prototypes definiert?

Ja, und zwar im Copybook.

[dschroeder]

Ja, und zwar im Copybook.

Danke für die Antworten.

Das ist mir schon klar, dass die Prototypes in einer Copy-Strecke stehen sollten. Das ist bei uns natürlich auch so. Aber wir haben im Moment nur Prototypes für Service-Programme deklariert. Wir haben ziemlich viele "normale" Programme. Für alle diese Programme Prototypes anzulegen und zu pflegen, ist ziemlich aufwendig. Für Service-Programme haben wir uns inzwischen ein Tool geschrieben, dass beim Kompilieren den Source interpretiert und einen Prototype-Eintrag in einem Sourcemember generiert. Für normale Programme haben wir das noch nicht gemacht. Es wäre schön, wenn IBM da ein Tool anbieten würde. Ich denke, das Problem hat doch jeder, oder?

Dieter

[Fuerchau]

Nö.
Normalerweise hat man ja bereits Copies für die Aufrufe nach altem Schema (PLIST), die man per CVTRPGSRC ebenso nach ILE überführen kann um sie dann zu verwenden.

Schreibe ich nun ganz neue Programme, kann ich mir successive, so wie ich sie brauche, Prototypen generieren.

Und für neue ILE-Prozeduren ist das ja sowieso nötig.

[dschroeder]

Ich fürchte, ich habe da etwas nicht verstanden. CVTRPGSRC benötige ich doch nur, wenn ich alte RPG/400 Programme in die ILE-RPG Syntax überführen will, oder?

Wir haben alle Programme in ILE-Syntax. Aber nicht alle (ILE)-Programme sind Service-Programme, sondern viele werden mit
normalem CALL (z.B. CALL 'PGM001') aufgerufen. Habt Ihr diese Aufrufe in Copy-Strecken gekapselt? Das kann ich mir im Moment nicht praktikabel vorstellen. Wie übergebt ihr dann Parameter?

Dieter

[Fuerchau]

Ich denke, da wird jeder so seine eigenen Methoden haben.

Die Call-Aufrufe werden häufig in Copy-Strecken als SUBR's definiert.
Einzelwertparameter sind dann oft in den PARM's beschrieben (implizite Definition).
Strukturen liegen als PF's vor, die dann als "E DS" definiert sind.

Vor Aufruf werden dann die Parameter versorgt und nach dem Aufruf die Ergebnisse geprüft.

Was anderes generiert ja nun ILERPG bei den Prototyp-Calls (CONST's, VALUE's) auch nicht, der Compiler nimmt uns nur Arbeit ab.

[dschroeder]

OK, jetzt bin ich wieder im Bilde.

Vielen Dank.

Dieter

[camouflage]

Die Copies haben ja nicht nur die Vorteile der PLIST sondern nun auch den des "EXTPGM".

Ergo lässt sich so ein anderer Programmaufruf (Beispiel, neues Programm) viel schneller ändern - auch wenn die betroffenen Programme wieder gewandelt werden müssen.

Aber mit "Suchen", Option "Compile" ist ja das kein Problem.

[camouflage]

Noch eine kleine Anekdote:

Zitat DBENDER 25.2.2004

Was sind die zwei überflüssigsten RPG Anweisungen im Free Format???
/free und /endfree; das sieht man schon daran, dass keine 
Lochkartenart (Stelle 6) angegeben ist.

p.Z. hier im Forum gefunden

[camouflage]

Uebringens....
Für alle die "frei" sein wollen:
https://www.ibm.com/developerworks/c...ts%20for%20RPG

Nachtrag:
Den guten alten SEU-Editor (ich liebe ihn, obwohl auch RDp im Einsatz) muss man mit diesen Features wohl in den endgültigen Ruhestand schicken. Nur schon die Befreiung von den "free"-statments ist dieses PTF der Download wert.