JCI-METHODARGS - Function arguments

This element contains the partial structure JCI-MethodArgs required for transferring arguments:

*> Copyright (c) 2016 Fujitsu Technology Solutions GmbH
*>            All Rights Reserved
>>SOURCE FORMAT IS FREE
41 JCI-MethodArgs.
42                        USAGE COMP-2 SYNC VALUE 000.
42            PIC S9(009) USAGE COMP-5 SYNC VALUE 001.
42            PIC S9(004) USAGE COMP-5 SYNC
VALUE <max-arguments>.
42 CallArgNum PIC S9(004) USAGE COMP-5 SYNC VALUE 000.
42 CallArg OCCURS <max-arguments>.
43 ArgType     PIC X(001) VALUE X'00'.
88 ARG-BYTE        VALUE X'01'.
88 ARG-ANUM-CHAR   VALUE X'02'.
88 ARG-NAT-CHAR    VALUE X'03'.
88 ARG-DOUBLE      VALUE X'04'.
88 ARG-FLOAT       VALUE X'05'.
88 ARG-LONG        VALUE X'06'.
88 ARG-INT         VALUE X'07'.
88 ARG-SHORT       VALUE X'08'.
88 ARG-BOOLEAN     VALUE X'09'.
88 ARG-ANUM-STRING VALUE X'0A'.
88 ARG-NAT-STRING  VALUE X'0B'.
88 ARG-OBJECT      VALUE X'0C'.
43 ArgInd      PIC X(001) VALUE X'00'.
*> Indicator for Strings
88 IGNORE-TRAILING-SPACES VALUE X'01'
WHEN SET TO FALSE X'00'.
43             PIC X(002) VALUE ALL X'00'.
43 ArgValAddr    USAGE POINTER.
43 ArgValDouble  USAGE COMP-2 SYNC VALUE 0.
43 ArgValFloat   REDEFINES ArgValDouble             USAGE COMP-1.
43 ArgValLong    REDEFINES ArgValDouble PIC S9(018) USAGE COMP-5.
43 ArgValInt     REDEFINES ArgValDouble PIC S9(009) USAGE COMP-5.
43 ArgValShort   REDEFINES ArgValDouble PIC S9(004) USAGE COMP-5.
43 ArgValObject  REDEFINES ArgValDouble PIC S9(009) USAGE COMP-5.
43 ArgValBoolean REDEFINES ArgValDouble PIC X(001).
43 ArgValByte    REDEFINES ArgValDouble PIC X(001).
43 ArgValAchar   REDEFINES ArgValDouble PIC X(001).
43 ArgValNchar   REDEFINES ArgValDouble PIC N(001).

The number of elements to be used to expand the argument table (maximum number of arguments) must be set by means of the REPLACING entry in the COPY statement:

COPY JCI-METHODARGS REPLACING == <max-arguments> == BY num .

The following statement is required for dynamic initialization of the structure as a whole in order to ensure the correct values for both reserved fields and for the table elements:

INITIALIZE JCI-MethodArgs WITH FILLER ALL TO VALUE
    THEN REPLACING ALPHANUMERIC BY ALL X'00'
    THEN TO DEFAULT