To display the content of the Undefined Data Definition section, click on the undefined Data Element line call. You must enter all information required to define a Data Element at the Segment level: its name, label, internal format, usage, occurs, sort key. You can also redefine another Data Element of the same COBOL level via the Redefinescheckbox. Other characteristics associated with the Data element defined in the Segment can be completed via the More... button. Clicking the -G Lines... button allows you to define -GC, -GE, -GG lines for this Data element.
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 |
Error check fields on transaction files (options
of the Batch Function) Data Element error check Segment error check User-defined errors |
The internal format is used when the Data Element is called in:
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 not specified in the Dictionary, once the internal format entered, you need to select a usage.
The USAGE clause of a COBOL numeric variable allows you to indicate the internal representation of its value. Different USAGEs are available depending on the COBOL variants adapted to the material in use.
Value | Meaning |
---|---|
D | DISPLAY (default option). Required for date Data Elements. |
C | COMPUTATIONAL (binary), IBM
or equivalent; BINARY, IBM and COBOL II variant. |
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 MICROFOCUS. |
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, since 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 DBD : 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 MICROFOCUS |
Z | In batch mode only: this option, which is only used with an output format, allows for the generation of a BLANK WHEN ZERO clause with the Batch D.S. 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-3IBM 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 VisualAge Pacbase 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 sub-system. |
Values | Comments |
---|---|
U | References a unique key for an DL/1 database. |
M | References a multiple key for an DL/1 database. |
1 to 9 | Secondary index All other values designate a search field. |
Values | Comments |
---|---|
0 to 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 the More button to display more information such as the check types on each Data Element called in the Segment: presence check and class control.
Click the -G Lines... button to define -GC lines, -GE lines, and -GG lines for the Data Element defined in the Segment.