Z-DIS17B

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.

Dieses Subprogramm entspricht Z-DIS17A mit der Ausnahme, dass sich der Parameter Mitgliedstyp geändert hat und die Mitglied-ISN ausgegeben wird.

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.

Wenn Sie im Parameter Startkennzeichen einen Startwert angeben, werden alle Mitgliedstypen ausgegeben. In diesem Fall ist die Liste alphabetisch nach dem Kennzeichen 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. Der Nachname des Teilnehmers. 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 N2   X 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 10=Verteiler, 33=Teilnehmerkennzeichen (Privatbüro), 70=Nachname, 74=externe Adresse.
  Versandart A1   X Das Mitglied des Verteiler erhält Folgendes: O=Original, C=Kopie, B=Blindkopie.
  Mitglied-ISN P10   X Die ISN des Mitglieds.
Work-Parameter A40     Für den internen Gebrauch. Siehe Work-Parameter.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
03 Falsches Passwort
24 Datenschutz-Sicherheitsübertretung
30 Name des Verteilers ist ungültig
31 Es wurden keine Mitglieder gefunden
53 Das gewünschte Objekt existiert nicht
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 * Zeigt eine Liste aller Mitglieder eines Verteilers, Gruppenbueros oder
0020 * Privatbueros, fuer das der Bueroinhaber Zugriffsberechtigungen
0030 * vergeben hat
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)  /* zeigt nur Teilnehmer - keine anderen Objekte
0120 1 STARTKENNZEICHEN  (A16)  /* zeigt alle Objekte nach Kennzeichen sortiert
0130 1 LISTENTYP         (A1)
0140 1 MITGLIEDS-ARRAY   (20)
0150   2 NAME            (A20)
0160   2 POSTKENNZEICHEN (A16)
0170   2 MITGLIEDSTYP    (N2)   /* Teilnehmer, Verteiler, Buero, Rubrik, extern
0180   2 VERSANDART      (A1)   /* O=Original, C=Kopie, B=Blindkopie
0190   2 MITGLIED-ISN    (P10)
0200 1 WORK-PARAMETER    (A40)
0210 *
0220 END-DEFINE
0230 *
0240 *
0250 MOVE 'BUERO'       TO BUERO
0260 MOVE 'PASSWORT'    TO PASSWORT
0270 MOVE 'V-NAME'      TO VERTEILERNAME    /* Verteiler/Gruppenbuero
0280 MOVE 'ESH'         TO STARTKENNZEICHEN /* sortiert nach Kennzeichen
0290 *
0300 CALLNAT 'Z-DIS17B' 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         MITGLIED-ISN(*)
0430 ELSE
0440   WRITE 'Return-Code' RETURN-CODE
0450 END-IF
0460 END