USAGE-Klausel

Funktion

Die USAGE-Klausel legt fest, in welchem Datenformat ein Datenelement im Internspeicher der Datenverarbeitungsanlage abgespeichert wird.

Format

[USAGE IS] {  BINARY
            | COMPUTATIONAL
            | COMP
            | COMPUTATIONAL-1
            | COMP-1
            | COMPUTATIONAL-2
            | COMP-2
            | COMPUTATIONAL-3
            | COMP-3
            | COMPUTATIONAL-4
            | COMP-4
            | COMPUTATIONAL-5
            | COMP-5
            | DISPLAY
            | INDEX
            | NATIONAL
            | OBJECT REFERENCE [  interfacename-1
                                | [FACTORY OF] ACTIVE-CLASS
                                | [FACTORY OF] klassenname-1 [ONLY]
                               ]
            | PACKED-DECIMAL
            | POINTER [TO typname-1]
            | PROGRAM-POINTER
          }

Syntaxregeln

1. COMP ist die Abkürzung für COMPUTATIONAL.
   COMP-1 ist die Abkürzung für COMPUTATIONAL-1.
   COMP-2 ist die Abkürzung für COMPUTATIONAL-2.
   COMP-3 ist die Abkürzung für COMPUTATIONAL-3.
   COMP-5 ist die Abkürzung für COMPUTATIONAL-5.

2. Wird die USAGE-Klausel für ein Datenelement oder eine Datengruppe nicht angegeben, so wird

   1. USAGE NATIONAL angenommen, wenn die explizite oder implizite PICTURE Maskenzeichenfolge das Zeichen N enthält

   2. USAGE DISPLAY in allen anderen Fällen angenommen.

3. Für die Beschreibung der verschiedenen Datenkategorien siehe Kapitel „Einführung in die COBOL-Sprache".

Allgemeine Regeln

1. Die USAGE-Klausel kann auf jeder Datenbeschreibungsstufe angegeben werden. Wird die USAGE-Klausel auf Gruppenebene angegeben, so gilt sie für alle Datenelemente dieser Gruppe.

2. Die Angabe der USAGE-Klausel eines Datenelements darf nicht im Widerspruch stehen zur Angabe der USAGE-Klausel der Gruppe, zu der das Datenelement gehört.

3. Ein Datenelement, das mit USAGE BINARY, COMPUTATIONAL,
   COMPUTATIONAL-1, COMPUTATIONAL-2, COMPUTATIONAL-3,
   COMPUTATIONAL-5 oder
   PACKED-DECIMAL beschrieben wurde, stellt einen Wert dar, der in arithmetischen Operationen verwendet wird, und muss deshalb numerisch sein. Wird für eine Datengruppe eine dieser Angaben gemacht, so beziehen sich diese Angaben nur auf die Datenelemente dieser Gruppe; die Datengruppe selbst darf bei Rechenoperationen nicht verwendet werden.

4. Die USAGE-Klausel ist für die Verwendung eines Datenelementes ohne Bedeutung. Einige Anweisungen des Prozedurteils können jedoch die für ihre Operanden zulässigen USAGE-Klausen einschränken.

5. Die interne Darstellung der numerischen Datenfelder ist in Tabelle 17 im Abschnitt "COMPUTATIONAL-3-Angabe oder PACKED-DECIMAL-Angabe" gezeigt.