$SYSTEM.SYSDICT
Definition OTF-V3
Objektdaten
- Timestamp: 6.05.1999 17:46:30.54
- Elemente: 23
- Größe: 169
Definition
*
* Version 3 of Object Text File
*
DEF OTF-V3.
*
* Key group field consists of Text Id & Line Number
*
02 IDENTIFIER. !Offset 0, Länge 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, Länge 4
*
* Binary 16 field incremented for each additional line of text.
*
03 LINE-NUMBER TYPE BINARY 16 UNSIGNED
HEADING "Line/Num".
!Offset 4, Länge 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, Länge 4
*
* The type of constant is encoded as a single word with the following
* values:
*
02 CONSTANT-TYPE-STRING PIC "XX".
!Offset 10, Länge 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, Länge 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, Länge 1
*
* The locale name, if included, otherwise blanks.
*
02 LOCALE-NAME TYPE CHARACTER 16
HEADING "Locale Name".
!Offset 13, Länge 16
02 FILLER TYPE CHARACTER 1.
!Offset 29, Länge 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, Länge 4
*
* The length of the text line stored in this record.
*
02 TEXT-LEN TYPE BINARY 16 UNSIGNED
HEADING "Text/Len".
!Offset 34, Länge 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, Länge 1
*
* Each text line is a variable length string of up to 132 characters.
*
02 TEXT-LINE HEADING "Text Line".
!Offset 37, Länge 132
03 BYTE TYPE CHARACTER 1
OCCURS 1 TO 132TIMES
DEPENDING ON TEXT-LEN.
!Offset 37, Länge 1
END.
Abhängigkeiten
Records
- OTF