JCI-CONST - Definition von Konstanten

Dieses Element definiert die COBOL-Teilstruktur JCI-Const, die alle Werte von JCI-relevanten Konstanten als Datenfelder enthält:

*> Copyright (c) 2016 Fujitsu Technology Solutions GmbH
*>               All Rights Reserved
 >>SOURCE FORMAT IS FREE
 41 JCI-Const.
  42 JCI-Versions.
    43  JCI-INTERFACE-VERSION   PIC S9(009) USAGE COMP-5 SYNC VALUE 001.
    43  JCI-VERSION-1           PIC S9(009) USAGE COMP-5 SYNC VALUE 001.
  42 JCI-ReturnValues.
    *> success
    43  JCI-RET-OK         PIC S9(009) USAGE COMP-5 SYNC VALUE 000.
    *> truth-value false (from test-functions)
    43  JCI-RET-FALSE      PIC S9(009) USAGE COMP-5 SYNC VALUE 000.
    *> truth-value true (from test-functions)
    43  JCI-RET-TRUE       PIC S9(009) USAGE COMP-5 SYNC VALUE 001.
    *> unspecific error
    43  JCI-RET-ERR        PIC S9(009) USAGE COMP-5 SYNC VALUE 010.
    *> VM not created
    43  JCI-RET-ENOVM      PIC S9(009) USAGE COMP-5 SYNC VALUE 011.
    *> class/method/... not found
    43  JCI-RET-ENOTFOUND  PIC S9(009) USAGE COMP-5 SYNC VALUE 012.
    *> JCI-NULL object not allowed
    43  JCI-RET-ENULLOBJ   PIC S9(009) USAGE COMP-5 SYNC VALUE 013.
    *> JCI-NULL method-id/field-id not allowed
    43  JCI-RET-ENULLID    PIC S9(009) USAGE COMP-5 SYNC VALUE 014.
    *> array-index out of bounds
    43  JCI-RET-EINDAOB    PIC S9(009) USAGE COMP-5 SYNC VALUE 015.
    *> invalid argument
    43  JCI-RET-EARGUMENT  PIC S9(009) USAGE COMP-5 SYNC VALUE 016.
    *> not enough memory
    43  JCI-RET-ENOMEM     PIC S9(009) USAGE COMP-5 SYNC VALUE 017.
    *> VM already created
    43  JCI-RET-EEXIST     PIC S9(009) USAGE COMP-5 SYNC VALUE 020.
    *> invalid version in option structure
    43  JCI-RET-EOPTVERS   PIC S9(009) USAGE COMP-5 SYNC VALUE 021.
    *> invalid option number
    43  JCI-RET-OPTNUM     PIC S9(009) USAGE COMP-5 SYNC VALUE 022.
    *> invalid version in argument structure
    43  JCI-RET-EARGVERS   PIC S9(009) USAGE COMP-5 SYNC VALUE 101.
    *> invalid version in result structure
    43  JCI-RET-ERESVERS   PIC S9(009) USAGE COMP-5 SYNC VALUE 102.
    *> invalid argument number
    43  JCI-RET-EARGNUM    PIC S9(009) USAGE COMP-5 SYNC VALUE 103.
    *> invalid argument-type
    43  JCI-RET-EARGTYPE   PIC S9(009) USAGE COMP-5 SYNC VALUE 110.
    *> invalid result-type
    43  JCI-RET-ERESTYPE   PIC S9(009) USAGE COMP-5 SYNC VALUE 111.
    *> argument conversion error
    43  JCI-RET-EARGCONV   PIC S9(009) USAGE COMP-5 SYNC VALUE 112.
    *> result conversion error
    43  JCI-RET-ERESCONV   PIC S9(009) USAGE COMP-5 SYNC VALUE 113.
    *> pending exception after method-call
    43  JCI-RET-EEXCEPT    PIC S9(009) USAGE COMP-5 SYNC VALUE 120.
  42 JCI-Values.
    43  JCI-NULL PIC S9(009) USAGE COMP-5 SYNC VALUE 000.
  42 JCI-BooleanValues.
    43  JCI-FALSE PIC X(001) VALUE X'00'.
    43  JCI-TRUE  PIC X(001) VALUE X'01'.