Z-GET33A

Dieses Dokument behandelt die folgenden Themen:


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 oder - nur im Batch-Betrieb - Büro gesperrt

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