This document covers the following topics:
Return information about notes that are attached to an appointment or meeting.
To get the ISN of the appointment or meeting, you can invoke Z-GET06B prior to this subprogram.
Before the first call to this subprogram, you must reset the Work-parameter.
When you specify a sequence number for the parameter Note-current, the initial call to this subprogram begins reading the attached notes starting with that sequence number.
Each call to Z-GET06C returns information about one attached note. This subprogram should be called iteratively until the return code is 77. Return code 77 indicates that all attached notes have been read.
| Parameter | Format | In | Out | Remarks |
|---|---|---|---|---|
| Return-code | N2 | O | X | Input -1: no ET. |
| Cabinet | A8 | R | The cabinet which contains the appointment or meeting for which you want information returned. | |
| Password | A8 | R | The password of the above cabinet. | |
| Calendar-ISN | P10 | R | The ISN of the appointment or meeting which contains the attached notes. | |
| Note-subject | A32 | X | The subject of the attached note. | |
| Note-ISN | P10 | X | The ISN of the attached note. | |
| Notes-total | P3 | X | The total number of attached notes. | |
| Note-current | P3 | O | X | Input: If specified, processing starts with that number. Output: The sequence number of the attached note currently being processed. |
| Text-array | A251/1:20 | X | The text of the attached note. | |
| Lines-total | N2 | X | The number of all lines of the current record, including all blank lines at the end of the text. | |
| Last-text-line | N2 | X | The number of the last text line, not considering blank lines at the end of the text. | |
| Work-parameter | A217 | For internal use. See The Work Parameter. |
| 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 |
| 53 | Requested object does not exist |
| 77 | End of object or Note-current does not exist |
Z-120
Z-122
Z-123
Z-711
Z-120&2
0010 * 0020 * Example program to return a calendar item 0030 * 0040 DEFINE DATA 0050 LOCAL 0060 1 RETURN-CODE (N2) 0070 1 CABINET (A8) 0080 1 PASSWORD (A8) 0090 1 CALENDAR-ISN (P10) 0100 1 NOTE-SUBJECT (A32) 0110 1 NOTE-ISN (P10) 0120 1 NOTES-TOTAL (P3) 0130 1 NOTE-CURRENT (P3) 0140 1 TEXT-ARRAY (A251/1:20) 0150 1 LINES-TOTAL (N2) 0160 1 LAST-TEXT-LINE (N2) 0170 1 WORK-PARAMETER (A217) 0180 * 0190 END-DEFINE 0200 * 0210 RESET RETURN-CODE WORK-PARAMETER 0220 MOVE 'CABINET ' TO CABINET 0230 MOVE 'PASSWORD' TO PASSWORD 0240 MOVE 51250 TO CALENDAR-ISN/* ISN can be returned using Z-GET06B 0250 * (see example for Z-DETACH) 0260 REPEAT UNTIL RETURN-CODE NE 0 0270 * 0280 CALLNAT 'Z-GET06C' 0290 RETURN-CODE 0300 CABINET 0310 PASSWORD 0320 CALENDAR-ISN 0330 NOTE-SUBJECT 0340 NOTE-ISN 0350 NOTES-TOTAL 0360 NOTES-CURRENT 0370 TEXT-ARRAY(*) 0380 LINES-TOTAL 0390 LAST-TEXT-LINE 0400 WORK-PARAMETER 0410 * 0420 IF NOTE-ISN NE 0 0430 NEWPAGE 0440 WRITE 0450 '=' CABINET / 0460 '=' PASSWORD // 0470 '=' CALENDAR-ISN / 0480 '=' NOTES-TOTAL / 0490 '=' NOTES-CURRENT // 0500 '=' NOTE-SUBJECT / 0510 '=' NOTE-ISN // 0520 '=' LINES-TOTAL / 0530 '=' LAST-TEXT-LINE 0540 IF LINES-TOTAL GT 0 0550 WRITE 0560 / 'TEXT-ARRAY(1) ' TEXT-ARRAY(1)(AL=30) 0570 / 'TEXT-ARRAY(2) ' TEXT-ARRAY(2)(AL=30) 0580 / 'TEXT-ARRAY(3) ' TEXT-ARRAY(3)(AL=30) 0590 / 'TEXT-ARRAY(4) ' TEXT-ARRAY(4)(AL=30) 0600 / 'TEXT-ARRAY(LINES-TOTAL)' TEXT-ARRAY(LINES-TOTAL)(AL=30) 0610 END-IF 0620 END-IF 0630 END-REPEAT 0640 WRITE / 'Return code ' RETURN-CODE 0650 END