Rational Developer for System z, Version 7.5

Undefined Data call

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.

Nom
Ce nom est un code alphanumérique qui repère la Rubrique indépendamment de toute appartenance à une Structure de Données, à un Etat ou à un Ecran Il est donc inutile d’inclure un code Segment, Etat ou Ecran dans le code Rubrique : ce code sera automatiquement ajouté lors de la génération.

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

Libellé
Saisissez le libellé identifiant l'instance. Il constituera un critère de recherche lors d'une recherche d'instance.
Format interne
Ce format, affiché aussi dans l'onglet Vue d'ensemble, est obligatoire, sauf si la Rubrique est une Propriété.
Ce format est utilisé lorsque la Rubrique est appelée dans un :
  • Fichier de l'application (fichier permanent, base de données, fichier temporaire),
  • Ecran en entrée de la zone, si aucun format conversationnel n'est indiqué (voir la zone Type de ligne dans l'onglet Lignes -D de l'éditeur de Rubrique).
Ce format est transféré automatiquement vers les Segments où se fait l'appel de Rubrique. Mais vous pouvez finalement choisir le format approprié dans l'onglet Lignes -CD des Programmes qui appellent ces Segments.

Vous devez assurer la compatibilité entre le format interne et le format d’entrée.

Vous devez saisir le format interne comme une picture Cobol, sans caractères d’édition.
Notes:
  • Dans la majorité des cas, le format de type numérique d’une Rubrique est entré tel quel. Toutefois, s’il excède 10 caractères, ivous devez supprimer le 9 après la virgule. (par exemple, le format S9(10)V9(3) qui occupe 11 caractères sera entré sous la forme S9(10)V(3) qui n’occupe que 10 caractères, mais il sera généré sous la forme S9(10)V9(3).
  • Pour les Rubriques de type ’Unicode’ (type U), vous devez indiquer N(n) ou un format numérique signé ou non.
La clause INTERNAL USAGE concerne ce format seul.
Note: Pour les Rubriques de type ’Unicode’, si le format interne est numérique signé, l’usage interne doit être X ou 1.
Vous pouvez indiquer les formats symboliques suivants pour les Rubriques de type date :
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
Note: Pour les formats incluant un séparateur (E, G, M, T), vous pouvez indiquer, à la suite du caractère représentant le format, un caractère représentant un séparateur différent de celui prévu par défaut dans le format. Par exemple, vous pouvez indiquer G/ dans cette zone pour générer un format grégorien SSAA/MM/JJ.au lieu du format grégorien standard SSAA-MM-JJ.

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

Vous pouvez indiquer les formats symboliques suivants pour les Rubriques de type date ::
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
Note: Pour les formats incluant un séparateur (E, G, M, T), vous pouvez indiquer, à la suite du caractère représentant le format, un caractère représentant un séparateur différent de celui prévu par défaut dans le format. Par exemple, vous pouvez indiquer G// dans cette zone pour générer un format grégorien SSAA/MM/JJ.au lieu du format grégorien standard SSAA-MM-JJ.
Usage
Cet "Usage" correspond à la clause COBOL USAGE.

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.

Vous choisissez l’usage d’une Rubrique en fonction de la :
  • Variante de génération associée à la Bibliothèque dans laquelle vous la définissez,
  • Représentation interne que vous désirez.
    Example: Si vous générez pour IBM, l’usage C génère la clause USAGE BINARY et F la clause USAGE COMP-1. Pour UNISYS 1100, l’usage H génère la clause USAGE COMP.
Vous pouvez utiliser cette Rubrique dans une Bibliothèque de niveau hiérarchique inférieur et dont la variante de génération est différente de celle de la Bibliothèque supérieure.
Example: Vous avez défini la Rubrique CORUB dans la Bibliothèque SUP avec C comme usage et vous l’utilisez dans une bibliothèque INF qui a une variante de génération pour UNISYS 1100.
Lorsque ce cas se produit, l’usage de la Rubrique sera automatiquement remplacé par un équivalent compatible avec la variante de génération. Ainsi, lorsque vous visualisez CORUB dans INF, l’usage qui s’affiche automatiquement est H. Cette valeur sera utilisée pour la génération.
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).

Occurs
Occurs is set for occurences. The COBOL 'OCCURS' clause is a pure numeric field. This field represents the ’OCCURS’ clause at an elementary Data Element level, or at a group level (maximum of 3 levels).
Sort key
This field identifies all data elements that might be used as control break sort keys, or as access keys to a file, a database or a Pactables table.
Note: It is highly recommended to dedicate a Segment to only one type of use. Each data element that may belong to a sort key must be referenced by a unique alphabetic or numeric character. It is recommended to reference the indicators by series of numbers (1, 2, 3 ...). The actual sort sequence will be chosen at the program level (on the Call of Data Structures (-CD) screen) by sequencing the characters in the appropriate order.
Remember: The format of key group data elements must have been entered in the Dictionary or at the segment level.
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.
Restriction: Sort keys are not allowed on Data Elements redefining other Data Elements.
Set of Redefines
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 which precedes it in the -CE lines of the Segment. If a Data Element which 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 contained in a group (except for DL1 database Segments).
Note: When Data Elements are redefined, VA Pac does not take their respective lengths into account. This is your responsibility. In the calculation of address length, the redefined Data Element length is used for the address calculation. 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 one of the same level in the tree structure. You must then define the Occurs option in the Set of Redefines section.

More...

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.

Related tasks
Adding/removing call lines in a Segment

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)