| |
COBOL, das Verlängerungen zu COBOL Juni 85 1999 abbildet 1-77 1 1,26,3 Gleitkomma Z.Z. stützt COBOL 85 nicht Gleitkommadatenarten. Es gibt ein implizites Gebrauch von Gleitkomma innerhalb dieses Diagramms. Die Gleitkommaarten OMG IDL sind wie folgt spezifiziert innerhalb des CORBA Spezifikation: Hin- und Herbewegung stellt Gleitkommazahlen der einfachen Genauigkeit dar Doppeltes stellt doppelt genaue Gleitkommazahlen dar langes Doppeltes stellt Gleitkommazahlen der Lang-doppeltpräzision dar Die oben genannten IDL-Arten sollten zur gebürtigen Gleitkommaart abgebildet werden. Das ORB Wille ist dann für das Umwandeln der gebürtigen Gleitkommaarten in das Common verantwortlich SYNTAX der Informationsdarstellung (CDR) Übergangsspezifiziert für das OMG IDL Gleitkomma Arten. 1,26,4 Konstanten Z.Z. definiert COBOL 85 keine Syntax für COBOLKONSTANTEN. Das folgende Hauptneuausgabe von COBOL 85 definiert die Syntax unten für diese Funktionalität. Sicherstellen, daß ein komplettes Diagramm von CORBA IDL innerhalb a vollendet werden kann COBOLANWENDUNG, ist es notwendig, Konstanten CORBA IDL zu irgendeiner Form abzubilden von COBOL konstant wie dieses. >> KONSTANTER Konstant-Name IST WÖRTLICH GANZZAHL 1,26,5 Typedefs Z.Z. definiert COBOL 85 keine Syntax für COBOLTYPEDEFS. Der folgende Major Neuausgabe von COBOL 85 definiert die Syntax unten für diese Funktionalität. Ein typedef ist das definierte Verwenden IST TYPEDEF-Klausel auf einer Standarddateneingabe. Es kennzeichnet es als typedef und wird keine Ablage dazugehörig mit ihr haben. Sie wird später in Verbindung mit der Leistentypklausel verwendet, um Benutzer definierte Daten zu kennzeichnen Art. Das folgende ist ein Beispiel dieser Syntax. * (DEFINIERT Ein TYPEDEF) Mein-Anzeige-Bereich-Art 01 IST TYPEDEF. 02 W-Länge BAUT. DES VERBRAUCHES PIC 9(4). W-Text 02 VERBRAUCH PIC X(40). ..... * (MIT TIPPT SPEICHERDEFINITIONEN EIN) 01 Ws-message1 SCHREIBEN Sie Mein-msg-Bereich-Art. 01 Ws-message2 SCHREIBEN Sie Mein-msg-Bereich-Art. ..... * (MANIPULIEREN SIE DATEN, WIE ANGEFORDERT) |  |
|
| |
|
|