Dieses Dokument behandelt die folgenden Themen:
Die Bürotelefonnummer eines Teilnehmers ausgeben.
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. |
00 | Erfolg |
02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
Keine
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