Z-DIS05X

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

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

Subprogramme

Z-120
Z-122
Z-123
Z-1200&0

Beispiel

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