Z-DIS27

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Eine Liste mit Referenzdokumenten anzeigen.

Sie können entweder alle Referenzdokumente eines Büros in alphabetischer Reihenfolge anzeigen oder alle Referenzdokumente eines Fachs/Ordners in chronologischer Reihenfolge.

Um eine Liste aller Referenzdokumente eines Büros anzuzeigen, dürfen Sie kein Fach und keinen Ordner angeben.

Sie können ein Fach oder einen Ordner entweder über seine Nummer oder seinen Namen angeben. Sie dürfen nicht beides angeben.

Anmerkung:
Vor dem Aufruf dieses Subprogramms können Sie Z-DIS13 aufrufen, um die Nummer eines selbstdefinierten Fachs auszugeben.

Referenzdokumente in den Fächern Papierkorb, Posteingang oder Tageskopien werden nur dann angezeigt, wenn der Parameter Fachname oder Fachnummer angegeben wird.

Anmerkung:
Wenn Sie das Fach Posteingang oder die Fachnummer 1 angeben, ohne eine Ordnernummer oder einen Ordnernamen anzugeben, gibt dieses Subprogramm eine Liste aller Referenzdokumente in allen Ordnern des Fachs Posteingang aus.

Für eine alphabetische oder freie Ablagefolge können Sie einen Referenzdokumentnamen im Parameter Startwert angeben. Für eine steigende oder absteigende Ablagefolge können Sie ein Referenzdokumentdatum im Parameter Startwert angeben.

Der Parameter Absender-/Empfaengername wird nur für Referenzdokumente ausgegeben, die sich in den Fächern Posteingang und Tageskopien befinden.

Eine vollständige Referenzdokumentliste wird ausgegeben, wenn Sie dieses Subprogramm iterativ aufrufen. Nachdem Sie das Subprogramm aufgerufen haben, können Sie die Parameter nicht mehr ändern. Wenn Sie dieses Subprogramm iterativ aufrufen, enthält der Work-Parameter die erforderlichen Werte für den erneuten Aufruf.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Der Name des Büros, in dem Sie die Referenzdokumentliste anzeigen wollen.
Passwort A8 E   Das Passwort des o.g. Büros.
Fachname A15 O*   Der Name des Fachs, in dem Sie die Referenzdokumentliste anzeigen wollen. Entweder Fachname oder Fachnummer, nicht beides.
Ordnername A15 O*   Der Name des Ordners, in dem Sie die Referenzdokumentliste anzeigen wollen. Wenn Sie einen Ordnernamen angeben, müssen Sie auch einen Fachnamen angeben. Entweder Ordnername oder Ordnernummer, nicht beides.
Fachnummer N5 O*   Die Nummer des Fachs, in dem Sie die Referenzdokumentliste anzeigen wollen. Entweder Fachnummer oder Fachname, nicht beides. Siehe Fachnummern.
Ordnernummer N5 O*   Die Nummer des Ordners, in dem Sie die Referenzdokumentliste anzeigen wollen. Wenn Sie eine Ordnernummer angeben, müssen Sie auch eine Fachnummer angeben. Entweder Ordnernummer oder Ordnername, nicht beides. Siehe Ordnernummern .
Fach-Ablagefolge N1 O   1 (steigend), 2 (absteigend) oder 3 (frei). Vorgabe: 1.
Startwert A32 O   Für alphabetische oder freie Ablagefolge: Referenzdokumentname. Für steigende oder absteigende Ablagefolge: Referenzdokumentdatum (yyyymmdd).
Anzahl N2 O   Die maximale Anzahl von Referenzdokumenten, 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.
Referenz-Liste (20)        
  Referenz-ISN P10   X Die ISN des Referenzdokuments.
  Referenz-Name A32   X Der Name des Referenzdokuments.
  Beschreibung A60   X Die erste Zeile der Beschreibung.
  Abgelegt-in-Fach A15   X Der Name des Fachs, in dem das Referenzdokument abgelegt ist.
  Abgelegt-in-Ordner A15   X Der Name des Ordners, in dem das Referenzdokument abgelegt ist.
  Datum-abgelegt N8   X Das Datum, an dem das Referenzdokument in diesem Büro abgelegt wurde. Wenn sich das Referenzdokument im Fach Posteingang oder Tageskopien befindet, ist dies das Datum, an dem es gesendet wurde.
  Absender-/Empfaengername A20   X Wenn sich das Referenzdokument im Fach Posteingang befindet, ist dies der Name des Absenders. Wenn sich das Referenzdokument im Fach Tageskopien befindet, ist dies der Name des ersten Empfängers.
  Postzaehler N7   X Wenn sich das Referenzdokument im Fach Tageskopien befindet, ist dies die Anzahl der Empfänger, an die es gesendet wurde.
Work-Parameter A49     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
11 Geben Sie Fach-/Ordnername oder Nummer ein - nicht beides
55 Das gewünschte Fach bzw. der gewünschte Ordner existiert nicht
73 Ungültiger Fach-/Ordnername
77 Ende der Liste

Subprogramme

Z-120
Z-122
Z-123
Z-147
Z-150
Z-175
Z-1200&0

Beispiel

0010 *
0020 * Liste mit Referenzdokumenten zeigen
0030 *
0040 DEFINE DATA
0050 LOCAL
0060 1 RETURN-CODE               (N2)
0070 1 BUERO                     (A8)
0080 1 PASSWORT                  (A8)
0090 1 FACHNAME                  (A15)
0100 1 ORDNERNAME                (A15)
0110 1 FACHNUMMER                (N5)
0120 1 ORDNERNUMMER              (N5)
0130 1 FACH-ABLAGEFOLGE          (N1)
0140 1 STARTWERT                 (A32)
0150 1 ANZAHL                    (N2)
0160 1 REFERENZ-LISTE (20)
0170   2 REFERENZ-ISN            (P10)
0180   2 REFERENZ-NAME           (A32)
0190   2 BESCHREIBUNG            (A60)
0200   2 ABGELEGT-IN-FACH        (A15)
0210   2 ABGELEGT-IN-ORDNER      (A15)
0220   2 DATUM-ABGELEGT           (N8)
0230   2 ABSENDER-/EMPFAENGERNAME (A20)
0240   2 POSTZAEHLER              (N7)
0250 1 WORK-PARAMETER             (A49)
0260 1 INDEX            (N2)
0270 *
0280 END-DEFINE
0290 *
0300 MOVE   'BUERO'        TO  BUERO
0310 MOVE   'PASSWORT'     TO  PASSWORT
0320 MOVE   'ARBEITSFACH'  TO  FACHNAME
0330 MOVE   '19961231'     TO  STARTWERT
0340 MOVE    20            TO  ANZAHL
0350 *
0360 RESET RETURN-CODE
0370 REPEAT UNTIL RETURN-CODE NE 0
0380 *
0390 CALLNAT 'Z-DIS27'
0400   RETURN-CODE
0410   BUERO
0420   PASSWORT
0430   FACHNAME
0440   ORDNERNAME
0450   FACHNUMMER
0460   ORDNERNUMMER
0470   FACH-ABLAGEFOLGE
0480   STARTWERT
0490   ANZAHL
0500   REFERENZ-LISTE (*)
0510   WORK-PARAMETER
0520 *
0530   FOR INDEX 1 TO 20
0540     IF REFERENZ-ISN(INDEX) EQ 0
0550       ESCAPE BOTTOM
0560     ELSE
0570       NEWPAGE
0580       WRITE(AD=L) INDEX                                       //
0590         'ISN                 ' REFERENZ-ISN(INDEX)             /
0600         'Referenzdokument    ' REFERENZ-NAME(INDEX)            /
0610         'Beschreibung        ' BESCHREIBUNG(INDEX)             /
0620         'Fach                ' ABGELEGT-IN-FACH(INDEX)         /
0630         'Ordner              ' ABGELEGT-IN-ORDNER(INDEX)       /
0640         'Abgelegt am         ' DATUM-ABGELEGT(INDEX)           /
0650         'Absender/Empfaenger ' ABSENDER-/EMPFAENGERNAME(INDEX) /
0660         'Postzaehler         ' POSTZAEHLER(INDEX)       /
0670     END-IF
0680   END-FOR
0690 END-REPEAT
0700   WRITE  'Return-Code ' RETURN-CODE
0710 END