Dieses Dokument behandelt die folgenden Themen:
Eine Liste aller Mitglieder eines Gruppenbüros anzeigen. Die Liste beinhaltet auch den Profiltyp von jedem Mitgliedsbüro (Gruppenprofil, Privatprofil oder Sonderprofil).
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-DIS05X aufrufen. Um das Büroprofil eines Mitglieds anzuzeigen, können Sie nach dem Aufruf dieses Subprogramms Z-DIS17F aufrufen.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.
| 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* | X | Die ISN des Gruppenbüros, dessen Mitglieder Sie anzeigen wollen. Entweder Buero-ISN oder Bueroname, nicht beides. |
| Mitglieds-Array (20) | ||||
| Mitgliedsname | A8 | X | Der Büroname des Mitglieds. | |
| Buerotyp | A1 | X | 0=Privatbüro, 1=unabhängiges Büro, 2=Gruppenbüro, 3=offenes Büro. | |
| Name/Beschreibung | A32 | X | Für Bürotyp 0: Nachname des Benutzers. Für Bürotypen 1, 2 und 3: Beschreibung des Büros. | |
| Profiltyp | A1 | X | 1=Gruppenprofil, 2=Privatprofil, 3=Sonderprofil. | |
| Eingegeben | N8 | X | Das Datum, an dem das Mitglied im Gruppenbüro eingegeben wurde. | |
| Work-Parameter | A32 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| 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 |
| 31 | Es wurden keine Mitglieder gefunden |
| 77 | Ende der Liste |
| 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-165
Z-1200&0
*
* Beispielprogramm zum Anzeigen aller Mitglieder eines Gruppenbueros
*
DEFINE DATA
LOCAL
1 RETURN-CODE (N2)
1 BUERO (A8)
1 PASSWORT (A8)
1 BUERONAME (A8)
1 BUERO-ISN (P10)
1 MITGLIEDS-ARRAY (20)
2 MITGLIEDSNAME (A8)
2 BUEROTYP (A1)
2 NAME/BESCHREIBUNG (A32)
2 PROFILTYP (A1)
2 EINGEGEBEN (N8)
1 WORK-PARAMETER (A32)
*
1 INX (P3)
1 DIV (P3)
1 REM (P3)
*
END-DEFINE
*
RESET RETURN-CODE WORK-PARAMETER
*
MOVE 'BUERO' TO BUERO
MOVE 'PASSWORT' TO PASSWORT
MOVE 'GR-BUERO' TO BUERONAME
*
REPEAT UNTIL RETURN-CODE NE 0
*
CALLNAT 'Z-DIS17C' RETURN-CODE
BUERO
PASSWORT
BUERONAME
BUERO-ISN
MITGLIEDS-ARRAY(*)
WORK-PARAMETER
*
IF RETURN-CODE EQ 0 OR RETURN-CODE EQ 77
IF MITGLIEDSNAME(1) EQ ' '
WRITE 'Keine Eintraege gefunden !' (AD=I)
ELSE
FOR INX 1 TO 20
IF MITGLIEDSNAME(INX) NE ' '
DIVIDE 5 INTO INX GIVING DIV REMAINDER REM
IF REM EQ 1
NEWPAGE
WRITE 'Return-Status OK' (AD=I) /
END-IF
WRITE INX (EM=Z9) 1X
'Mitgliedsname: ' MITGLIEDSNAME (INX) 3X
'Name/Beschreibung:' NAME/BESCHREIBUNG (INX) /
4T 'BueroTyp:' BUEROTYP (INX) 10X
'Profiltyp: ' PROFILTYP (INX) 10X
'Eingegeben: ' EINGEGEBEN (INX) (EM=9999-99-99) /
END-IF
END-FOR
END-IF
ELSE
WRITE 'Return-Code' RETURN-CODE
END-IF
END-REPEAT
*
END