JCI-METHODRES - Funktionsergebnis

Das Element enthält die für die Übergabe von Ergebniswerten und Fehlerinformationen notwendige Teilstruktur JCI-MethodRes:

*> Copyright (c) 2016 Fujitsu Technology Solutions GmbH
*>              All Rights Reserved
 >>SOURCE FORMAT IS FREE
 41 JCI-MethodRes.
   42                         USAGE COMP-2 SYNC VALUE 000.
   42             PIC S9(009) USAGE COMP-5 SYNC VALUE 001.
   *> index to argument/table-element that caused a conversion-error
   42 ResErrIndex PIC S9(009) USAGE COMP-5 SYNC VALUE 000.
   *> additional information for function return-code
   *> JCI-RET-EARGCONV and JCI-RET-ERESCONV
   42 ResErrCode  PIC S9(004) USAGE COMP-5 SYNC VALUE 000.
     *> no error
     88 RES-NO-ERROR            VALUE 000.
     *> not enough memory to create/convert data
     88 RES-ERR-NOMEM           VALUE 001.
     *> object conversion error (object <-> string)
     88 RES-ERR-OBJECT          VALUE 010.
     *> floating-point conversion-errors (S390 <-> IEEE)
     88 RES-ERR-FLOAT-UNDERFLOW VALUE 020.
     88 RES-ERR-FLOAT-OVERFLOW  VALUE 021.
     88 RES-ERR-FLOAT-INVALID   VALUE 022.
   42               PIC X(006) VALUE ALL X'00'.
   42 ResultValue.
     43 ResType     PIC X(001) VALUE X'00'.
       88 RES-VOID        VALUE X'00'.
       88 RES-BYTE        VALUE X'01'.
       88 RES-ANUM-CHAR   VALUE X'02'.
       88 RES-NAT-CHAR    VALUE X'03'.
       88 RES-DOUBLE      VALUE X'04'.
       88 RES-FLOAT       VALUE X'05'.
       88 RES-LONG        VALUE X'06'.
       88 RES-INT         VALUE X'07'.
       88 RES-SHORT       VALUE X'08'.
       88 RES-BOOLEAN     VALUE X'09'.
       88 RES-ANUM-STRING VALUE X'0A'.
       88 RES-NAT-STRING  VALUE X'0B'.
       88 RES-OBJECT      VALUE X'0C'.
     43             PIC X(003) VALUE ALL X'00'.
     43 ResValAddr    USAGE POINTER.
     43 ResValDouble  USAGE COMP-2 SYNC VALUE 0.
     43 ResValFloat   REDEFINES ResValDouble            USAGE COMP-1.
     43 ResValLong    REDEFINES ResValDouble PIC S9(018) USAGE COMP-5.
     43 ResValInt     REDEFINES ResValDouble PIC S9(009) USAGE COMP-5.
     43 ResValShort   REDEFINES ResValDouble PIC S9(004) USAGE COMP-5.
     43 ResValObject  REDEFINES ResValDouble PIC S9(009) USAGE COMP-5.
     43 ResValBoolean REDEFINES ResValDouble PIC X(001).
     43 ResValByte    REDEFINES ResValDouble PIC X(001).
     43 ResValAchar   REDEFINES ResValDouble PIC X(001).
     43 ResValNchar   REDEFINES ResValDouble PIC N(001).

Zur dynamischen Initalisierung der Struktur als Ganzes ist folgende Anweisung erforderlich, um die korrekten Werte für intern reservierte Felder sicherzustellen:

INITIALIZE JCI-MethodRes WITH FILLER ALL TO VALUE