Z-GET06D

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Historie einer Besprechung ausgeben.

Sie sollten dieses Subprogramm solange iterativ aufrufen, bis Return-Code 77 ausgegeben wird. Return-Code 77 bedeutet, dass die Historie der Besprechung gelesen wurde.

Solange der Work-Parameter von dem aufrufenden Programm nicht zerstört wird, können Sie dieses Subprogramm iterativ aufrufen, um aufeinander folgende Besprechungsversionen auszugeben (Historie).

Sie müssen die ISN der gewünschten Besprechung angeben. Rufen Sie vor dem Aufruf dieses Subprogramm Z-GET06B auf, um die ISN zu erhalten.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem die Besprechung enthalten ist.
Passwort A8 E   Das Passwort des o.g. Büros.
Kalender-ISN P10 E   Die ISN der Besprechung.
Version N3   X Die Besprechungsversion.
Startdatum A8   X Format yyyymmdd.
Startzeit A8   X Format hhmm.
Enddatum A8   X Format yyyymmdd.
Endzeit A8   X Format hhmm.
Betreff A20   X Der Betreff der Besprechung.
Beschreibung A60/1:3   X Die Beschreibung der Besprechung.
Ort A60   X Der Ort, an dem die Besprechung stattfindet.
Agenda A32   X Der Name des Dokuments, das mit der Besprechung verknüpft wurde.
Persoenlich-Flag A1   X Markiert, wenn die Besprechung ein persönliches Objekt ist.
Berechtigungsstufen A1/1:4   X Die Berechtigungsstufen für Lesen, Ändern, Kopieren und Drucken. Werte 0 bis 9.
Zeitraum A1   X 1=der gesamte Zeitraum, 2=separate Einträge pro Tag, 3=nur Startzeit.
Keine-Zeitbelegung A1   X Leer=die Besprechung belegt Zeit; linke Klammer=die Besprechung belegt keine Zeit.
Historie-ISN P10   X Die ISN der Besprechungsversion.
Work-Parameter A40     Für den internen Gebrauch. Siehe Work-Parameter.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
03 Falsches Passwort
04 ISN wurde nicht gefunden
09 ISN zeigt nicht auf das richtige Objekt
77 Ende der Liste

Subprogramme

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

Beispiel

0010 * Informationen ueber die Historie 
0020 * einer Besprechung ausgeben
0030 *
0040 DEFINE DATA
0050 LOCAL
0060 1 RETURN-CODE    (N2)
0070 1 BUERO          (A8)
0080 1 PASSWORT       (A8)
0090 1 KALENDER-ISN   (P10)
0100 1 VERSION        (N3)
0110 1 STARTDATUM     (A8)
0120 1 STARTZEIT      (A8)
0130 1 ENDDATUM       (A8)
0140 1 ENDZEIT        (A8)
0150 1 BETREFF        (A20)
0160 1 BESCHREIBUNG   (A60/1:3)
0170 1 ORT            (A60)
0180 1 AGENDA         (A32)
0190 1 PERSOENLICH-FLAG    (A1)
0200 1 BERECHTIGUNGSSTUFEN (A1/1:4)
0210 1 ZEITRAUM            (A1)
0220 1 KEINE-ZEITBELEGUNG  (A1)
0230 1 HISTORIE-ISN        (P10)
0240 1 WORK-PARAMETER      (A40)
0250 END-DEFINE
0260 *
0270 MOVE 'LS'   TO BUERO
0280 MOVE 'LS'   TO PASSWORT
0290 MOVE 84847  TO KALENDER-ISN
0300 *
0310 RESET RETURN-CODE WORK-PARAMETER
0320  REPEAT UNTIL RETURN-CODE NE 0
0330   CALLNAT 'Z-GET06D'
0340    RETURN-CODE
0350    BUERO
0360    PASSWORT
0370    KALENDER-ISN
0380    VERSION
0390    STARTDATUM
0400    STARTZEIT
0410    ENDDATUM
0420    ENDZEIT
0430    BETREFF
0440    BESCHREIBUNG(*)
0450    ORT
0460    AGENDA
0470    PERSOENLICH-FLAG
0480    BERECHTIGUNGSSTUFEN(*)
0490    ZEITRAUM
0500    KEINE-ZEITBELEGUNG
0510    HISTORIE-ISN
0520    WORK-PARAMETER
0530 *
0540   IF RETURN-CODE EQ 0
0550    NEWPAGE
0560    WRITE
0570     '=' BUERO /
0580     '=' PASSWORT /
0590     '=' KALENDER-ISN /
0600     '=' VERSION /
0610     '=' STARTDATUM /
0620     '=' STARTZEIT /
0630     '=' ENDDATUM /
0640     '=' ENDZEIT /
0650     '=' BETREFF /
0660     '=' BESCHREIBUNG(1) /
0670     '=' BESCHREIBUNG(2) /
0680     '=' BESCHREIBUNG(3) /
0690     '=' ORT /
0700     '=' AGENDA /
0710     '=' PERSOENLICH-FLAG /
0720     '=' BERECHTIGUNGSSTUFEN(*) /
0730     '=' ZEITRAUM /
0740     '=' KEINE-ZEITBELEGUNG /
0750     '=' HISTORIE-ISN /
0760   END-IF
0770  END-REPEAT
0780 WRITE 'Return-Code' RETURN-CODE
0790 END