Z-DIS20

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Eine Liste mit Notizen anzeigen.

Sie können entweder alle Notizen anzeigen oder nur die mit bestimmten Suchbegriffen.

Im Parameter Notizsuchbegriffe können Sie Folgendes angeben (Sie dürfen nicht beides gleichzeitig angeben):

  • Um Notizen mit bestimmten Suchbegriffen zu finden: geben Sie die Suchbegriffe getrennt durch Leerzeichen an.

  • Um Notizen mit Suchbegriffen zu finden, die dieselben Anfangsbuchstaben haben: geben Sie die Buchstaben gefolgt von einem Stern (*) an.

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 Liste anzeigen wollen.
Passwort A8 E   Das Passwort des o.g. Büros.
Startnotizbetreff A32 O*   Entweder Startnotizbetreff oder Notizsuchbegriffe, nicht beides.
Notizsuchbegriffe A32 O*   Eine Liste von Suchbegriffen, wobei die Suchbegriffe durch Leerzeichen getrennt sind. Oder die Anfangsbuchstaben eines Suchbegriffs, gefolgt von einem Stern (*). Entweder Notizsuchbegriffe oder Startnotizbetreff, nicht beides.
Anzahl N2 O   Die maximale Anzahl von Notizen, 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.
Notizliste (20)
  Betreff A32   X Der Betreff der Notiz. Es kann mehrere Notizen mit demselben Betreff geben.
  ISN P10   X Die ISN der Notiz
  Erstellungsdatum N8   X Das Datum, an dem die Notiz erstellt wurde.
  Erstellungszeit N4   X Die Uhrzeit, zu der die Notiz erstellt wurde.
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
90 Geben Sie entweder Startnotizbetreff oder Notizsuchbegriffe an, nicht beides
91 Suchbegriff kann nicht interpretiert werden - geben Sie nach dem Stern (*) keine weiteren Suchbegriffe ein

Subprogramme

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

Beispiel

0010 *
0020 *  Liste mit Notizen zeigen
0030 *
0040 DEFINE DATA
0050 *
0060 LOCAL
0070 1 RETURN-CODE        (N2)
0080 1 BUERO              (A8)
0090 1 PASSWORT           (A8)
0100 1 STARTNOTIZBETREFF  (A32)
0110 1 NOTIZSUCHBEGRIFFE  (A32)
0120 1 ANZAHL             (N2)
0130 1 NOTIZLISTE         (20)
0140   2 BETREFF          (A32)
0150   2 ISN              (P10)
0160   2 ERSTELLUNGSDATUM (N8)
0170   2 ERSTELLUNGSZEIT  (N4)
0180 1 WORK-PARAMETER     (A42)
0190 1 INDEX              (N3)
0200 *
0210 *
0220 END-DEFINE
0230 *
0240 AT TOP OF PAGE
0250   WRITE
0260     '-----------Betreff-------------  ----ISN---- --Datum-- -Zeit-'
0270 END-TOPPAGE
0280 *
0290 RESET RETURN-CODE
0300 MOVE 'BUERO'         TO BUERO
0310 MOVE 'PASSWORT'      TO PASSWORT
0320 MOVE 'Besprechung 9/24 ' TO STARTNOTIZBETREFF
0330 MOVE  20             TO ANZAHL
0340 *
0350 REPEAT UNTIL RETURN-CODE NE 0
0360   CALLNAT 'Z-DIS20'
0370     RETURN-CODE
0380     BUERO
0390     PASSWORT
0400     STARTNOTIZBETREFF
0410     NOTIZSUCHBEGRIFFE
0420     ANZAHL
0430     NOTIZLISTE (*)
0440     WORK-PARAMETER
0450   IF RETURN-CODE EQ 00 OR EQ 77
0460     NEWPAGE
0470     FOR INDEX 1 TO 20
0480       IF BETREFF(INDEX)  NE ' '
0490           OR ISN(INDEX)  NE 0
0500         WRITE
0510           BETREFF(INDEX)
0520           ISN (INDEX)
0530           ERSTELLUNGSDATUM(INDEX)
0540           RSTELLUNGSZEIT(INDEX)
0550       END-IF
0560     END-FOR
0570   END-IF
0580 END-REPEAT
0590 *
0600 WRITE   'Return-Code  ' RETURN-CODE
0610 END