Dieses Dokument behandelt die folgenden Themen:

• Beschreibung

• Parameter

• Return-Codes

• Subprogramme

• Beispiel

---

Beschreibung

Die Bürotelefonnummer eines Teilnehmers ausgeben.

Parameter

Parameter	Format	Ein	Aus	Bemerkung
Return-Code	N2		X
Buero	A8	E		Das Bürokennzeichen des Teilnehmers.
Nachname	A32		X	Der Nachname des Teilnehmers, dem das Büro gehört.
Vorname	A32		X	Der Vorname des Teilnehmers.
Buero-Telefon	A15		X	Die Bürotelefonnummer des Teilnehmers.
Buero-Durchwahl	A10		X	Die Durchwahl der Bürotelefonnummer.

Return-Codes

00	Erfolg
02	Ungültiger Büroname

Subprogramme

Keine

Beispiel

0010 DEFINE DATA LOCAL
0020 1 RETURN-CODE     (N2)
0030 1 BUERO           (A8)
0040 1 NACHNAME        (A32)
0050 1 VORNAME         (A32)
0060 1 BUERO-TELEFON   (A15)
0070 1 BUERO-DURCHWAHL (A10)
0080 END-DEFINE
0090 *
0100 MOVE 'LS' TO BUERO
0110 CALLNAT 'Z-GET33A' RETURN-CODE BUERO NACHNAME VORNAME
0120   BUERO-TELEFON BUERO-DURCHWAHL
0130 PRINT RETURN-CODE NACHNAME VORNAME BUERO-TELEFON
0140   BUERO-DURCHWAHL
0150 END