Funktion 'SYSTEM' in Ile Cobol aufrufen oder CL-Befehl mit Returncode

[Fuerchau]

@Dieter
Im- und Export geht auch in COBOL, schließlich ist es ja ILE.

[BenderD]

Hallo,

dann braucht man nur _EXCP_MSGID zu importieren (sieben stellig alfa deklarieren) und beim binden das Binding directory QC2LE mit zu verwenden. In dieser Variable steht dann immer die letzte aufgetretene CPF Message drin, man muss also vor dem Aufruf von system initialisieren und bei Rückgabe von 1 durch system die Variable auslesen.

mfg

Dieter Bender

@Dieter
Im- und Export geht auch in COBOL, schließlich ist es ja ILE.

[rebe]

Hallo Dieter,

wie geht denn Variablen importieren?
Ich kenne nur "copy member of sourcedatei".

Ich kann die Prozedur SYSTEM nicht aufrufen.

IDENTIFICATION DIVISION.
PROGRAM-ID. T4.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 cl-cmd pic x(256).
77 fehler pic s9(9) comp-4.

PROCEDURE DIVISION.
H1.
move "DLYJOB DLY(2)" to cl-cmd
call procedure "SYSTEM" using cl-cmd returning fehler
goback.


Ich wandle das Programm um mit CRTBNDCBL mit Binderverzeichnis QC2LE. Fehlermeldung:

Nachricht . . . : Definition für Symbol 'SYSTEM' nicht gefunden.
Ursache . . . . : Für Referenz SYSTEM in *MODULE Objekt T4 der Bibliothek
QTEMP wurde keine Definition gefunden. Entweder ist die Definition nicht
vorhanden, oder sie gehört nicht zu demselben Datentyp oder derselben
Prozedurart wie die Referenz. Fehlerbeseitigung: Den Befehl CRTPGM
(Programm erstellen) wiederholen, wobei ein Objekt angegeben wird, das eine
Definition für Symbol SYSTEM enthält.

Was mache ich falsch?
Vielen Dank für Hinweise schon mal.

Grüße
Reiner

[Fuerchau]

Siehe oben:

process NOMONOCASE <= Namen nicht in Grossbuschstaben

Der Name der Prozedur ist "system" und nicht "SYSTEM", casesensitive.

[rebe]

"system" klein habe ich probiert.
Macht das Umwandlungsprogramm raus:

* 10 ID: LNC0047 BEW.STUFE 20 FOLGENR. 001400
Nachricht . . . : Programmname '"system"' ist ungültig. Als
'"SYSTEM"' akzeptiert.

Und dann kommt wieder die gleiche Fehlermeldung wie angegeben.

Muß ich da beim Umwandeln noch einen Schalter setzen?

Reiner

[Fuerchau]

Ok, kleiner Fehler von mir.

Vor der IDENTIFICATION DIVISION füge folgende Zeile ein:

Process nomonoprc

[rebe]

Ich glaube, das geht so nicht.
Habe Process system eingefügt in die Quelle.
Die Umwandlungsliste sagt:

* ID: LNC0026 BEW.STUFE 10 FOLGENR. 000100
Nachricht . . . : Auswahl erwartet, 'SYSTEM' gefunden. 'SYSTEM'
ignoriert.
* 10 ID: LNC0047 BEW.STUFE 20 FOLGENR. 001500
Nachricht . . . : Programmname '"system"' ist ungültig. Als
'"SYSTEM"' akzeptiert.

[Fuerchau]

Dann noch mal gaaaaaanz deutlich:

Process nomonoprc

[rebe]

Danke Herr Fürchau, jetzt habe ichs kapiert und es funktioniert.

Reiner