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 Redefines checkbox. Other characteristics associated with the current Segment can be updated from this section via the More... button. Clicking the -G Lines... button switches to the -G Lines tab.
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:
The internal format must be coded like a COBOL picture (without print characters).
If the format of a numeric Data Element is more than 10 characters long, you must omit the ’9’ that would normally be entered after the ’V’ (for example: S9(10)V9(3) must be entered as S9(10)V(3)). This way of coding must not be used when the format is shorter than 10 characters.
Symbolic value | Meaning |
---|---|
D | Without century (DDMMYY or MMDDYY) |
C | With century (DDMMCCYY or MMDDCCYY) |
I | Without century (YYMMDD) |
S | With century (CCYYMMDD) |
E | Without century (DD/MM/YY or MM/DD/YY) |
M | With century (DD/MM/CCYY or MM/DD/CCYY) |
G | Gregorian format (CCYY-MM-DD) |
T | 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-1.ibm.com/support/docview.wss?rs=37&context=SSEP67&uid=swg27005478
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. or 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-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. |
For Data Elements not defined in the Specifications Dictionary, when the internal format field has been given a value, enter the appropriate USAGE (default : ’D’ for DISPLAY).
Values | Meaning |
---|---|
U | References the access key for a VA 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. DL1 DBD |
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. DBD AS400 physical file |
0 to 9 | AS400 physical file key. Relational databases |
V | Variable length column |
Blank | Fixed length column |
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.