In the Definition tab, you indicate the formats, type, and usage of the Data Element. You can also indicate a parent Data Element, if any, and the Blank when zero option.
DBD function: CODASYL elementary data, relational column.
This value is automatically set when retrieving existing data.
The characteristics of the parent Data Element (its formats, its usage, and the Blank when zero option) are passed on to its child, where they are marked as Inherited. In the child, you can modify the characteristics that are inherited from its parent. In this case, you see Redefined next to the modified characteristic.
All Data Elements from the same family are logically linked in the database. A child Data Element cannot be a parent as well. The inheritance tree of the current instance displays its parent, if any, and its children, if any.
If a parent Data Element has already been indicated for the Data Element, you see its name here. If you want to specify a parent Data Element, click Change and select a Data Element in the selection wizard. You can remove the parent Data Element by clicking Remove.
If no parent is declared, this field displays No inheritance.The internal format is used when the Data Element is called in one of the following components:
You must ensure the compatibility between the input and internal formats.
Symbolic value | Meaning |
---|---|
D | Without century (DDMMYY or MMDDYY) |
I | Without century (YYMMDD) |
E | Without century (DD/MM/YY or MM/DD/YY) |
S | With century (CCYYMMDD) |
C | With century (DDMMCCYY or MMDDCCYY) |
M | With century (DD/MM/CCYY or MM/DD/CCYY) |
G | Gregorian format (CCYY-MM-DD) |
T | Time format (HH:MM:SS) |
TS | Timestamp format |
For details on the use of the formats with the various types of Database Blocks, see the summary tables in chapter Columns: Data Elements of the Relational SQL Database Description manual at this URL:
http://www-01.ibm.com/support/docview.wss?rs=37&uid=swg27005477
This format is converted into the internal format when permanent files are transferred.
If you do not specify an input format, the internal format is automatically taken into account.The input format is automatically transferred into the Segments where the Data Element is called. But you eventually select the appropriate format in the -CD Lines tab of the Programs that call these Segments.
You must ensure the compatibility between the input and internal formats.
The Usage is always DISPLAY, except for Unicode-type Data Elements, whose Usage is N (default), X, or 1.
Symbolic value | Meaning |
---|---|
D | Without century (DDMMYY or MMDDYY) |
I | Without century (YYMMDD) |
E | Without century (DD/MM/YY or MM/DD/YY) |
S | With century (CCYYMMDD) |
C | With century (DDMMCCYY or MMDDCCYY) |
M | With century (DD/MM/CCYY or MM/DD/CCYY) |
G | Gregorian format (CCYY-MM-DD) |
T | Time format (HH:MM:SS) |
TS | Timestamp format |
For details on the use of the formats with the various types of Database Blocks, see the summary tables in chapter Columns: Data Elements of the Relational SQL Database Description manual, available from the VisualAge Pacbase documentation at:
http://www-01.ibm.com/support/docview.wss?rs=37&uid=swg27005477
The output format is automatically transferred into the Segments where the Data Element is called.
The usage is always Display, except for Unicode-type Data Elements whose usage is National (default), National sign is trailing separate char, or National sign is leading separate char.
Symbolic value | Meaning |
---|---|
D | Without century (DDMMYY or MMDDYY) |
I | Without century (YYMMDD) |
E | Without century (DD/MM/YY or MM/DD/YY) |
S | With century (CCYYMMDD) |
C | With century (DDMMCCYY or MMDDCCYY) |
M | With century (DD/MM/CCYY or MM/DD/CCYY) |
G | Gregorian format (CCYY-MM-DD) |
T | Time format (HH:MM:SS) |
TS | Timestamp format |
For details on the use of the formats with the various types of Database Blocks, see the summary tables in chapter Columns: Data Elements of the ″Relational SQL Database Description' manual at this URL:
http://www-01.ibm.com/support/docview.wss?rs=37&uid=swg27005477
With the USAGE clause of a COBOL numeric variable, you indicate the internal representation of its value. Different usages are available depending on the COBOL variants adapted to the material in use.
Value | Meaning |
---|---|
B | COMPUTATIONAL-1 ICL 1900 BINARY-1 UNISYS 1100 |
C | COMPUTATIONAL (binary), IBM
or equivalent; BINARY, IBM and COBOL II variant. |
D | DISPLAY (default option). Required for date Data Elements. |
F | COMPUTATIONAL-1 IBM or equivalent. COMPUTATIONAL-9 BULL GCOS7. COMPUTATIONAL-11 GCOS8. Relational DBD: floating point, simple precision. |
G | COMPUTATIONAL SYNCHRONIZED RIGHT ICL
2900 COMPUTATIONAL-5 MICRO FOCUS. |
H | COMPUTATIONAL UNISYS 2200. BINARY UNISYS 2200 (COBOL 85) |
I | DISPLAY-1 UNISYS 2200 |
J | COMPUTATIONAL-6 GCOS8. REAL UNISYS-A. |
N | COMPUTATIONAL-4 aligned on
a half-byte. You must add the complement if the length is uneven. NATIONAL (default usage) for Unicode-type Data Elements (U type). |
O | COMPUTATIONAL-4 UNISYS 2200 |
P | COMPUTATIONAL-1 GCOS8. |
Q | COMPUTATIONAL GCOS8. |
R | COMPUTATIONAL SYNCHRONIZED RIGHT, IBM or equivalent; This value is preferable to C when binary data is aligned on even addresses, because the corresponding COBOL statements are more efficient. |
T | COMPUTATIONAL-3 PACKED SYNC. GCOS8. |
U | COMPUTATIONAL-1 UNISYS 2200. |
W | COMPUTATIONAL-2 UNISYS 2200. COMPUTATIONAL-12 GCOS8. Relational database: floating point, double precision. |
X | DISPLAY SIGN IS TRAILING SEPARATE CHARACTER. or NATIONAL SIGN IS TRAILING SEPARATE CHARACTER for Unicode-type Data Elements (U type). |
Y | DB-KEY GCOS8. POINTER IBM and MICRO FOCUS |
Z | In batch mode only: this option, which is only used with an output format, generates a BLANK WHEN ZERO clause with the Batch Applications function. |
0 | COMPUTATIONAL-7 GCOS8 |
1 | DISPLAY SIGN LEADING SEPARATE -
UNISYS 2200, GCOS8, IBM, TANDEM, GCOS7. or NATIONAL SIGN IS LEADING SEPARATE CHARACTER for Unicode-type Data Elements (U type). |
2 | DISPLAY-2 GCOS8 = DISPLAY. Fields are compared in accordance with the commercial collating sequence and not in accordance with the standard BULL sequence. |
3 | COMPUTATIONAL-3 IBM or equivalent. COMPUTATIONAL GCOS7 PACKED-DECIMAL UNISYS 2200 (COBOL 85) |
5 | COMPUTATIONAL-1 GCOS7 GCOS8 |
6 | COMPUTATIONAL-2 GCOS7 GCOS8 |
7 | COMPUTATIONAL-5 ICL 2900. |
8 | COMPUTATIONAL BULL 66 GCOS8. |
9 | COMPUTATIONAL-3 GCOS7 and GCOS8. |
If you select Yes, the BLANK WHEN ZERO COBOL clause is generated. Blanks replace the zero values that are normally printed or displayed.
It applies to numeric Data Elements only, for the retrieval of old versions.