This document covers the following topics:
Return the address list of a mail item with address index.
This subprogram is the same as Z-ALISTX with the one exception that it also uses the parameter Address-index.
You can invoke, for example, Z-DIS13B prior to this subprogram to obtain the ISN for the desired mail item.
This subprogram can be invoked iteratively until the return code 77 indicates the end of the list.
| Parameter | Format | In | Out | Remarks |
|---|---|---|---|---|
| Return-code | N2 | O | X | Input -1: no ET. |
| Cabinet | A8 | R | The cabinet in which the mail item is stored. | |
| Password | A8 | R | The password of the above cabinet. | |
| ISN | P10 | R | The ISN of the mail item. | |
| Object-name | A60 | X | The name or subject of the mail item. | |
| Sender-name | A20 | X | The name of the sender. | |
| Sender-date | A8 | X | The date when the mail item was sent for the first time. Format yyyymmdd. | |
| Sender-time | A4 | X | The time when the mail item was sent for the first time. Format hhmm. | |
| Mail-type-addressee | A1 | X | The values indicate that the addressee received the following: 1=original, 2=forwarded mail, 3=reply. | |
| Address-table (12) | ||||
| Mail-ID | A8 | X | The ID of the recipient. | |
| Address-type | N2 | X | The type of address: 4=bulletin board, 5=cabinet (shared, public, standalone), 29=resource (for a meeting), 33=user ID (private cabinet), 70=last name, 74=external address. | |
| Name | A20 | X | The name of the recipient. | |
| Mail-type-sender | A1 | X | The mail type the sender has specified for the addressee. O=original, C=copy, B=blindcopy, P=private. | |
| External | A1 | X | If marked, the mail item was sent to an external recipient. | |
| Date-sent | A8 | X | The date when the mail item was sent to this recipient. Format yyyymmdd, or 0 if mail has not yet been sent. | |
| Time-sent | A4 | X | The time when the mail item was sent to this recipient. Format hhmm. | |
| Date-read | A8 | X | The date when the mail item was read. Format yyyymmdd. | |
| Time-read | A4 | X | The time when the mail item was read. Format hhmm. | |
| Reply | A1 | X | If marked, at least one reply was sent. | |
| Status | A4 | X | The status of the mail item. See the values below. | |
| Read-by | A8 | X | The ID of the user who read the mail item. | |
| Delivery-notification | A1 | X | If marked, notification is required. | |
| Receipt-notification | A1 | X | If marked, notification is required. | |
| Reply-requested | A1 | X | If marked, reply is requested. | |
| Reply-recipient | A1 | X | If marked, the reply is also sent to all defined reply recipients. | |
| Address-index | P4 | X | Index of the addressee in the address list. This value can be used as an input value for Z-UNDO. | |
| Work-parameter | A26 | For internal use. See The Work Parameter. | ||
The following values can be returned in the parameter Status:
| 0000 | No specific status |
| 1600 | Meeting was accepted |
| 1601 | Meeting was declined |
| 1640 | Meeting was stopped |
| 7400 | Awaiting distribution |
| 7401 | Distribution in progress |
| 7402 | Mail delivered |
| 7403 | Objects in this format cannot be sent |
| 7404 | External addressee unknown |
| 7405 | Mail cannot be delivered |
| 7406 | External system failure |
| 7407 | Receipt notification |
| 7408 | Mail deleted before receipt notification |
| 7409 | Mail item canceled by sender |
| 7410 | Unknown recipient node ID |
| 7411 | Send canceled after too may attempts |
| 7412 | Routing error |
| 7413 | Delivery of mail interrupted by external system |
| 7414 | Delivered to Inbasket |
| 7415 | Delivered to Inbasket of default cabinet |
| 7416 | Duplicate recipient, delivered only once |
| 7801 | Sending not possible - address information was not found |
| 7802 | Not sent - external mail error - contact your administrator |
| 7803 | Mail sent, delivery is pending |
| 00 | Success |
| 02 | Invalid cabinet |
| 03 | Password incorrect |
| 04 | ISN was not found |
| 77 | End of list |
| 95 | ISN does not point to a mail item |
| 96 | Mail item not contained in specified cabinet |
| 97 | Address list was not found |
Z-120
Z-122
Z-123
Z-175
Z-1200&0
0010 * 0020 * Example program to display the address list of a mail item 0030 * 0040 DEFINE DATA 0050 LOCAL 0060 * 0070 1 RETURN-CODE (N2) 0080 1 CABINET (A8) 0090 1 PASSWORD (A8) 0100 1 ISN (P10) 0110 1 OBJECT-NAME (A60) 0120 1 SENDER-NAME (A20) 0130 1 SENDER-DATE (A8) 0140 1 SENDER-TIME (A4) 0150 1 MAIL-TYPE-ADDRESSEE (A1) 0160 1 ADDRESS-TABLE (12) 0170 2 MAIL-ID (A8) 0180 2 ADDRESS-TYPE (N2) 0190 2 NAME (A20) 0200 2 MAIL-TYPE-SENDER (A1) 0210 2 EXTERNAL (A1) 0220 2 DATE-SENT (A8) 0230 2 TIME-SENT (A4) 0240 2 DATE-READ (A8) 0250 2 TIME-READ (A4) 0260 2 REPLY (A1) 0270 2 STATUS (A4) 0280 2 READ-BY (A8) 0290 2 DELIVERY-NOTIFICATION (A1) 0300 2 RECEIPT-NOTIFICATION (A1) 0310 2 REPLY-REQUESTED (A1) 0320 2 REPLY-RECIPIENT (A1) 0330 2 ADDRESS-INDEX (P4) 0340 1 WORK-PARAMETER (A26) 0350 * 0360 1 #IND (N2) 0370 * 0380 END-DEFINE 0390 * 0400 MOVE 'CABINET' TO CABINET 0410 MOVE 'PASSWORD' TO PASSWORD 0420 MOVE 12345678 TO ISN 0430 * 0440 REPEAT 0450 * 0460 CALLNAT 'Z-ALISTM' 0470 RETURN-CODE 0480 CABINET 0490 PASSWORD 0500 ISN 0510 OBJECT-NAME 0520 SENDER-NAME 0530 SENDER-DATE 0540 SENDER-TIME 0550 MAIL-TYPE-ADDRESSEE 0560 ADDRESS-TABLE(*) 0570 WORK-PARAMETER 0580 * 0590 IF MAIL-ID(1) NE ' ' 0600 FOR #IND 1 TO 12 0610 IF MAIL-ID(#IND) NE ' ' 0620 NEWPAGE 0630 WRITE 0640 // 'MAIL ID' MAIL-ID(#IND) 0650 'TYPE' ADDRESS-TYPE(#IND) 0660 'NAME' NAME(#IND) 0670 / 'TYPE SENDER' MAIL-TYPE-SENDER(#IND) 0680 / 'EXTERNAL' EXTERNAL(#IND) 0690 / 'SENT' 0700 'DATE' DATE-SENT(#IND) 0710 'TIME' TIME-SENT(#IND) 0720 / 'READ' 0730 'DATE' DATE-READ(#IND) 0740 'TIME' TIME-READ(#IND) 0750 'USER' READ-BY(#IND) 0760 / 'REPLY' REPLY(#IND) 0770 / 'STATUS' STATUS(#IND) 0780 / 'DELIVERY NOTIFICATION' DELIVERY-NOTIFICATION(#IND) 0790 / 'RECEIPT NOTIFICATION' RECEIPT-NOTIFICATION(#IND) 0800 / 'REPLY REQUESTED' REPLY-REQUESTED(#IND) 0810 / 'REPLY-RECIPIENT' REPLY-RECIPIENT(#IND) 0820 / 'ADDRESS-INDEX ' ADDRESS-INDEX(#IND) 0830 END-IF 0840 END-FOR 0850 ELSE 0860 WRITE 'No items found' 0870 END-IF 0880 UNTIL RETURN-CODE NE 0 0890 END-REPEAT 0900 END