Z-GET06E

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Besprechungsversion und gegebenenfalls Änderungs- oder Absagemitteilung ausgeben.

Wenn eine neue Besprechungsversion erstellt wird (Version 2 oder höher) und die Einladungen versendet werden, wird auch eine Änderungsmitteilung an alle Teilnehmer versendet.

Wenn der Initiator die Besprechung absagt, wird in den folgenden Fällen eine Absagemitteilung an alle Teilnehmer versendet:

  • wenn die Einladung zur Besprechung bereits von einem der Teilnehmer gelesen wurde (gilt nur für Besprechungsversion 1), oder

  • wenn ein Teilnehmer auf einem anderen Con-nect-Knoten eingeladen wurde (gilt nur für Besprechungsversion 1), oder

  • wenn die Besprechungsversion 2 oder höher ist.

Folgendes gilt nur für Besprechungsversion 1: wenn kein Teilnehmer die Einladung gelesen hat, wird keine Absagemitteilung gesendet. Stattdessen werden die Einladungen automatisch aus den Posteingangsfächern gelöscht. Wenn jedoch auch ein Teilnehmer eines anderen Con-nect-Knotens eingeladen wurde, werden die Einladungen nicht gelöscht.

Sie müssen die ISN der gewünschten Besprechung angeben.

Um die ISN der aktuellen Besprechungsversion oder der Absagemitteilung zu erhalten, können Sie vor dem Aufruf dieses Subprogramm Z-GET06B aufrufen.

Um die ISN einer vorherigen Besprechungsversion (Besprechungshistorie) zu erhalten, können Sie vor dem Aufruf dieses Subprogramm Z-GET06D aufrufen.

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   X Die ISN der Besprechung.
Besprechungsversion N4   X Versionsnummer der aktuellen oder vorherigen Besprechung. 0=Absagemitteilung.
Mitteilungstyp A1   X 0=es gibt keine Mitteilung. 1=Änderungsmitteilung. 2=Absagemitteilung.
Text-Array A37/1:11   X Der Mitteilungstext.
Letzte-Zeile-Text N2   X Die Nummer der letzten Textzeile. Leerzeilen am Textende werden nicht berücksichtigt.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
04 ISN wurde nicht gefunden
09 ISN zeigt nicht auf das richtige Objekt

Subprogramme

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

Beispiel

0010 * Dieses Subprogramm wird von einem anderen Programm aufgerufen, das
0020 * Z-GET06B verwendet und die ISN der Besprechung als Parameter uebergibt
0030 DEFINE DATA
0040 LOCAL 
0050 1 RETURN-CODE         (N2)
0060 1 BUERO               (A8)
0070 1 KALENDER-ISN        (P10)
0080 1 BESPRECHUNGSVERSION (N4)
0090 1 PASSWORT            (A8)
0100 1 MITTEILUNGSTYP      (A1)
0110 1 TEXT-ARRAY          (A37/1:11)
0120 1 LETZTE-ZEILE-TEXT   (N2)
0130 1 #I                  (N2)
0140 END-DEFINE
0150 *
0160 RESET RETURN-CODE
0170 MOVE 'LS'  TO BUERO
0180 MOVE 'LS'  TO PASSWORT
0190 MOVE 80715 TO KALENDER-ISN
0200 *
0210 CALLNAT 'Z-GET06E'
0220  RETURN-CODE
0230  BUERO
0240  PASSWORT
0250  KALENDER-ISN
0260  BESPRECHUNGSVERSION
0270  MITTEILUNGSTYP
0280  TEXT-ARRAY(*)
0290  LETZTE-ZEILE-TEXT
0300 *
0310 IF RETURN-CODE EQ 0
0320  WRITE 'Besprechungsversion' BESPRECHUNGSVERSION
0330  DECIDE ON FIRST VALUE OF MITTEILUNGSTYP
0340   VALUE '0'
0350    IGNORE
0360   VALUE '1'
0370    WRITE 'Aenderungsmitteilung'
0380    PERFORM PRINT-TEXT
0390   VALUE '2'
400     WRITE 'Absagemitteilung'
0410    PERFORM PRINT-TEXT
0420   NONE IGNORE
0430  END-DECIDE
0440 ELSE
0450  WRITE 'Fehler' RETURN-CODE
0460 END-IF
0470 * 
0480 DEFINE SUBROUTINE PRINT-TEXT
0490  IF LETZTE-ZEILE-TEXT NE 0
0500   FOR #I 1 LETZTE-ZEILE-TEXT
0510    WRITE TEXT-ARRAY(#I)
0520   END-FOR
0530  END-IF
0540 END-SUBROUTINE
0550 * 
0560 END