www.mvcsys.de

$SYSTEM.SYSDICT2
Definition CDF-V0

Object data

Definition

*
* This file contains one record for each Constant object.  The record
* links the Constant object with the text in the OTF which is the value
* of that Constant.
*
DEF CDF-V0.
*
*    Each Constant is a distinct object.
*
  02 OBJECT-NUMBER                      TYPE OBJECT-NUMBER
                                        DISPLAY "[BZ]I10"
                                        HEADING "Constant/Object #".
                                        !Offset 0, size 4
*
*    Each Constant has exactly one Text record which contains the value
*    of that Constant.
*
  02 TEXT-ID                            TYPE TEXT-ID
                                        DISPLAY "[BZ]I10"
                                        HEADING "Constant/Text-Id".
                                        !Offset 4, size 4
*
*    NOTE:  The next two fields, Constant-Type-String and
*    Constant-Type-Explicit, are being included in the OTF record
*    starting in the D30 for the I(18)N support.  After two more
*    releases the old format of the CDF record will no longer need
*    to be supported so these two fields should be removed at that
*    time.
*
*    The type of constant is encoded as a single word with the following
*    values:
*
  02 CONSTANT-TYPE-STRING               PIC  "XX".
                                        !Offset 8, size 2
    88 CONSTANT-STRING                  VALUE "ST".
    88 CONSTANT-VERSION                 VALUE "VR".
    88 CONSTANT-BINARY-16               VALUE "2S".
    88 CONSTANT-BINARY-16-UNSIGNED      VALUE "2U".
    88 CONSTANT-BINARY-32               VALUE "4S".
    88 CONSTANT-BINARY-32-UNSIGNED      VALUE "4U".
    88 CONSTANT-BINARY-64               VALUE "8S".
    88 CONSTANT-NATIONAL-STRING         VALUE "NS".
  02 CONSTANT-TYPE                      TYPE BINARY 16
                                        REDEFINES CONSTANT-TYPE-STRING.
                                        !Offset 8, size 2
*
*    The type of the constant is either explicitly given in the DDL
*    source file, it is inherited from another constant or it
*    defaults.  If the type is explicitly given then
*    'Constant-Type-Explicit' will be 'Y'.  If the type is derived
*    from the constant defining its value or is the default,
*    'Constant-Type-Explicit' will be 'Y'.
*
  02 CONSTANT-TYPE-EXPLICIT             TYPE ASCII-SWITCH
                                        MUST BE "Y", "N"
                                        DISPLAY "A1"
                                        HEADING "Type/Expicitly Given".
                                        !Offset 10, size 1
END.

Dependencies

Records

  1. CDF