Z-ADD05

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Ein Büro eingeben.

Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden.

Das Büro- und Teilnehmerprofil, das für das Büro SYSCNT definiert wurde, wird automatisch in das neue Büro kopiert. Der Administratorstatus wird jedoch nicht in das neue Büro kopiert.

Nach der erfolgreichen Ausführung von Z-ADD05 erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.

Anmerkung:
Wenn bei diesem Büro Änderungen erforderlich sind, können Sie eines der Z-MOD05-Subprogramme benutzen. Sie können entweder den Parameter ISN benutzen, der von Z-ADD05 ausgegeben wird, oder den Büronamen, den Sie mit Z-ADD05 eingegeben haben. Mit den Subprogrammen Z-MOD05A bis Z-MOD05E können Sie verschiedene Bereiche des Teilnehmerprofils ändern. Mit Z-MOD05F können Sie das Büroprofil ändern.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2   X  
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 für das Büro, das eingegeben werden soll.
Buerotyp N1 E   0=Privatbüro, 1=unabhängiges Büro, 2=Gruppenbüro, 3=offenes Büro.
Nachname A32 E   Bei Bürotyp 0 müssen Sie den Nachnamen des Bürobenutzers eingeben. Bei den Bürotypen 1, 2 und 3 müssen Sie eine Beschreibung für das Büro eingeben.
Vorname A32 E   Nur bei Bürotyp 0 erforderlich. Sie müssen den Vornamen des Bürobenutzers eingeben.
2-Vorname A1 O   Kann nur bei Bürotyp 0 benutzt werden. Der zweite Vorname des Bürobenutzers.
Keine-Post A1 O   Kann nur bei den Bürotypen 1, 2 und 3 benutzt werden. Wenn gefüllt, kann das Büro keine Post senden und keine Post empfangen.
ISN P8   X Die ISN des neuen Büros.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
15 Ungültiger Administratorstatus
51 Ungültiger Name
52 Es existiert bereits ein Objekt mit dem angegebenen Namen
91 Bürotyp wurde nicht angegeben
92 Der Parameter Keine-Post ist nur bei den Bürotypen 1, 2 und 3 erlaubt
94 Benutzen Sie einen alphanumerischen Wert für den Parameter Keine-Post
95 Geben Sie Nachname und Vorname für das Privatbüro ein
96 Vorname und 2. Vorname können nur für ein Privatbüro definiert werden
97 Geben Sie für die Bürotypen 1 bis 3 eine Beschreibung im Parameter Nachname ein
98 Angegebener Büroname ist für Umbenennung reserviert

Subprogramme

Z-109
Z-112
Z-120
Z-122
Z-123
Z-175
Z-190
Z-195
Z-206
Z-720
Z-1200&0

Beispiel

Das folgende Beispiel verwendet zwei LDAs. Siehe Lokale Datenbereiche.

Die LDA-Felder haben dieselben Namen wie die Parameter, die in der englischen Dokumentation verwendet werden. Deshalb werden in diesem Beispiel die englischen Parameternamen verwendet.

Beachten Sie die Präfixe "L-ADD05." und "L-DIS05.", die die Parameter eindeutig identifizieren.

DEFINE DATA
LOCAL USING L-ADD05
LOCAL USING L-DIS05
LOCAL
1 INDEX (N2)
END-DEFINE
*
RESET L-ADD05.RETURN-CODE
MOVE 'DBA'         TO L-ADD05.CABINET
MOVE 'DBA'         TO L-ADD05.PASSWORD
MOVE 'FBL'         TO L-ADD05.CABINET-NAME
MOVE 0             TO L-ADD05.CABINET-TYPE
MOVE 'BLUECHAIR'   TO L-ADD05.LAST-NAME
MOVE 'FUV'         TO L-ADD05.FIRST-NAME
MOVE 'A'           TO L-ADD05.INITIAL
*
CALLNAT 'Z-ADD05'
    L-ADD05
IF L-ADD05.RETURN-CODE = 0
  WRITE 'Buero wurde eingegeben'
ELSE
  WRITE 'Return-Code' L-ADD05.RETURN-CODE
END-IF
*
NEWPAGE
*
RESET L-DIS05.RETURN-CODE
MOVE 'DBA'       TO  L-DIS05.CABINET
MOVE 'DBA'       TO  L-DIS05.PASSWORD
MOVE 'FBL'       TO  L-DIS05.START-CABINET
MOVE  9          TO  L-DIS05.START-CABINET-TYPE
MOVE  20         TO  L-DIS05.NUMBER
*
REPEAT UNTIL L-DIS05.RETURN-CODE NE 0
*
  CALLNAT 'Z-DIS05'
    L-DIS05
*
  FOR INDEX 1 TO L-DIS05.NUMBER
    IF L-DIS05.CABINET-ISN(INDEX) NE 0
      WRITE  NOTITLE (SG=OFF ZP=OFF AD=L )
           'Bueroname        '  L-DIS05.CABINET-NAME(INDEX)
        /  'Buerotyp         '  L-DIS05.CABINET-TYPE(INDEX)
        /  'Nachname         '  L-DIS05.USER-LAST-NAME(INDEX)
        /  'Vorname          '  L-DIS05.USER-FIRST-NAME(INDEX)
        /  '2. Vorname       '  L-DIS05.USER-INITIAL(INDEX)
        /  'Keine Post       '  L-DIS05.DISALLOW-MAIL(INDEX)
        /  'Verantwortlicher '  L-DIS05.OWNER(INDEX)
        /  'Administrator    '  L-DIS05.ADMINISTRATOR(INDEX)
        /  'Buero-ISN        '  L-DIS05.CABINET-ISN(INDEX)
     NEWPAGE
    END-IF
  END-FOR
END-REPEAT
WRITE 'Return-Code ' L-DIS05.RETURN-CODE
*
END