Z-SRCH17

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Eine Liste aller Verteiler ausgeben, die ein bestimmtes Mitglied enthalten.

Wenn Sie kein Büroadministrator oder Supervisor sind, müssen die Werte in den Parametern Buero und Buero-von identisch sein. In diesem Fall kann nur ein Büro durchsucht werden. Wenn Sie ein Büroadministrator oder Supervisor sind, können Sie alle Büros durchsuchen.

Wenn Sie nur den Parameter Buero-von angeben, wird nur das angegebene Büro durchsucht. Der angegebene Büroname wird dann automatisch im Parameter Buero-bis benutzt. Wenn Sie auch den Parameter Buero-bis angeben, werden alle angegebenen Büros durchsucht.

Sie können auch einen oder mehrere Zeichen gefolgt von einem Stern (*) im Parameter Buero-von angeben. In diesem Fall werden alle Büros durchsucht, deren Namen mit diesen Zeichen beginnen. Wenn Sie im Parameter Buero-von nur einen Stern (*) eingeben, werden alle Büros durchsucht, einschießlich Büro SYSCNT.

Wenn Sie im Parameter Buero-von den Namen SYSCNT eingeben, wird Folgendes ausgegeben:

  • eine Liste aller Verteiler im Büro SYSCNT, die das angegebene Mitglied enthalten,

  • eine Liste aller Gruppenbüros, für die das Mitglied eine Zugriffsberechtigung hat,

  • eine Liste aller Privatbüros, für die das Mitglied eine Zugriffsberechtigung hat.

Sie können entweder den Parameter Mitgliedskennzeichen-ein oder den Parameter Mitgliedsname-ein angeben. Sie dürfen nicht beide Parameter gleichzeitig angeben. Wenn Sie einen Wert im Parameter Mitgliedskennzeichen-ein angeben, werden alle Verteiler gefunden, die das angegebene Mitgliedskennzeichen enthalten. Wenn Sie einen Wert im Parameter Mitgliedsname-ein angeben, werden alle Verteiler gefunden, die den angegebenen Nachnamen enthalten. Sie können auch einen oder mehrere Zeichen gefolgt von einem Stern (zum Beispiel "sag*") angeben, um alle Mitgliedskennzeichen oder Nachnamen zu finden, die mit diesen Zeichen beginnen. Es ist nicht möglich, nur einen Stern (*) einzugeben.

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   X  
Buero A8 E   Das Bürokennzeichen eines Supervisors oder Büroadministrators. Oder das selbe Kennzeichen wie in Buero-von.
Passwort A8 E   Das Passwort des o.g. Büros.
Buero-von A8 E   Der Name des zu durchsuchenden Büros. Oder das Startbüro, wenn mehrere Büros durchsucht werden sollen. Sie können einen oder mehrere Buchstaben gefolgt von einem Stern (*) angeben. Sie können auch nur einen Stern angeben, um alle Büros zu durchsuchen.
Buero-bis A8 O   Das Endbüro, wenn mehrere Büros durchsucht werden sollen.
Mitgliedskennzeichen-ein A16 E*   Das Kennzeichen des gesuchten Mitglieds. Oder ein oder mehrere Buchstaben gefolgt von einem Stern (*). Entweder Mitgliedskennzeichen-ein oder Mitgliedsname-ein, nicht beides.
Mitgliedsname-ein A20 E*   Der Nachname des gesuchten Mitglieds. Oder ein oder mehrere Buchstaben gefolgt von einem Stern (*). Entweder Mitgliedsname-ein oder Mitgliedskennzeichen-ein, nicht beides.
Verteilerliste (20)
  Bueroname A8   X Der Name des Büros, das den Verteiler enthält.
  Verteilername A12   X Der Name des Verteilers.
  Listentyp A1   X 1=Verteiler, 2=Büro.
  Mitgliedsname-aus A20   X Der Name des Mitglieds.
  Mitgliedskennzeichen-aus A16   X Das Kennzeichen des Mitglieds.
  Mitgliedstyp N2   X 4=Rubrik, 5=Büro, 10=Verteiler, 33=Teilnehmerkennzeichen (Privatbüro), 74=Externe Adresse.
  Versandart A1   X Das Mitglied des Verteilers erhält Folgendes: O=Original, C=Kopie, B=Blindkopie.
  Mitglieds-ISN P10   X Die ISN des Mitglieds.
Work-Parameter A50     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
08 Geben Sie entweder ISN oder Name ein - nicht beides
15 Ungültiger Administratorstatus
31 Es wurden keine Mitglieder gefunden
32 Mitglied (Adresse) wurde nicht gefunden
77 Ende der Liste
90 Geben Sie entweder Mitgliedskennzeichen-ein oder Mitgliedsname-ein - nicht beides
91 Ungültiger Name für Buero-von
92 Ungültiger Name für Mitgliedskennzeichen-ein
93 Ungültiger Name für Mitgliedsname-ein

Subprogramme

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

Beispiele

* Verteiler, Gruppenbueros und Privatbueros
* mit einem bestimmten Mitglied ausgeben
*
DEFINE DATA
LOCAL
1 RETURN-CODE                (N2)
1 BUERO                      (A8)
1 PASSWORT                   (A8)
1 BUERO-VON                  (A8)
1 BUERO-BIS                  (A8)
1 MITGLIEDSKENNZEICHEN-EIN   (A16)
1 MITGLIEDSNAME-EIN          (A20)
1 VERTEILERLISTE (20)
  2 BUERO-NAME               (A8)
  2 VERTEILERNAME            (A12)
  2 LISTENTYP                (A1)
  2 MITGLIEDSNAME-AUS        (A20)
  2 MITGLIEDSKENNZEICHEN-AUS (A16)
  2 MITGLIEDSTYP             (N2)
  2 VERSANDART               (A1) 
  2 MITGLIEDS-ISN            (P10)
1 WORK-PARAMETER             (A50)
1 INDEX                      (P3)
* 
END-DEFINE
*
RESET RETURN-CODE
MOVE 'BUERO '   TO BUERO
MOVE 'PASSWORT' TO PASSWORT
MOVE 'BUERO   ' TO BUERO-VON
MOVE 'MITGLIED' TO MITGLIEDSKENNZEICHEN-EIN
*
REPEAT UNTIL RETURN-CODE NE 0
  CALLNAT 'Z-SRCH17'
    RETURN-CODE
    BUERO
    PASSWORT
    BUERO-VON
    BUERO-BIS
    MITGLIEDSKENNZEICHEN-EIN
    MITGLIEDSNAME-EIN
    VERTEILERLISTE(*)
    WORK-PARAMETER
  IF RETURN-CODE EQ 0  OR  EQ 77
    NEWPAGE
    FOR INDEX 1 TO 20
      IF VERTEILERNAME(INDEX) NE ' '
          OR MITGLIEDS-ISN(INDEX) NE 0
        WRITE
          BUERO-NAME(INDEX)   3X
          VERTEILERNAME(INDEX) 3X
          LISTENTYP(INDEX) 3X
          MITGLIEDSNAME-AUS(INDEX) 3X
          MITGLIEDSKENNZEICHEN-AUS(INDEX) /
          MITGLIEDSTYP(INDEX) 5X
          VERSANDART(INDEX) 5X
          MITGLIEDS-ISN(INDEX) /
      END-IF
    END-FOR
  END-IF
END-REPEAT
*
WRITE 'Return-Code ' RETURN-CODE
*
END