Undefined Data call

To display the content of this section, click the undefined Data Element line call. You must enter all the required information to define a Data Element at the Segment level. This information consists of its name, label, internal format, usage, occurs, and sort key. You can also redefine another Data Element of the same COBOL level with the Redefines check box. Other characteristics that are associated with the Data Element defined in the Segment can be entered in the fields you access by clicking More.... If you click the -G Lines, you can define -GC, -GE, -GG lines for this Data Element.

Name
This name references the Data Element independently of any Data Structure, Report, or Screen to which the Data Element might belong. Including a Report, Screen or Segment name in the Data Element name is not necessary because it is automatically performed.

This name consists of alphabetic or numeric characters only. The following table lists the Data Element names that cannot be created:

Table 1. List of reserved Data Element names
Name Reserved for
FILLER Field alignment

ENPR

GRPR

ERUT

Error check fields on transaction files (options of the Batch Applications function)

Data Element error check

Segment error check

User-defined errors

Label
Enter the label that identifies the instance. It will constitute a search criterion upon a subsequent search.
Internal format
This format, which is displayed in the Overview tab, is required, except if the Data Element is a Property.

The internal format is used when the Data Element is called in one of the following components:

  • An application file (permanent file, database, temporary file)
  • A Screen as a data-entry field, if no conversational format was specified. See the type of line field in the -D Lines tab of the Data Element editor.
This 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 internal format must be coded like a COBOL picture (without print characters).
Notes:
  • 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
  • For Unicode-type Data Elements, you must indicate N(n) or a signed or unsigned numeric format.
The INTERNAL USAGE clause is associated with this format.
Note: If a Unicode-type Data Element has a signed numeric internal format, its internal usage must be X or 1.
Data Elements that represent a date can be assigned a symbolic format:
Table 2. Symbolic formats for dates
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
Note: For the formats that include a separator (E, G, M, and T), you can specify a separator after the character that represents the format, if you do not want to use the separator included by default in the format. For example, a G/ format generates CCYY/MM/DD instead of CCYY-MM-DD, which is the default Gregorian 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.

Usage
It corresponds to the COBOL USAGE clause.

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.

You select a Data Element usage according to the following elements:
  • The type of COBOL to generate associated with the Library where you define the Data Element.
  • The internal representation that you want.
    Example: If you generate for IBM, a C usage generates USAGE BINARY and F generates USAGE COMP-1. For UNISYS 1100, an H usage generates USAGE COMP.
You can use this Data Element in a lower-level Library whose type of COBOL to generate is different from the type of the higher Library.
Example: The DELCO Data Element is defined in the HIG Library with a C usage. You use it in a LOW Library with a type of COBOL to generate for UNISYS 1100.
The Data Element usage is automatically replaced with an equivalent that is compatible with the type of COBOL to generate. So when you view DELCO in LOW, the usage that is automatically displayed is H.
Table 3. Possible values for the usage
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.
Occurs
Enter a number of occurrences in this field to generate an OCCURS COBOL clause. The COBOL restrictions on the OCCURS clause also apply here. You can indicate a number of occurrences on an elementary or a group Data Element or a filler. The number is limited to 99; it is pure numeric field.
Sort key
This field identifies all the Data Elements that can be used as control break sort keys, or as access keys to a file, a database or a Pactables Table.
Note: It is advised to dedicate a Segment to only one type of use. Each Data Element that can belong to a sort key must be referenced by a unique alphabetic or numeric character. It is advised to reference the indicators by a series (1, 2, 3 for example). The actual sort sequence is selected at the Program level (on the -CD Lines tab).
You must not forget that the format of key group Data Elements must have been entered in the repository or at the Segment level.
Table 4. Possible values of the sort key for Pactables
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.
Table 5. Possible values of the sort key for DL/1 databases
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.
Table 6. Possible values of the sort key for AS400 and relational databases
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.
Note: Sort keys are not authorized on Data Elements redefining other Data Elements.
Redefine
Redefinition is possible within a Segment. It generates the COBOL REDEFINES clause. The Data Element containing this option redefines the Data Element of the same COBOL level that precedes it in the -CE lines of the Segment. If a Data Element that redefines another Data Element is contained in a group, it is considered to be an elementary Data Element. It must be taken into account in the calculation of the number of Data Elements in a group (except for DL/1 database Segments).
Note: When Data Elements are redefined, Pacbase does not take their respective lengths into account. It is your responsibility. The redefined Data Element length is used for the calculation of the address length. Redefined Data Elements are ignored when generating for the Database Description function. If the Redefines box is checked, no initial value can be entered.
To redefine a Data Element, check the Redefines option. A Set of Redefines line is created in the list. It contains the redefined Data Element and the preceding Data Element of the same level in the call structure. You must then define the Occurs option in the Set of Redefines section.

More

Click More to display more information such as the check types on each Data Element called in the Segment/Table: presence check and class control.

-G Lines

Click -G Lines to define -GC lines for the Data Element that is defined in the Segment or Table.


Feedback