Z-DIS17A

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Eine Liste aller Mitglieder eines Verteilers, eines Gruppenbüros oder eines Privatbüros, für das der Büroinhaber Zugriffsberechtigungen vergeben hat, anzeigen.

Wenn Sie weder den Parameter Startname noch den Parameter Startkennzeichen angeben, werden die Mitglieder in alphabetischer Reihenfolge, nach dem Kennzeichen sortiert, ausgegeben.

Wenn Sie im Parameter Startname einen Startwert angeben, werden nur Teilnehmer ausgegeben. In diesem Fall ist die Liste alphabetisch nach dem Nachnamen sortiert.

Dieses Subprogramm überprüft zuerst, ob sich der Verteiler im angegebenen Büro befindet. Bei einem Privatbüro überprüft dieses Subprogramm anschließend, ob es Mitglieder für dieses Büro gibt. Wenn kein Verteiler gefunden wird, überprüft dieses Subprogramm, ob sich ein Verteiler mit dem angegebenen Namen im Büro SYSCNT befindet.

Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Der Name des Büros, in dem Sie die Liste anzeigen wollen.
Passwort A8 E   Das Passwort des o.g. Büros.
Verteilername A32 E   Der Name des Verteilers oder das Kennzeichen des Büros, dessen Mitglieder Sie anzeigen wollen.
Startname A20 O*   Startwert. Siehe die Beschreibung oben. Entweder Startname oder Startkennzeichen, nicht beides.
Startkennzeichen A16 O*   Startwert. Siehe die Beschreibung oben. Entweder Startkennzeichen oder Startname, nicht beides.
Listentyp A1   X 1=Verteiler, 2=Büro.
Mitglieds-Array (20)
  Name A20   X Der Name des Mitglieds.
  Postkennzeichen A16   X Das Kennzeichen des Mitglieds.
  Mitgliedstyp A1   X 1=Verteiler, 2=Büro, 3=Teilnehmer, 4=Rubrik, 5=Extern.
  Versandart A1   X Das Mitglied des Verteiler erhält Folgendes: O=Original, C=Kopie, B=Blindkopie.
Work-Parameter A32     Für den internen Gebrauch. Siehe Work-Parameter.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
30 Name des Verteilers ist ungültig
31 Es wurden keine Mitglieder gefunden
77 Ende der Liste
90 Geben Sie entweder ein Startkennzeichen oder einen Startnamen ein - nicht beides

Subprogramme

Z-120
Z-122
Z-123
Z-147
Z-165
Z-1200&0

Beispiel

0010 *
0020 * Eine Liste mit allen Mitgliedern in einem Verteiler,
0030 * einem Gruppenbuero oder einem Privatbuero zeigen
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE       (N2)
0080 1 BUERO             (A8)
0090 1 PASSWORT          (A8)
0100 1 VERTEILERNAME     (A32)
0110 1 STARTNAME         (A20)       /* nur Teilnehmer - keine anderen Objekte!
0120 1 STARTKENNZEICHEN  (A16)       /* alle Objekte nach dem Kennzeichen
0130 1 LISTENTYP         (A1)
0140 1 MITGLIEDS-ARRAY   (20)
0150   2 NAME            (A20)
0160   2 POSTKENNZEICHEN (A16)
0170   2 MITGLIEDSTYP    (A1)   /* Teilnehmer, Verteiler, Buero, Rubrik, Extern
0180   2 VERSANDART      (A1)   /* 'O': Original 'C': Kopie, 'B': Blindkopie
0190 1 WORK-PARAMETER    (A32)
0200 *
0210 END-DEFINE
0220 *************************************
0230 *
0240 MOVE 'BUERO'       TO BUERO
0250 MOVE 'PASSWORT'    TO PASSWORT
0260 MOVE 'NAME'        TO VERTEILERNAME      /* Verteiler/Gruppenbuero
0270 MOVE 'KENNZEICHEN' TO STARTKENNZEICHEN   /* nach Kennzeichen sortieren
0280 *
0290 CALLNAT 'Z-DIS17A'
0300     RETURN-CODE
0310     BUERO
0320     PASSWORT
0330     VERTEILERNAME
0340     STARTNAME
0350     STARTKENNZEICHEN
0360     LISTENTYP
0370     MITGLIEDS-ARRAY  (*)
0380     WORK-PARAMETER
0390 *
0400 IF RETURN-CODE EQ 0
0410    WRITE NAME(*) POSTKENNZEICHEN(*) MITGLIEDSTYP(*) VERSANDART(*)
0420 ELSE
0430    WRITE 'Return-Code :' RETURN-CODE
0440 END-IF
0450 END