$SYSTEM.SYSDICT2
Definition OTF-V3
Object data
- Time stamp: 2015-03-30 10:19:29.10
- Elements: 23
- Size: 169
Definition
*
* Version 3 of Object Text File
*
DEF OTF-V3.
*
* Key group field consists of Text Id & Line Number
*
02 IDENTIFIER. !Offset 0, size 6
*
* Common for all lines of text in this definition.
*
03 TEXT-ID TYPE TEXT-ID
DISPLAY "[BZ]I10"
HEADING "Text Id/Number".
!Offset 0, size 4
*
* Binary 16 field incremented for each additional line of text.
*
03 LINE-NUMBER TYPE BINARY 16 UNSIGNED
HEADING "Line/Num".
!Offset 4, size 2
*
* If this OTF entry was derived from a CONSTANT reference, then
* the object number of that Constant will be maintained here.
*
02 CONSTANT-ID TYPE OBJECT-NUMBER
DISPLAY "[BZ]I10"
HEADING "Constant/Object #".
!Offset 6, size 4
*
* The type of constant is encoded as a single word with the following
* values:
*
02 CONSTANT-TYPE-STRING PIC "XX".
!Offset 10, 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 10, 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 12, size 1
*
* The locale name, if included, otherwise blanks.
*
02 LOCALE-NAME TYPE CHARACTER 16
HEADING "Locale Name".
!Offset 13, size 16
02 FILLER TYPE CHARACTER 1.
!Offset 29, size 1
*
* If the Locale Name was derived from a CONSTANT reference, then
* the object number of that Constant will be maintained here.
*
02 LN-CONSTANT TYPE OBJECT-NUMBER
DISPLAY "[BZ]I10"
HEADING "Constant/Locale #".
!Offset 30, size 4
*
* The length of the text line stored in this record.
*
02 TEXT-LEN TYPE BINARY 16 UNSIGNED
HEADING "Text/Len".
!Offset 34, size 2
*
* Each text block stored in the OTF is assigned a unique Text-Type.
* The currently defined text-types are: "K" -> Key word
* "N" -> Number
* "S" -> String
* "E" -> Enumeration
* "J" -> National/Kanji
*
02 TEXT-TYPE TYPE CHARACTER 1
MUST BE "K", "N", "S", "E", "J"
HEADING "TX/TP".
!Offset 36, size 1
*
* Each text line is a variable length string of up to 132 characters.
*
02 TEXT-LINE HEADING "Text Line".
!Offset 37, size 132
03 BYTE TYPE CHARACTER 1
OCCURS 1 TO 132 TIMES
DEPENDING ON TEXT-LEN.
!Offset 37, size 1
END.
Dependencies
Records
- OTF