JCI-METHODRES - Function result

This element contains the partial structure JCI-MethodRes required for transferring result values and error information:

*> 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).

The following statement is required for dynamic initialization of the structure as a whole in order to ensure the correct values for fields which are reserved internally:

INITIALIZE JCI-MethodRes WITH FILLER ALL TO VALUE