$SYSTEM.SYSDICT2
Definition CDF-V0
Object data
- Time stamp: 2015-03-30 10:19:29.80
- Elements: 14
- Size: 11
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
- CDF