Z-MEMCAB

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Eine Liste aller Büros und Verteiler im Büro SYSCNT ausgeben, die ein bestimmtes Büro als Mitglied haben.

Dieses Subprogramm kann von einem Büro- oder Systemadministrator aufgerufen werden, von einem Administrator, der als Verantwortlicher für das Büro (Parameter Eingabebuero) definiert wurde, oder von einem Teilnehmer, der keine Administrationsfunktionen ausführen darf.

Wenn ein Teilnehmer, der keine Administrationsfunktionen ausführen darf, dieses Subprogramm aufruft, werden alle Büros und Verteiler ausgegeben, bei denen der Teilnehmer Mitglied ist. In diesem Fall müssen die Kennzeichen in den Parametern Buero und Eingabebuero identisch sein.

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   Siehe die Beschreibung oben.
Passwort A8 E   Das Passwort des o.g. Büros.
Eingabebuero A8 E   Das Kennzeichen des Büro, nach dem Sie suchen.
Startobjekt A12 O   Das Bürokennzeichen oder der Verteilername, mit dem die Verarbeitung beginnen soll.
Anzahl N2 O   Die maximale Anzahl von Büros, 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.
Ausgabeliste (20)
  Objektname A12   X Das Name des Büros oder Verteilers.
  Buerotyp A1   X Gilt nur für Büros: S=Gruppenbüro; P=Privatbüro.
  Objekttyp N2   X 5=Büro; 10=Verteiler.
Work-Parameter A12     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
15 Ungültiger Administratorstatus
77 Ende der Liste
90 Das im Parameter Eingabebuero angegebene Büro existiert nicht
91 Kein Zugriff - Sie sind nicht als Verantwortlicher für das Büro definiert, das im Parameter Eingabebuero angegeben wurde

Subprogramme

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

Beispiel

0010 **********************************************************************
0020 * AUFRUF VON Z-MEMCAB
0030 **********************************************************************
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE     (N2)
0080 1 BUERO           (A8)
0090 1 PASSWORT        (A8)
0100 1 EINGABEBUERO    (A8)
0110 1 STARTOBJEKT     (A12)
0120 1 ANZAHL          (N2)
0130 1 AUSGABELISTE    (1:20)
0140   2 OBJEKTNAME    (A12)
0141   2 BUEROTYP      (A1)
0150   2 OBJEKTTYP     (N2)
0160 1 WORK-PARAMETER  (A12)
0170 *
0180 1 #INX            (P3)      /* Zaehler
0190 END-DEFINE
0200 *
0210 INPUT 'BUERO:'BUERO /
0220   'PASSWORT:'PASSWORT /
0230   'EINGABEBUERO:'EINGABEBUERO /
0240   'STARTOBJEKT:'STARTOBJEKT /
0250   'ANZAHL:'ANZAHL
0260 *
0270 *
0280 REPEAT
0290 *
0300   CALLNAT 'Z-MEMCAB'
0310     RETURN-CODE
0320     BUERO
0330     PASSWORT
0340     EINGABEBUERO
0350     STARTOBJEKT
0360     ANZAHL
0370     AUSGABELISTE(*)
0380     WORK-PARAMETER
0390 *
0400   WRITE NOTITLE 'Return-Code' RETURN-CODE
0410 *
0420   IF RETURN-CODE EQ 0 OR RETURN-CODE EQ 77
0430     FOR #INX 1 TO ANZAHL
0440       WRITE NOTITLE
0441           OBJEKTNAME(#INX) 3X OBJEKTTYP(#INX) 3X BUEROTYP(#INX)
0450     END-FOR
0460   END-IF
0470 *
0480   NEWPAGE
0490   UNTIL RETURN-CODE NE 0
0500 END-REPEAT
0510 END