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.
Certains noms de Rubriques ont un emploi réservé dans les Structures de Données, les Etats ou les Ecrans. Leur définition est donc interdite :
Nom | Réservé pour |
---|---|
FILLER | Alignement des champs |
ENPR GRPR ERUT |
Contrôle d'erreur sur les fichiers mouvements (options
du module Langage Batch) : Contrôle d'erreurs des Rubriques Contrôle d'erreurs des Segments Contrôle d'erreurs définies par l'utilisateur |
Vous devez assurer la compatibilité entre le format interne et le format d’entrée.
Valeur | Signification |
---|---|
D | Date sans siècle (JJMMAA ou MMJJAA) |
I | Date sans siècle (AAMMJJ) |
E | Date sans siècle (JJ/MM/AA ou MM/JJ/AA) |
S | Date avec siècle (SSAAMMJJ) |
C | Date avec siècle (JJMMSSAA ou MMJJSSAA) |
M | Date avec siècle (JJ/MM/SSAA ou MM/JJ/SSAA) |
G | Format grégorien (SSAA-MM-JJ) |
T | Format TIME (HH:MM:SS) |
TS | Format TIMESTAMP |
Pour l’utilisation des formats avec les différents types de blocs bases de données, se reporter aux tableaux récapitulatifs du chapitre Colonnes : Rubriques dans le Manuel DBD relationnelles SQL, disponible à l'URL suivante :
http://www-1.ibm.com/support/docview.wss?rs=37&context=SSEP67&uid=swg27005478
Valeur | Signification |
---|---|
D | Date sans siècle (JJMMAA ou MMJJAA) |
I | Date sans siècle (AAMMJJ) |
E | Date sans siècle (JJ/MM/AA ou MM/JJ/AA) |
S | Date avec siècle (SSAAMMJJ) |
C | Date avec siècle (JJMMSSAA ou MMJJSSAA) |
M | Date avec siècle (JJ/MM/SSAA ou MM/JJ/SSAA) |
G | Format grégorien (SSAA-MM-JJ) |
T | Format TIME (HH:MM:SS) |
TS | Format TIMESTAMP |
La clause USAGE d'une variable COBOL numérique permet d'indiquer la présentation interne de sa valeur. Il existe plusieurs USAGEs en fonction des variantes COBOL adaptées au matériel.
Valeur | Signification |
---|---|
D | DISPLAY (option par défaut, sauf pour
les Rubriques de type Unicode), tout matériel. Obligatoire pour les Rubriques représentant des dates. |
C | COMPUTATIONAL type IBM ou équivalent; BINARY type IBM et variante Cobol II. |
F | COMPUTATIONAL-1 IBM or equivalent. COMPUTATIONAL-9 BULL GCOS7. COMPUTATIONAL-11 GCOS8. DBD Relationnelles : virgule flottante simple précision. |
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 cadré sur un demi-octet.
En cas de longueur impaire, le complément n’est pas généré; vous devez donc
l’ajouter. NATIONAL (option par défaut) pour les Rubriques de type ’Unicode’ (type ’U’). |
O | COMPUTATIONAL-4 UNISYS 2200 |
P | COMPUTATIONAL-1GCOS8. |
Q | COMPUTATIONAL GCOS8. |
R | COMPUTATIONAL SYNCHRONIZED RIGHT, IBM ou équivalents. Cet usage est recommandé, de préférence à l'usage C, lorsque les données binaires sont cadrées sur des adresses paires, car les instructions COBOL les concernant sont plus performantes. |
T | COMPUTATIONAL-3 PACKED SYNC. GCOS8. |
U | COMPUTATIONAL-1 UNISYS 2200. |
W | COMPUTATIONAL-2 UNISYS 2200. COMPUTATIONAL-12 GCOS8. DBD Relationnelles : virgule flottante double précision. |
X | DISPLAY SIGN IS TRAILING SEPARATE CHARACTER. ou NATIONAL SIGN IS TRAILING SEPARATE CHARACTER pour les Rubriques de type ’Unicode’ (type ’U’). |
Y | DB-KEY GCOS8. POINTER IBM and MICROFOCUS |
Z | Option réservée au batch : permet de faire générer une clause BLANK WHEN ZERO, cette option n’étant utilisable qu’avec un format d’édition. |
0 | COMPUTATIONAL-7 GCOS8 |
1 | DISPLAY SIGN LEADING SEPARATE - UNISYS
2200, GCOS8, IBM, TANDEM, GCOS7. or NATIONAL SIGN IS LEADING SEPARATE CHARACTER pour les Rubriques de type ’Unicode’ (type ’U’). |
2 | DISPLAY-2 GCOS8 = DISPLAY, la compararaison de zones de ce type se fait suivant la ″commercial collating sequence″ et non suivant la séquence standard. |
3 | COMPUTATIONAL-3IBM ou équivalent. 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.