CLLE Variable mit VARLEN?

[Toschie]

Hallo zusammen,

es klappt so gut mit euch.
Da wollte ich es bei meinem letzten Problem für diese Woche nochmal versuchen.
Ich habe ein CL (CLLLE) das ich von extern aufrufen will.
Dieses CL hat 3 Parameter.
1. 10 Zeichen
2. 6 Zeichen
3. 9999 Zeichen
Wenn ich von extern dieses CL aufrufe, und der erste Parm nur 3 Zeichen enthält, wird dieser mit den nächsten Zeichen des 2. Parameters und ggf. je nach Länge des 2. Parameters mit Werten aus dem 3. Parameter aufgefüllt.
Ich vermute dass das ganze irgendwie mit der Reservierung bzw. Speicherverwaltung zusammen hängt.

Gibt es eine Möglichkeit von außen "variable Längen" an das CL weiter zu geben?
So dass auch im ersten Parm wirklich nur DAS steht was i übermittelt habe?

[Fuerchau]

Kommt darauf an, wie du das Programm aufrufst.
Wenn die Parameter so definiert sind, dann darfst du das auch nicht anders aufrufen.
Leider gibt es keine Aufrufprüfung für Parameter.

Sicherlich werden die Parameter beim Call aus der Kommandozeile hintereinander abgelegt.

Es war schon immer so, wenn die Übergabe nicht passt wird auf Speicher der einem nicht gehört zugegriffen.

Wenn du variable Felder benötigst, so solltest du halt eine Längeninformation voranstellen.
Im RPGLE als "varying" definiert, steht in 2 Bytes vorneweg die Länge.

In CLLE kann man dann per %bin die Länge auswerten und mit %sst dann auf den Teilstring zugreifen.

[Toschie]

Aber ILE kann keine Variablen Entry-Parms oder?

hast du ggf. ein konkretes Beispiel?

[Pikachu]

Am besten geht das mit einem selbst erstellten Befehl (CMD) mit Parametern, der dann die Paramter immer in der entsprechenden Länge an das CL-Programm weitergibt:

CMD                                                      
PARM       KWD(NAME) TYPE(*CHAR) LEN(10)   PROMPT('Name')
PARM       KWD(FACH) TYPE(*CHAR) LEN(6)    PROMPT('Fach')
PARM       KWD(TEXT) TYPE(*CHAR) LEN(9999) PROMPT('Text') 

[Toschie]

Muss der Command dann vom Kunden gestartet werden?
Also

CMD 
PARM KWD(NAME) TYPE(*CHAR) LEN(10) PROMPT('Name') 
PARM KWD(FACH) TYPE(*CHAR) LEN(6) PROMPT('Fach') 
PARM KWD(TEXT) TYPE(*CHAR) LEN(9999) PROMPT('Text') 

Oder wie muss das passieren?
Ich kenne das noch nicht.

[Pikachu]

Ein eigener Befehl wird mit "Befehl erstellen (CRTCMD)" erstellt. Eventuell mußt das Befehlverarbeitungsprogramm qualifiziert mit Bibliothek angegeben werden, damit es später gefunden wird. Der Befehl wird dann genauso aufgerufen, wie die von IBM gelieferten Befehle, zum Beispiel WRKACTJOB, WRKSPLF, DSPMSG usw.

[ExAzubi]

Pointer wären eine Lösung. Wen aus RPGLE das CL aufgerufen wird, kannst du auch Pointer übermitteln!

[Fuerchau]

Auch Pointer lösen das Problem nicht, da an das aufgerufene Programm sowieso nur Pointer übergeben werden.

Aufrufparameter stellen eine Konvention dar, die genauestens einzuhalten ist.
Eine Laufzeitprüfung über den Typ gibt es leider nicht.

Bei CLP's wird zumindest die Anzahl der Parameter festgelegt (siehe DSPPGM), bei HLL's (COBOL, RPGLE) noch nicht mal das. Hier kann man zwischen 0 und 255 Parametern übergeben, egal ob sie gebraucht werden oder nicht.

Eine Typisierung bzw. Typprüfung wird nicht unterstützt, man kann nocht nicht mal die Art der Definition (Zeichen, Numerisch, usw.) per Programm prüfen außer per MONMSG (bzw. Monitor-Anweisung) eine MCH-Überwachung zu programmieren.

Ich habe mir des öfteren Wrapper-CLP's geschrieben, die die Parameter nur mit CHAR(1) definiert haben, um dann die "Adressen" der Parameter an die nächste Ebene zu üergeben.

CMD's sind eine gute Lösung dieses Problem zu lösen, wenn das Programm per Kommandozeile oder QCMDEXC aufgerufen wird.
Zumal sich mit optionalen Parametern dann Defaults übergeben lassen.

Aufgerufen wird dann nicht das Kommando CALL sondern das per CRTCMD erstellte Kommando (genau wie alle anderen Kommandos des Systems).

[cbe]

Oder man macht es wie IBM: Das CL nimmt 2 Parameter entgegen, der eine enthält die Zeichenkette, der andere die Anzahl übergebener Bytes.

Berühmtestes Beispiel dafür wäre:
CALL QCMDEXC ('DSPMSG' 6)


Kommandos sind praktisch, aber ich finde sie aus RPG heraus so schlecht aufrufbar.


Hier ein paar technische Details zu Parametern:
Bei einem Call werden für Parameter nur Pointer übergeben. Diese zeigen auf den Speicherbereich, der im rufenden Programm festgelegt wird.
Es kann passieren, dass das gerufene Programm in einem zu lang definierten Parameter Daten sieht, die nicht für diesen Parameter bestimmt sind.
Wenn man also weiß wie lang Daten gefüllt sind, kann man das mit %SST rausziehen.


Nebenbei: Lustig bei Parametern ist auch, wenn man im rufenden Programm eine Variable _mehrfach_ angibt.
Dann ist im gerufenen Programm der Effekt, dass wenn der eine Parameter verändert wird, der andere wie von Geisterhand ebenfalls geändert ist. (Da habe ich mal lange debuggt und war fast verzweifelt...)

[Fuerchau]

Das kann bei ILE nicht mehr passieren, wenn der Parameter als CONST definiert wird.
Dann legt der Compiler eine Kopie an und kopiert den Inhalt.