1-34 COBOLCSprache, die Aktualisierten Juni 1999 Abbildet 1 * IN KURZEM M * IM LANGEN WERT * 01 Beispiel-stellten-args ein. 03 N ABBILDUNG S9(05) BINÄR. 03 M ABBILDUNG S9(05) BINÄR. Idl-Wert 03 ABBILDUNG S9(10) BINÄR. * * BETRIEB: ERHALTEN Sie * PARAMETER: IN KURZEM N * IN KURZEM M * GEHT zurück: LANG * 01 Beispiel-erhalten-args. 03 N ABBILDUNG S9(05) BINÄR. 03 M ABBILDUNG S9(05) BINÄR. RESULTAT 03 ABBILDUNG S9(10) BINÄR. *======================================================= * Beispiel-Betrieb *======================================================= 01 Beispiel-Betrieb ABBILDUNG X(12). 88 Beispiel-erhalten-erste WERT "_ GET_FIRST". 88 Beispiel-erhalten-zweites WERT "_ GET_SECOND". 88 Beispiel-stellten ein WERT "STELLTE" EIN. 88 Beispiel-erhalten WERT "ERHALTEN". *======================================================= * Beispiel-Schnittstelle * * EINE UNDURCHLÄSSIGE STRUKTUR, DIE SCHNITTSTELLENCDetails ENTHÄLT. * FÜR DIESE SPEZIFISCHE ABBILDUNG IST SIE GEWESEN * ERZEUGT IN Einer UNTERSCHIEDLICHEN KOPIENCAkte, DIE ENTHALTEN IST * HIER . *======================================================= COPIES EXAMPLE1. *======================================================= * Beispiel-Benutzer-Ausnahmen *======================================================= 01 Beispiel-Benutzer-Ausnahmen. Ausnahme-Kennzeichnung 03 ZEIGER. 03 D ABBILDUNG 9(10) BINÄR. 03 U DATENCGröße DER ABBILDUNG X(<MAX >). 03 irren Sich NEU DEFINIERT U. WERT 05 ABBILDUNG 9(5) BINÄR. 01 irren sich ABBILDUNG X(...) WERT "(EINZIGARTIGE AUSNAHME IDENTIFIKATION.html".