Dieses Dokument behandelt die folgenden Themen:
Eine alphabetisch sortierte Büroliste anzeigen.
Dieses Subprogramm entspricht Z-DIS05 mit der Ausnahme, dass der Parameter Buero-ISN das Format P10 hat.
Sie können entweder eine Liste mit allen Bürotypen anzeigen oder eine Liste mit einem bestimmten Bürotyp (Privatbüro, unabhängiges Büro, Gruppenbüro oder offenes Büro). Sie müssen den Bürotyp im Parameter Startbuerotyp angeben.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | O | X | Eingabe -1: kein ET. |
| Buero | A8 | E | Dieses Subprogramm kann von jedem Teilnehmer aufgerufen werden. | |
| Passwort | A8 | E | Das Passwort des o.g. Büros. | |
| Startbuero | A8 | O | Startwert. Der Name des Büros. Wenn Sie diesen Parameter nicht angeben, wird eine Liste aller Büros des gewünschten Typs ausgegeben. | |
| Startbuerotyp | N1 | E | 0=Privatbüro, 1=unabhängiges Büro, 2=Gruppenbüro, 3=offenes Büro, 9=alle Bürotypen. | |
| Anzahl | N2 | O | Die maximale Anzahl von Büros, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt. | |
| Bueroliste (20) | ||||
| Bueroname | A8 | X | Der Name des Büros. | |
| Buerotyp | A1 | X | 0=Privatbüro, 1=unabhängiges Büro, 2=Gruppenbüro, 3=offenes Büro. | |
| Nachname | A32 | X | Bei Bürotyp 0: der Nachname des Teilnehmers. Bei Bürotypen 1, 2 und 3: die Beschreibung des Büros. | |
| Vorname | A32 | X | Wird nur bei Bürotyp 0 ausgegeben: der Vorname des Teilnehmers. | |
| 2-Vorname | A1 | X | Wird nur bei Bürotyp 0 ausgegeben: der erste Buchstabe des zweiten Vornamens des Teilnehmers. | |
| Keine-Post | A1 | X | Wird nur bei den Bürotypen 1, 2 und 3 ausgegeben. Markiert, wenn das Büro keine Post senden und empfangen kann. | |
| Verantwortlicher | A1 | X | Markiert, wenn ein Administrator als Verantwortlicher des Büros definiert wurde. | |
| Administrator | A1 | X | Gilt nur für ein Administratorbüro: X=Systemadministrator, A=Büroadministrator, S=Supervisor. | |
| Buero-ISN | P10 | X | Die ISN des Büros. | |
| Work-Parameter | A42 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
| 03 | Falsches Passwort |
| 77 | Ende der Liste |
| 91 | Der Bürotyp wurde nicht angegeben; oder er wurde falsch angegeben |
Z-120
Z-122
Z-123
Z-1200&0
0010 * 0020 * Bueroliste mit Backupinformationen zeigen 0030 * 0040 DEFINE DATA 0050 LOCAL 0060 1 RETURN-CODE (N2) 0070 1 BUERO (A8) 0080 1 PASSWORT (A8) 0090 1 STARTBUERO (A8) 0100 1 STARTBUEROTYP (N1) 0110 1 ANZAHL (N2) 0120 1 BUEROLISTE (20) 0130 2 BUERONAME (A8) 0140 2 BUEROTYP (A1) 0150 2 NACHNAME (A32) 0160 2 VORNAME (A32) 0170 2 2-VORNAME (A1) 0180 2 KEINE-POST (A1) 0190 2 VERANTWORTLICHER (A1) 0200 2 ADMINISTRATOR (A1) 0210 2 BUERO-ISN (P10) 0220 1 WORK-PARAMETER (A42) 0230 1 #INDEX (N2) 0240 * 0250 END-DEFINE 0260 * 0270 RESET RETURN-CODE 0280 MOVE 'BUERO' TO BUERO 0290 MOVE 'PASSWORT' TO PASSWORT 0300 MOVE 'AAA-777 ' TO STARTBUERO 0310 MOVE 9 TO STARTBUEROTYP 0320 MOVE 20 TO ANZAHL 0330 * 0340 REPEAT UNTIL RETURN-CODE NE 0 0350 * 0360 CALLNAT 'Z-DIS05X' 0370 RETURN-CODE 0380 BUERO 0390 PASSWORT 0400 STARTBUERO 0410 STARTBUEROTYP 0420 ANZAHL 0430 BUEROLISTE(*) 0440 WORK-PARAMETER 0450 * 0460 FOR #INDEX 1 TO ANZAHL 0470 IF BUERO-ISN(#INDEX) NE 0 0480 WRITE NOTITLE (SG=OFF ZP=OFF AD=L) 0490 '=' #INDEX 0500 / 'Bueroname ' BUERONAME(#INDEX) 0510 / 'Buerotyp ' BUEROTYP(#INDEX) 0520 / 'Nachname ' NACHNAME(#INDEX) 0530 / 'Vorname ' VORNAME(#INDEX) 0540 / '2. Vorname ' 2-VORNAME(#INDEX) 0550 / 'Keine Post ' KEINE-POST(#INDEX) 0560 / 'Verantwortlicher ' VERANTWORTLICHER(#INDEX) 0570 / 'Administrator ' ADMINISTRATOR(#INDEX) 0580 / 'Buero-ISN ' BUERO-ISN(#INDEX) / 0590 NEWPAGE 0600 END-IF 0610 END-FOR 0620 END-REPEAT 0630 * 0640 WRITE 'Return-Code ' RETURN-CODE 0650 * 0660 END