Z-MOD05K

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

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

Dieses Subprogramm entspricht Z-MOD05D mit der Ausnahme, dass es zusätzliche Parameter benutzt: Linker-Rand und Zeilenumbruch.

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-MOD05K 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.
Linker-Rand N2 O   Linker Rand
Zeilenumbruch A1 O   Wenn markiert, wird der gedruckte Text umgebrochen. Wenn nicht markiert, wird der gedruckte Text abgeschnitten.
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 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
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 LINKER-RAND          (N2)
0180 1 ZEILENUMBRUCH        (A1)
0190 1 INFO-DRUCKEN         (A1)
0200 1 NOTIZEN-DRUCKEN      (A1)
0210 1 EMPFAENGER-DRUCKEN   (A1)
0220 END-DEFINE
0230 *
0240 RESET RETURN-CODE
0250 MOVE 'BUERO'           TO BUERO
0260 MOVE 'PASSWORT'        TO PASSWORT
0270 MOVE 'B-NAME'          TO BUERONAME
0280 MOVE 'DRUCKERNAME'     TO DRUCKERNAME
0290 MOVE 'DRUCKERPROFIL'   TO DRUCKERPROFIL
0300 MOVE 'FORMATIERPROFIL' TO FORMATIERPROFIL
0310 MOVE 60                TO SEITENLAENGE
0320 MOVE 132               TO ZEILENBREITE
0330 MOVE 10                TO LINKER-RAND
0340 MOVE 'X'               TO ZEILENUMBRUCH
0350 MOVE 'X'               TO INFO-DRUCKEN
0360 MOVE 'X'               TO NOTIZEN-DRUCKEN
0370 MOVE 'X'               TO EMPFAENGER-DRUCKEN
0380 *
0390 CALLNAT 'Z-MOD05K'
0400     RETURN-CODE
0410     BUERO
0420     PASSWORT
0430     BUERONAME
0440     BUERO-ISN
0450     DRUCKERNAME
0460     DRUCKERPROFIL
0470     FORMATIERPROFIL
0480     SEITENLAENGE
0490     ZEILENBREITE
0500     LINKER-RAND
0510     ZEILENUMBRUCH
0520     INFO-DRUCKEN
0530     NOTIZEN-DRUCKEN
0540     EMPFAENGER-DRUCKEN
0550 *
0560 IF RETURN-CODE = 0
0570   WRITE 'Buero wurde geaendert'
0580 ELSE
0590   WRITE 'Return-Code' RETURN-CODE
0600 END-IF
0610 *
0620 END