Z-DIS05A

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Eine Büroliste mit Backup-Informationen anzeigen.

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, offenes Büro oder SYSCNT). Sie müssen den Bürotyp im Parameter Startbuerotyp angeben.

Wenn der Parameter Startbuerotyp den Wert 4 oder 9 enthält, werden die Backup-Informationen für das Büro SYSCNT angezeigt.

Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 angezeigt 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, 4=Büro SYSCNT, 9=alle Bürotypen.
Auswahlkriterium N1 E   0=alle Büros, für die ein Backup erstellt wurde. 1=alle zum Löschen markierten Büros. 2=alle zum Löschen markierten Büros, für die ein Backup erstellt wurde. 3=alle zum Löschen markierten Büros, für die kein Backup erstellt wurde. 9=alle Büros.
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.
Tage-dazwischen N4   X Die Anzahl der Tage zwischen Backup und Löschen. Der Wert wird aus den Systemvorgaben übernommen.
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, 4=Büro SYSCNT.
  Nachname A32   X Bei Bürotyp 0: der Nachname des Teilnehmers. Bei Bürotypen 1 bis 3: die Beschreibung des Büros. Gilt nicht für Bürotyp 4.
  Vorname A32   X Wird nur bei Bürotyp 0 ausgegeben: der Vorname des Teilnehmers.
  Letztes-Backup-Datum N8/1:2   X Datum der letzten zwei Backups. Format yyyymmdd.
  Letzte-Backup-Zeit N4/1:2   X Uhrzeit der letzten zwei Backups. Format hhmm.
  Zeitraum-Start N8/1:2   X Die letzten zwei Startdaten des Zeitraums, für den ein Backup erstellt wurde. Format yyyymmdd.
  Zeitraum-Ende N8/1:2   X Die letzten zwei Enddaten des Zeitraums, für den ein Backup erstellt wurde. Format yyyymmdd.
  Zum-Loeschen-markiert A1   X Wenn markiert, ist das Büro zum Löschen markiert.
  Loeschdatum N8   X Das Datum, an dem das Büro gelöscht werden soll. Format yyyymmdd.
  Loeschzeit N4   X Die Zeit, zu der das Büro gelöscht werden soll. Format hhmm.
  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 Startbürotyp wurde nicht angegeben; oder er wurde falsch angegeben
92 Ungültiges Auswahlkriterium (muss 0, 1, 2, 3 oder 9 sein)

Subprogramme

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

Beispiel

0010 *
0020 * Bueroliste mit Backup-Informationen 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 AUSWAHLKRITERIUM        (N1)
0120 1 ANZAHL                  (N2)
0130 1 TAGE-DAZWISCHEN         (N4)
0140 1 BUEROLISTE (20)
0150   2 BUERONAME             (A8)
0160   2 BUEROTYP              (A1)
0170   2 NACHNAME              (A32)
0180   2 VORNAME               (A32)
0190   2 LETZTES-BACKUP-DATUM  (N8/2)
0200   2 LETZTE-BACKUP-ZEIT    (N4/2)
0210   2 ZEITRAUM-START        (N8/2)
0220   2 ZEITRAUM-ENDE         (N8/2)
0230   2 ZUM-LOESCHEN-MARKIERT (A1)
0240   2 LOESCHDATUM           (N8)
0250   2 LOESCHZEIT            (N4)
0260   2 BUERO-ISN             (P10)
0270 1 WORK-PARAMETER        (A42)
0280 1 INDEX                 (N2)
0290 *
0300 END-DEFINE
0310 *
0320 RESET RETURN-CODE
0330 MOVE 'BUERO'     TO  BUERO
0340 MOVE 'PASSWORT'  TO  PASSWORT
0350 MOVE 'ZZT-555 '  TO  STARTBUERO
0360 MOVE  9          TO  STARTBUEROTYP
0370 MOVE  9          TO  AUSWAHLKRITERIUM
0380 MOVE  20         TO  ANZAHL
0390 *
0400 REPEAT UNTIL RETURN-CODE NE 0
0410 *
0420   CALLNAT 'Z-DIS05A'
0430     RETURN-CODE
0440     BUERO
0450     PASSWORT
0460     STARTBUERO
0470     STARTBUEROTYP
0480     AUSWAHLKRITERIUM
0490     ANZAHL
0500     TAGE-DAZWISCHEN
0510     BUEROLISTE(*)
0520     WORK-PARAMETER
0530 *
0540   FOR INDEX 1 TO ANZAHL
0550     IF BUERO-ISN(INDEX) NE 0
0560       WRITE  NOTITLE (SG=OFF ZP=OFF AD=L )
0570         'Tage dazwischen '     TAGE-DAZWISCHEN (ZP=ON)
0580         /  'Bueroname       '  BUERONAME(INDEX)
0590         /  'Buerotyp        '  BUEROTYP(INDEX)
0600         /  'Nachname        '  NACHNAME(INDEX)
0610         /  'Vorname         '  VORNAME(INDEX)
0620         /  'Buero-ISN       '  BUERO-ISN(INDEX)
0630         /  'Backup-Datum (1)'  LETZTES-BACKUP-DATUM(INDEX,1)
0640         /  'Backup-Zeit  (1)'  LETZTE-BACKUP-ZEIT(INDEX,1)
0650         /  'Backup-Datum (2)'  LETZTES-BACKUP-DATUM(INDEX,2)
0660         /  'Backup-Zeit  (2)'  LETZTE-BACKUP-ZEIT(INDEX,2)
0670         /  'Datum von    (1)'  ZEITRAUM-START(INDEX,1)
0680         /  'Datum bis    (1)'  ZEITRAUM-ENDE(INDEX,1)
0690         /  'Datum von    (2)'  ZEITRAUM-START(INDEX,2)
0700         /  'Datum bis    (2)'  ZEITRAUM-ENDE(INDEX,2)
0710         /  'Loeschdatum     '  LOESCHDATUM(INDEX)
0720         /  'Loeschzeit      '  LOESCHZEIT(INDEX)
0730         /  'Zum Loeschen    '  ZUM-LOESCHEN-MARKIERT(INDEX)
0740         /  '  markiert      '
0750       NEWPAGE
0760     END-IF
0770   END-FOR
0780 END-REPEAT
0790 WRITE   'Return-Code ' RETURN-CODE
0800 END