Dieses Dokument behandelt die folgenden Themen:
Eine Liste aller Empfänger, an die der Benutzer eines bestimmten Büros Post senden kann, anzeigen.
Bei Adresstyp 0 (alle) wird Adresstyp 33 (Teilnehmerkennzeichen) ignoriert, da die Daten mit Adresstyp 70 (Name) ausgegeben werden.
Bei Adresstyp 33 (Teilnehmerkennzeichen) oder 70 (Name) gibt dieses Subprogramm Nachname, Vorname, 2. Vorname, Titel und Büroanschrift aus.
Wenn der Adresstyp 1 (Adresse) oder 0 (alle) bei einem Rufnamen angegeben wird, der sich nicht auf einen Con-nect-Teilnehmer bezieht (z.B. die Telefonnummer Ihres Arztes), gibt dieses Subprogramm keine Empfänger aus. In diesem Fall ist nur der Parameter Nachname gefüllt, und zwar mit dem Rufnamen.
Dieses Subprogramm führt die folgenden Prüfungen durch:
Wenn der gewählte Adresstyp 74 (Extern) ist und man aus dem Büro, in dem das Subprogramm aufgerufen wurde, keine externe Post versenden darf, wird Return-Code 77 ausgegeben. In diesem Fall werden keine Adressen ausgegeben.
Wenn die Adressierstufe bei der gewählten Adresse größer ist, als die des Büros, in dem dieses Subprogramm aufgerufen wurde, wird die gewählte Adresse nicht ausgegeben.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird. In diesem Fall enthält der Work-Parameter die erforderlichen Informationen. Die Parameter können nicht geändert werden.
Anmerkung:
Dieses Subprogramm gibt keine Mitglieder eines Verteilers aus -
diese Funktion wird von Z-DIS17A und
Z-DIS17B unterstützt.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | O | X | Eingabe -1: kein ET |
| Buero | A8 | E | Das Büro, in dem Sie die Liste anzeigen wollen. | |
| Passwort | A8 | E | Das Passwort des o.g. Büros. | |
| Startname | A19 | O | Der Name eines Empfängers. Wenn Sie keinen Startnamen oder einen Stern (*) angeben, beginnt die Suche mit dem ersten möglichen Wert. Dieses Subprogramm sucht zuerst im angegebenen Büro nach den Adresssätzen und dann im Büro SYSCNT. | |
| Anzahl | N2 | O | Die maximale Anzahl von Empfängern, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt. | |
| Adresstyp | N2 | E | Muss einer der folgenden sein: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 10=Verteiler, 33=Teilnehmerkennzeichen, 70=Name, 74=Extern, 0=alle. Alle anderen Werte werden wie 0 behandelt. | |
| Adressliste (20) | ||||
| Ausgegebener-Adresstyp | N2 | X | Siehe Adresstypen. | |
| Postkennzeichen | A8 | X | Das Kennzeichen des Empfängers. | |
| Nachname | A32 | X | Der Nachname des Empfängers. | |
| Vorname | A32 | X | Der Vorname des Empfängers. | |
| 2-Vorname | A1 | X | Der erste Buchstabe des 2. Vornamens des Empfängers. | |
| Titel | A32 | X | Teil der Büroanschrift. | |
| Firma | A32 | X | Teil der Büroanschrift. | |
| Abteilungsname | A32 | X | Teil der Büroanschrift. | |
| Abteilungsnummer | A10 | X | Teil der Büroanschrift. | |
| Bueroanschrift | A60/1:3 | X | Teil der Büroanschrift. | |
| Buero-Stadt | A32 | X | Teil der Büroanschrift. | |
| Buero-Postleitzahl | A10 | X | Teil der Büroanschrift. | |
| Buero-Telefon | A15 | X | Teil der Büroanschrift. | |
| Buero-Durchwahl | A10 | X | Teil der Büroanschrift. | |
| Work-Parameter | A54 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
| 03 | Falsches Passwort |
| 77 | Ende der Liste |
Z-120
Z-122
Z-211
Z-1200&0
0010 * Eintraege in Adressliste zeigen 0020 * 0030 DEFINE DATA 0040 LOCAL 0050 1 RETURN-CODE (N2) 0060 1 BUERO (A8) 0070 1 PASSWORT (A8) 0080 1 STARTNAME (A19) 0090 1 ANZAHL (N2) 0100 1 ADRESSTYP (N2) 0110 1 ADRESSLISTE (20) /* Redefine siehe Parameterliste 0120 1 WORK-PARAMETER (A54) 0130 1 INDEX (N2) 0140 END-DEFINE 0150 * 0160 MOVE 'BUERO' TO BUERO 0170 MOVE 'PASSWORT' TO PASSWORT 0180 MOVE 'STARTNAME' TO STARTNAME 0190 MOVE 0 TO ADDRESSTYP 0200 * 0210 CALLNAT 'Z-DIS39A' 0220 * 0230 IF RETURN-CODE EQ 0 OR EQ 77 0240 FOR INDEX 1 TO 20 0250 WRITE ADRESSLISTE(INDEX) 0260 END-FOR 0270 ELSE 0280 WRITE 'Return-Code:' RETURN-CODE 0290 END-IF 0300 END