Dieses Dokument behandelt die folgenden Themen:
Das Büroprofil eines bestimmten Mitglieds eines Gruppenbüros anzeigen.
Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden.
Um die ISN des gewünschten Gruppenbüros auszugeben, können Sie vor dem Aufruf dieses Subprogramms Z-DIS17C aufrufen. Um das Büroprofil zu ändern, können Sie nach dem Aufruf dieses Subprogramms Z-MOD05F aufrufen.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | O | X | Eingabe -1: kein ET. |
| Buero | A8 | E | Das Bürokennzeichen eines Supervisors oder Büroadministrators. | |
| Passwort | A8 | E | Das Passwort des o.g. Büros. | |
| Bueroname | A8 | E* | Der Name des Gruppenbüros, dessen Mitglieder Sie anzeigen wollen. Entweder Bueroname oder Buero-ISN, nicht beides. | |
| Buero-ISN | P10 | E* | Die ISN des Gruppenbüros, dessen Mitglieder Sie anzeigen wollen. Entweder Buero-ISN oder Bueroname, nicht beides. | |
| Mitgliedsname | A8 | E | Der Büroname des Mitglieds. | |
| Profiltyp | A1 | X | 1=Gruppenprofil, 2=Privatprofil, 3=Sonderprofil. | |
| Berechtigungsstufen | A4 | X | Siehe die Redefinition unten. | |
| Redefine Berechtigungsstufen | ||||
| Berechtigung-Lesen | A1 | X | Die Berechtigungsstufe für das Lesen. Ein Wert zwischen 0 und 9. | |
| Berechtigung-Aendern | A1 | X | Die Berechtigungsstufe für das Ändern. Ein Wert zwischen 0 und 9. | |
| Berechigung-Kopieren | A1 | X | Die Berechtigungsstufe für das Kopieren. Ein Wert zwischen 0 und 9. | |
| Berechtigung-Drucken | A1 | X | Die Berechtigungsstufe für das Drucken. Ein Wert zwischen 0 und 9. | |
| Maximale-Empfaenger | N4 | X | Die maximale Anzahl von Empfängern, an die ein Objekt während eines Sendevorgangs gesendet werden kann. Werte 1 bis 9999. | |
| Adressierstufe | N1 | X | Die Adressierstufe schränkt die Sendefunktion ein. Ein Wert zwischen 0 und 9. | |
| Stufen-hoeher | N1 | X | Die Anzahl von höheren Stufen, an die der Teilnehmer Post senden darf. Ein Wert zwischen 0 und 9. | |
| Erlauben-Flags | A8 | X | Siehe die Redefinition unten. | |
| Redefine Erlauben-Flags | ||||
| Befehlsfenster | A1 | X | Wenn markiert, erscheint bei einer fehlerhaften oder nicht eindeutigen Befehlseingabe ein Fenster. | |
| Con-form | A1 | X | Wenn markiert, kann Con-form benutzt werden. | |
| Text-Retrieval | A1 | X | Wenn markiert, kann Con-nect Text Retrieval benutzt werden (wenn es installiert wurde). | |
| Eigene-Adresse-aendern | A1 | X | Wenn markiert, kann der Teilnehmer die eigene Büro- oder Privatanschrift ändern. | |
| Privatadressen-zeigen | A1 | X | Wenn markiert, kann der Teilnehmer die Privatanschrift jedes beliebigen Teilnehmers anzeigen (einschließlich der eigenen Privatanschrift). | |
| Externe-Post-versenden | A1 | X | Wenn markiert, kann der Teilnehmer Post an externe Knoten (z.B. Telex oder SNADS) senden. | |
| Ablaufdatum-aendern | A1 | X | Wenn markiert, kann der Teilnehmer das Ablaufdatum eines Objekts ändern. | |
| Post-lesen | A1 | X | Wenn markiert, kann der Teilnehmer die Post im eigenen Posteingangsfach lesen. | |
| 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 |
| 30 | Name des Gruppenbüros ist ungültig |
| 53 | Das gewünschte Objekt existiert nicht |
| 91 | Geben Sie Bueroname oder Buero-ISN ein |
| 96 | Bueroname ist ungültig |
| 97 | Buero-ISN is ungültig |
Z-120
Z-122
Z-123
Z-1200&0
*
* Beispielprogramm zum Anzeigen des Bueroprofils eines
* bestimmten Teilnehmners eines Gruppenbueros.
*
DEFINE DATA
LOCAL
1 RETURN-CODE (N2)
1 BUERO (A8)
1 PASSWORT (A8)
1 BUERONAME (A8)
1 BUERO-ISN (P10)
1 MITGLIEDSNAME (A8)
1 PROFILTYP (A1)
1 BERECHTIGUNGSSTUFEN (A4)
1 REDEFINE BERECHTIGUNGSSTUFEN
2 BERECHTIGUNG-LESEN (A1)
2 BERECHTIGUNG-AENDERN (A1)
2 BERECHTIGUNG-KOPIEREN (A1)
2 BERECHTIGUNG-DRUCKEN (A1)
1 MAXIMALE-EMPFAENGER (N4)
1 ADRESSIERSTUFE (N1)
1 STUFEN-HOEHER (N1)
1 ERLAUBEN-FLAGS (A8)
1 REDEFINE ERLAUBEN-FLAGS
2 BEFEHLSFENSTER (A1)
2 CON-FORM (A1)
2 TEXT-RETRIEVAL (A1)
2 EIGENE-ADRESSE-AENDERN (A1)
2 PRIVATADRESSEN-ZEIGEN (A1)
2 EXTERNE-POST-VERSENDEN (A1)
2 ABLAUFDATUM-AENDERN (A1)
2 POST-LESEN (A1)
*
END-DEFINE
*
RESET RETURN-CODE
MOVE 'BUERO' TO BUERO
MOVE 'PASSWORT' TO PASSWORT
MOVE 'GR-BUERO' TO BUERONAME
MOVE 'MITGLIED' TO MITGLIEDSNAME
*
CALLNAT 'Z-DIS17F' RETURN-CODE
BUERO
PASSWORT
BUERONAME
BUERO-ISN
MITGLIEDSNAME
PROFILTYP
BERECHTIGUNGSSTUFEN
MAXIMALE-EMPFAENGER
ADRESSIERSTUFE
STUFEN-HOEHER
ERLAUBEN-FLAGS
*
IF RETURN-CODE EQ 0
WRITE 'Gruppenbueroname: ' BUERONAME (AD=I) /
'Gruppenbuero-ISN: ' BUERO-ISN (EM=ZZZZZZZZZ9 AD=I) //
'Mitgliedsname: ' MITGLIEDSNAME (AD=I) /
'Profiltyp: ' PROFILTYP (AD=I) //
'Berechtigung:' (AD=I) 3X
'Lesen' BERECHTIGUNG-LESEN (AD=I) 3X
'Aendern' BERECHTIGUNG-AENDERN (AD=I) 3X
'Kopieren' BERECHTIGUNG-KOPIEREN (AD=I) 3X
'Drucken' BERECHTIGUNG-DRUCKEN (AD=I) //
'Senden:' (AD=I) 7X
'Max. Anzahl von Empfaengern' SEND-MAXIMUM (AD=I) /
25T 'Adressierstufe' ADDRESS-LEVEL (AD=I)
'darf' SEND-PLUS (AD=I) 'Stufen hoeher senden' //
'Erlaubt:' (AD=I)
16X COMMAND-PROMPT (AD=I) 'Befehlsfenster' /
'(erlaubte Funktionen angekreuzt)'
11X CON-FORM (AD=I) 'CON-FORM' /
27T TEXT-RETRIEVAL (AD=I) 'Text Retrieval (TRS)' /
27T EIGENE-ADRESSE-AENDERN (AD=I) 'Eigene Adresse aendern' /
27T PRIVATADRESSEN-ZEIGEN (AD=I) 'Privatadressen anzeigen' /
27T EXTERNE-POST-VERSENDEN (AD=I) 'Externe Post versenden' /
27T ABLAUFDATUM-AENDERN (AD=I) 'Ablaufdatum aendern' /
27T POST-LESEN (AD=I) 'Post lesen' /
ELSE
WRITE 'Return-Code' RETURN-CODE
END-IF
*
END