JCI-METHODARGS - Funktionsargumente

Das Element enthält die für die Übergabe von Argumenten notwendige Teilstruktur JCI-MethodArgs:

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

Die Anzahl der Elemente, mit der die Argumenttabelle expandiert werden soll (maximale Anzahl von Argumenten), muss durch die REPLACING-Angabe der COPY-Anweisung gesetzt werden:

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

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

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