Prozeduren in Servicepgm von einem Anderen Programm aus aufrufen.

[dholtmann]

Dankeschön,
hab das ausprobiert, es läuft aber auf das Gleiche raus

Objekt QZDMMDTA der Art *SRVPGM in Bibliothek QSOC nicht gefunden.
Definition für Symbol 'PR_D1KO000' nicht gefunden.

[Fuerchau]

Wie heißt denn nun deine Prozedur?
EXTPROC(Prozedurname) im rufenden und EXPORT(Prozedurname) im gerufenen Programm müssen genau übereinstimmen.
Zur Compilezeit wird das Programm gebunden. Sind Importe (wie EXTPROC) nicht vorhanden, kann das Objekt eigentlich nicht erstellt werden.

Außerdem fällt mir auch auf, dass deine DCL-PROC und DCL-PI unterschiedlich sind.
DCL-PROC definiert den Prototyp incl. Parameter der vom Compiler gebunden wird.
DCL-PI definiert die Aufrufschnittstelle der Prozedur selber.
Eigentlich sollte hier der Compiler schon meckern, wenn der selbe Name unterschiedlich definiert ist.
Ggf. ist das der Fluch des Free-Compilers, dass er da nicht mehr zurechtfindet?

[dholtmann]

ich werde die Groß und Kleinschreibung anpassen.
PR und PI passen jedoch zusammen, die Datenstrukturen heißen zwar unterschiedlich, sind aber identisch. Das verwende ich öfter in so einer Kombination.
Ich verwende DS_D1KO likeds(DS_ARTS); und DS_Input likeds(DS_Datei);
nur mit unterschiedlichen Namen, da das eine Programm generiert wird.
Hatte das ganze schon einmal lauffähig, hab es heute aber Stundenlang nicht hinbekommen
(vermutlich aufgrund der Wandlungsart (Da bin ich aber noch dran)).

[Fuerchau]

Ich bezog mich nur auf diese Definition im ersten Post, da fehlte halt die komplette Definition.
Diese muss auch im gerufenen Programm übereinstimmen.
dcl-proc pr_D1KO_chain export ;

[dholtmann]

achso, ja das stimmt.
Hab ich vllt nicht gut aufgeschrieben.

Ich hab mich jetzt doch für ein Bindeverzeichnis entschieden.
Es wäre sonst kompliziert, sich jedes Mal zu merken,
mit welchem Befehl erstellt wurde und
das nächste Serviceprogramm zu ergänzen.
Da finde ich die Bindeverzeichnismethode einfacher.

[Fuerchau]

D*B ist da massiv anderer Meinung wobei ich dir da eher zustimme.
BNDDIR's setzen eben Genauigkeit voraus.

[Pikachu]

Das sind zwei verschiedene Fehler, wobei wahrscheinlich nur der zweite ein Problem ist.

Objekt QZDMMDTA der Art *SRVPGM in Bibliothek QSOC nicht gefunden.
Definition für Symbol 'PR_D1KO000' nicht gefunden.