Z-MOD05D

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Die Druckvorgaben im Teilnehmerprofil eines bestimmten Büros ändern.

Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden. Das Teilnehmerprofil des Büros SYSCNT kann mit diesem Subprogramm nicht geändert werden.

Um die ISN des gewünschten Büros auszugeben, können Sie vor dem Aufruf dieses Subprogramms entweder Z-ADD05 oder Z-DIS05 aufrufen.

Die Parameter, die nicht mit Werten gefüllt werden, werden aus dem Teilnehmerprofil gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben.

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

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 des Büros, in dem das Profil geändert werden soll. Entweder Bueroname oder Buero-ISN, nicht beides.
Buero-ISN P8 E*   Die ISN des Büros, in dem das Profil geändert werden soll. Entweder Buero-ISN oder Bueroname, nicht beides.
Druckername A32 E   Der Name eines logischen Druckers.
Druckerprofil A32 O   Der Name eines Druckerprofils.
Formatierprofil A32 O   Der Name eines Formatierprofils.
Seitenlaenge N2 E   Die Anzahl der Zeilen (1 bis 80) pro Seite.
Zeilenbreite N3 E   Die Anzahl der Zeichen (1 bis 249) pro Zeile.
Info-drucken A1 O   Wenn markiert, wird die Information aus dem "Info"-Schirm gedruckt.
Notizen-drucken A1 O   Wenn markiert, werden Notizen, Begleitschreiben und Anlagen gedruckt.
Empfaenger-drucken A1 O   Wenn markiert, wird die Empfängerliste von Post gedruckt.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
03 Falsches Passwort
08 Geben Sie entweder ISN oder Name ein - nicht beides
15 Ungültiger Administratorstatus
91 Geben Sie Bueroname oder Buero-ISN ein
92 Die Seitenlänge beträgt 1 bis 80 Zeilen; die Zeilenbreite beträgt 1 bis 249 Zeichen
93 Es wurde kein Drucker mit diesem Namen definiert
94 Das Druckerprofil wurde nicht gefunden
95 Das Formatierprofil muss alphanumerisch sein
96 Angabe im Parameter Bueroname ist ungültig
97 Ungültige Buero-ISN
98 Der Druckername muss angegeben werden
99 Das Büro SYSCNT darf nicht geändert werden

Subprogramme

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

Beispiel

0010 *
0020 * Beispielprogramm zum Aendern der 
0030 * Druckvorgaben in einem Buero
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE          (N2)
0080 1 BUERO                (A8)
0090 1 PASSWORT             (A8)
0100 1 BUERONAME            (A8)
0110 1 BUERO-ISN            (P8)
0120 1 DRUCKERNAME          (A32)
0130 1 DRUCKERPROFIL        (A32)
0140 1 FORMATIERPROFIL      (A32)
0150 1 SEITENLAENGE         (N2)
0160 1 ZEILENBREITE         (N3)
0170 1 INFO-DRUCKEN         (A1)
0180 1 NOTIZEN-DRUCKEN      (A1)
0190 1 EMPFAENGER-DRUCKEN   (A1)
0200 END-DEFINE
0210 *
0220 RESET RETURN-CODE
0230 MOVE 'BUERO'           TO BUERO
0240 MOVE 'PASSWORT'        TO PASSWORT
0250 MOVE 'B-NAME'          TO BUERONAME
0260 MOVE 'DRUCKERNAME'     TO DRUCKERNAME
0270 MOVE 'DRUCKERPROFIL'   TO DRUCKERPROFIL
0280 MOVE 'FORMATIERPROFIL' TO FORMATIERPROFIL
0290 MOVE 60                TO SEITENLAENGE
0300 MOVE 132               TO ZEILENBREITE
0310 MOVE 'X'               TO INFO-DRUCKEN
0320 MOVE 'X'               TO NOTIZEN-DRUCKEN
0330 MOVE 'X'               TO EMPFAENGER-DRUCKEN
0340 *
0350 CALLNAT 'Z-MOD05D'
0360     RETURN-CODE
0370     BUERO
0380     PASSWORT
0390     BUERONAME
0400     BUERO-ISN
0410     DRUCKERNAME
0420     DRUCKERPROFIL
0430     FORMATIERPROFIL
0440     SEITENLAENGE
0450     ZEILENBREITE
0460     INFO-DRUCKEN
0470     NOTIZEN-DRUCKEN
0480     EMPFAENGER-DRUCKEN
0490 *
0500 IF RETURN-CODE = 0
0510   WRITE 'Buero wurde geaendert'
0520 ELSE
0530   WRITE 'Return-Code' RETURN-CODE
0540 END-IF
0550 *
0560 END