This document covers the following topics:
Return the meeting version and, if applicable, either the update or cancelation message.
When a new meeting version is created (version 2 or above) and the inivations are sent, an update message is also sent to all attendees.
When the originator cancels the meeting, a cancelation message is sent to all attendees in the following cases:
when the invitation to the meeting has already been read by one of the attendees (applies only to meeting version 1), or
when an attendee located at another Con-nect node was invited (applies only to meeting version 1), or
when the meeting version is 2 or above.
The following only applies to meeting version 1: when none of the attendees has read the invitation, a cancelation message is not sent. In this case, all invitations in the Inbaskets of the attendees are erased. However, when an attendee located at another Con-nect node has also been invited, the invitations are not erased.
This subprogram requires that you specify the ISN of the wanted meeting.
To get the ISN of the current meeting version or of the cancelation notification, invoke Z-GET06B prior to this subprogram.
To get the ISN of a previous meeting version (meeting history), invoke Z-GET06D prior to this subprogram.
Parameter | Format | In | Out | Remarks |
---|---|---|---|---|
Return-code | N2 | O | X | Input -1: no ET. |
Cabinet | A8 | R | The cabinet which contains the meeting for which you want information returned. | |
Password | A8 | R | The password of the above cabinet. | |
Calendar-ISN | P10 | X | The ISN of the meeting. | |
Meeting-version | N4 | X | Version number of current or previous meeting. 0=cancelation notification is returned. | |
Message-type | A1 | X | 0=no message attached to meeting. 1=update message. 2=cancelation message. | |
Text-array | A37/1:11 | X | The text of the message. | |
Last-text-line | N2 | X | The number of the last text line, not considering blank lines at the end of the text. |
00 | Success |
02 | Invalid cabinet name or - in batch mode only - locked cabinet |
03 | Password incorrect |
04 | ISN was not found |
09 | ISN does not point to correct object |
Z-120
Z-122
Z-123
Z-711
Z-1200&0
0010 * This subprogram is called from another program which uses Z-GET06B 0020 * and passes the meeting ISN as a parameter 0030 DEFINE DATA 0040 LOCAL 0050 1 RETURN-CODE (N2) 0060 1 CABINET (A8) 0070 1 CALENDAR-ISN (P10) 0080 1 MEETING-VERSION (N4) 0090 1 PASSWORD (A8) 0100 1 MESSAGE-TYPE (A1) 0110 1 TEXT-ARRAY (A37/1:11) 0120 1 LAST-TEXT-LINE (N2) 0130 1 #I (N2) 0140 END-DEFINE 0150 * 0160 RESET RETURN-CODE 0170 MOVE 'LS' TO CABINET 0180 MOVE 'LS' TO PASSWORD 0190 MOVE 80715 TO CALENDAR-ISN 0200 * 0210 CALLNAT 'Z-GET06E' 0220 RETURN-CODE 0230 CABINET 0240 PASSWORD 0250 CALENDAR-ISN 0260 MEETING-VERSION 0270 MESSAGE-TYPE 0280 TEXT-ARRAY(*) 0290 LAST-TEXT-LINE 0300 * 0310 IF RETURN-CODE EQ 0 0320 WRITE 'Meeting version' MEETING-VERSION 0330 DECIDE ON FIRST VALUE OF MESSAGE-TYPE 0340 VALUE '0' 0350 IGNORE 0360 VALUE '1' 0370 WRITE 'Meeting update message' 0380 PERFORM PRINT-TEXT 0390 VALUE '2' 400 WRITE 'Meeting cancelation message' 0410 PERFORM PRINT-TEXT 0420 NONE IGNORE 0430 END-DECIDE 0440 ELSE 0450 WRITE 'Error' RETURN-CODE 0460 END-IF 0470 * 0480 DEFINE SUBROUTINE PRINT-TEXT 0490 IF LAST-TEXT-LINE NE 0 0500 FOR #I 1 LAST-TEXT-LINE 0510 WRITE TEXT-ARRAY(#I) 0520 END-FOR 0530 END-IF 0540 END-SUBROUTINE 0550 * 0560 END