JCI_GetErrorInformation

Die Funktion liefert nähere Fehlerinformationen.

Aufruf

CALL 'JCI_GetErrorInformation' USING eInf

eInf	Fehlerinformation

Argumente

eInf

eine Struktur vom Typ Cobvar Struktur, in die die maximal 256 Zeichen lange Fehlerinformation des JCI übertragen werden soll. Die Übertragung erfolgt maximal in der Länge des Längenfeldes. Wenn dieses kleiner oder gleich 0 ist oder keine Fehlerinformation existiert, so wird es auf 0 gesetzt und die Übertragung entfällt. Steht keine Fehlerinformation zur Verfügung, so wird das Längenfeld in eInf auf 0 gesetzt und der Textbereich bleibt unverändert.

Returnwert (RETURN-CODE)

JCI-RET-OK

Der Aufruf war erfolgreich.

Hinweise

Diese Funktion kann immer aufgerufen werden, auch wenn der Aufruf von Funktionen des JCI als ungültig beschrieben ist, wie z.B. in Abschnitt „Exceptions".

Von allen JCI-Funktionen, die einen Fehler-Returncode liefern können, wird im Fehlerfall eine nähere Information zu diesem Fehler in einem gemeinsamen Feld hinterlegt. Tritt kein Fehler auf, wird das Feld gelöscht. Dadurch steht immer nur die Information der zuletzt aufgerufenen Funktion zur Verfügung. Der Text ist in englischer Sprache und nur für die Ausgabe an den Benutzer gedacht.

Nach Aufruf der Funktion JCI_GetErrorInformation steht die Fehlerinformation nicht mehr für weitere Aufrufe zur Verfügung.

Beispiel

DATA DIVISION.
WORKING-STORAGE SECTION.
01 eInf.
  02 len PIC S9(9) USAGE COMP-5 SYNC VALUE 256.
  02 txt PIC X(256).
...
PROCEDURE DIVISION.
...
CALL 'JCI_GetErrorInformation ' USING eInf
IF len IN eInf > 0
  DISPLAY txt IN eInf(1:len IN eInf) UPON T
END-IF
...