Z-GET06C

This document covers the following topics:


Description

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.

Parameters

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.

Return Codes

00 Success
02 Invalid cabinet name
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

Subprograms

Z-120
Z-122
Z-123
Z-711
Z-120&2

Example

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