To display the content of this section, click an undefined Data Element line call in a Segment or Table. You must enter all the required information to define a Data Element at the Segment level. You can redefine another Data Element of the same COBOL level with the Redefines check box. You can also define controls or specify suschemas for the Data Element. If you click -G Lines, you can define -GC, -GE, -GG lines for this Data Element call.
This name consists of alphabetic or numeric characters only. The following table lists the Data Element names that cannot be created:
Name | Reserved for |
---|---|
FILLER | Field alignment |
ENPR GRPR ERUT |
Data Element error check in transaction files Segment error check in transaction files User-defined errors in transaction files |
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
For Data Elements that are not specified in the repository, you must select a usage after the internal format.
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. |
Value | Comments |
---|---|
U | References the access key for a Table. This value must be indicated on the group Data Element if it is a group key. |
S | Indicates that the Data Element belongs to at least one subsystem. |
Values | Comments |
---|---|
U | References a unique key for a DL/1 database. |
M | References a multiple key for a DL/1 database. |
1 - 9 | Secondary index All other values designate a search field. |
Values | Comments |
---|---|
0 - 9 | AS400 physical file key. relational databases |
V | Variable length column |
Blank | Fixed-length column |
W | For DB2® SQL, SQL/DS and ORACLE, generation of a variable length column (VARCHAR). |
L | For DB2 SQL, SQL/DS and ORACLE, generation of a LONG VARCHAR. |
Click -G Lines to define -GC lines for the Data Element that is defined in the Segment or Table.