Z-ERA79

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Einen logischen Drucker löschen.

Dieses Subprogramm kann nur von einem Supervisor oder Systemadministrator benutzt werden. Der angegebene logische Drucker wird sofort gelöscht. Es wird keine Warnung ausgegeben.

Nach der erfolgreichen Ausführung von Z-ERA79 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 Systemadministrators.
Passwort A8 E   Das Passwort des o.g. Büros.
Drucker-ISN P8 E*   Die ISN des logischen Druckers, der gelöscht werden soll. Entweder Drucker-ISN oder Druckername, nicht beides.
Druckername A32 E*   Der Name des logischen Druckers, der gelöscht werden soll. Entweder Druckername oder Drucker-ISN, nicht beides.

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 ISN oder Name ein
92 Der Druckername wurde nicht gefunden
93 Der Druckername ist nicht eindeutig

Subprogramme

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

Beispiel

0010 *
0020 DEFINE DATA
0030 LOCAL
0040 1 RETURN-CODE      (N2)
0050 1 BUERO            (A8)
0060 1 PASSWORT         (A8)
0070 1 DRUCKER-ISN      (P8)
0080 1 DRUCKERNAME      (A32)
0090 *
0100 END-DEFINE
0110 *
0120 RESET RETURN-CODE
0130 MOVE 'BUERO'       TO BUERO
0140 MOVE 'PASSWORT'    TO PASSWORT
0150 MOVE 'DRUCKERNAME' TO DRUCKERNAME
0160 *
0170 CALLNAT 'Z-ERA79'
0180   RETURN-CODE
0190   BUERO
0200   PASSWORT
0210   DRUCKER-ISN
0220   DRUCKERNAME
0230 *
0240 IF RETURN-CODE = 0
0250   WRITE 'Logischer Drucker wurde geloescht'
0260 ELSE
0270   WRITE 'Return-Code:' RETURN-CODE
0280 END-IF
0290 *
0300 END