View Full Version : COBOL Subroutine mittels SQL aufrufen
Hallo Community,
bin neu hier und mit SQL Konform aber weniger mit COBOL.
Folgende Aufgabenstellung bzw. soll umgesetzt werden damit ein mobiles ERP-System mit den LIVE Daten interagieren kann:
Aufrufe über eine ODBC oder JDBC Schnittstelle mittels SQL gegen COBOL Subroutinen (aus PHP PDO [oder SQL Manager]).
Beispiel für 3 Parameter: CALL SCHEMA.SUBROUTINE(' PARAM1 PARAM2 PARAM3');
Erhaltende Fehlermeldung:
SQL-Status: 38501
Vendorencode: -443
Nachricht: [LBE9001] Programm SUBROUTINE in SCHEMA wurde aufgrund von MCH0801 beendet. Ursache . . . . : Das Programm SUBROUTINE in der Bibliothek SCHEMA wurde aufgrund der Nachricht MCH0801 beendet. Fehlerbeseitigung: Siehe die vorherigen Nachrichten.
Verarbeitung wurde beendet, da die hervorgehobene Anweisung nicht erfolgreich abgeschlossen werden konnte.
Weiß nicht ob ich hier richtig bin, ich versuche mal mein Glück ;).
Parameterübergabe falsch:
Fehlermeldung:
Nachrichtentext . . . . . . : Das entsprechende Argument für externe/interne
Parameter wurde nicht übergeben.
versuch mal
CALL SCHEMA.SUBROUTINE('PARAM1' 'PARAM2' 'PARAM3');
versuch mal
CALL SCHEMA.SUBROUTINE('PARAM1' 'PARAM2' 'PARAM3');
Probiert, geht nicht. Ungültiges Token o.ä. ...
Parameterübergabe falsch:
Fehlermeldung:
Nachrichtentext . . . . . . : Das entsprechende Argument für externe/interne
Parameter wurde nicht übergeben.
OK, ich arbeite dran, aber generell antworter die COBOL Routine ja oder?
Zwischen die einzelnen Parameter müssen Kommata:
Call Schema.Subroutine('PARAM1', 'PARAM2', 'PARAM3');
Hast Du die Subroutine auch mit dem SQL-Befehl CREATE OR REPLACE PROCEDURE als stored procedure registriert?
Birgitta
Zwischen die einzelnen Parameter müssen Kommata:
Call Schema.Subroutine('PARAM1', 'PARAM2', 'PARAM3');
Hast Du die Subroutine auch mit dem SQL-Befehl CREATE OR REPLACE PROCEDURE als stored procedure registriert?
Birgitta
Hallo, also es soll ein Teil eines Programms, also nur eine bestimme Sequenz in einem Cobol Hauptprogramm angesprochen werden, ob da "Subroutine" der richtige Begriff kann ich nicht sagen, soweit habe ich es jedenfalls verstanden. Und Nein dieser "Teilbereich" ist nicht mit "CREATE OR REPLACE STORED PROCEDURE" versehen, die Frage ist ob er das muß oder ob es auch irgendwie anders geht .. :)
Ich bin jetzt nicht der Cobol-Programmierer, aber ...
kann die "Subroutine" von außerhalb des Cobol-Programms, also von einem anderen Cobol-Programm aufgerufen werden?
Wenn nein, dann kannst Du diese "Subroutine" auch nicht über SQL aufrufen.
In diesem Fall musst Du aus der "Subroutine" ein Programm machen und dieses mit CREATE OR REPLACE als Stored Procedure registrieren.
Sofern diese "Subroutine" von außen aufgerufen werden kann, musst Du diese "Subroutine" zunächst als SQL Stored Procedure registrieren (also mit CREATE OR REPLACE PROCEDURE).
Wenn Du die Registrierung über ACS (Access Client Solutions - Schemas) durchführst bekommst Du auch eine ganz gute Bedienerführung.
Erst dann wenn die "Subroutine" als Stored Procedure mit Input und Output-Parametern registriert ist, lässt sie sich auch aus einer SQL-Umgebung aufrufen.
Birgitta
Eine COBOL-Subroutine kann von außen nicht direkt aufgerufen werden.
COBOL hat nicht dieselbe Unterstützung bzgl. der Prozeduren wie ILERPG.
SQL erlaubt jedoch, jedes beliebige Hauptprogramm per Call mit Parametern aufzurufen.
Diese sind in COBOL dann in der Linkage-Section passend zu definieren und abzufragen.
Aber besser ist es auf jeden Fall, eine SQL-Prozedur als externe Prozedur mit passenden Aufrufkonventionen zu erstellen. Diese externe Prozedur darf dann wiederum ein anderes Hauptprogramm gerne aufrufen. Das nennt man dann Wrapper-Programm.
Um eine Prozedur eines Programmes aufzurufen, bedarf es für SQL der Registrierung einer Prozedur in einem Service-Programm.
Dies ist auch in COBOL möglich, wenn man ein COBOL-Modul erstellt und dieses dann in ein Service-Programm verpackt.
Die typische Subroutiene in COBOL wird mit PERFORM aufgerufen und entspricht im RPG der EXSR-Anweisung. Dahinter verbirgt sich nur leider kein CALL sondern ein GOTO mit einem Return, der wie ein "go to ." und einem passenden "Alter Label to proceed to" wirkt.
Daher ist ein Perform auch nicht rekursiv aufrufbar.
Eine COBOL-Subroutine kann von außen nicht direkt aufgerufen werden.
COBOL hat nicht dieselbe Unterstützung bzgl. der Prozeduren wie ILERPG.
SQL erlaubt jedoch, jedes beliebige Hauptprogramm per Call mit Parametern aufzurufen.
Diese sind in COBOL dann in der Linkage-Section passend zu definieren und abzufragen.
Aber besser ist es auf jeden Fall, eine SQL-Prozedur als externe Prozedur mit passenden Aufrufkonventionen zu erstellen. Diese externe Prozedur darf dann wiederum ein anderes Hauptprogramm gerne aufrufen. Das nennt man dann Wrapper-Programm.
Um eine Prozedur eines Programmes aufzurufen, bedarf es für SQL der Registrierung einer Prozedur in einem Service-Programm.
Dies ist auch in COBOL möglich, wenn man ein COBOL-Modul erstellt und dieses dann in ein Service-Programm verpackt.
Die typische Subroutiene in COBOL wird mit PERFORM aufgerufen und entspricht im RPG der EXSR-Anweisung. Dahinter verbirgt sich nur leider kein CALL sondern ein GOTO mit einem Return, der wie ein "go to ." und einem passenden "Alter Label to proceed to" wirkt.
Daher ist ein Perform auch nicht rekursiv aufrufbar.
Beim Versuch der Erstellung einer externen Stored Procedure mit LANGUAGE COBOL hat es im ersten Effekt daran gescheitert das ich nicht mehr als 29 Parameter festlegen konnte. Zum Aufruf des Programmes sind mindestens 49 IN Parameter notwendig. Dies ist auch unabhängig von der Größe des Datenfeldes bei 29 war Schluß .. Liege ich da richtig oder ist der Layer 8 das Problem?