Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
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) |
Z-120
Z-122
Z-123
Z-1200&0
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