Z-ADD79

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Einen logischen Drucker eingeben.

Dieses Subprogramm kann nur von einem Supervisor oder Systemadministrator benutzt werden.

Sie müssen Druckername und Drucker-TID angeben.

Anmerkung:
Wenn Sie unter Natural Advanced Facilities arbeiten, müssen Sie im Parameter Drucker-TID den Namen des logischen Druckerprofils eingeben.

Nach der erfolgreichen Ausführung von Z-ADD79 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.
Druckername A32 E   Der Name für den logischen Drucker, der eingegeben werden soll.
Drucker-TID A8 E   Die Terminal-ID, LU-Nummer oder ein vergleichbares Terminal-Ziel für den Drucker, der benutzt werden soll, wenn ein Teilnehmer den Namen eines logischen Druckers eingibt.
Druckerprofil A32 O   Das Druckerprofil, das dem logischen Drucker zugeordnet werden soll.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für den logischen Drucker.
Drucker-ISN P8   X Die ISN des neuen logischen Druckers.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
03 Falsches Passwort
15 Ungültiger Administratorstatus
84 Das gewünschte Druckerprofil existiert nicht
91 Der Druckername ist nicht eindeutig
93 Sie müssen Druckername und Drucker-TID angeben

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 DRUCKERNAME         (A32)
0080 1 DRUCKER-TID         (A8)
0090 1 DRUCKERPROFIL       (A32)
0100 1 BESCHREIBUNG        (A60/1:4)
0110 1 DRUCKER-ISN         (P8)
0120 *
0130 END-DEFINE
0140 *
0150 RESET RETURN-CODE
0160 MOVE 'LS'             TO BUERO
0170 MOVE 'PASSWORT'       TO PASSWORT
0180 MOVE 'DRUCKERNAME'    TO DRUCKERNAME
0190 MOVE 'TID'            TO DRUCKER-TID
0200 MOVE 'DRUCKERPROFIL'  TO DRUCKERPROFIL
0210 MOVE 'BESCHREIBUNG-1' TO BESCHREIBUNG(1)
0220 MOVE 'BESCHREIBUNG-2' TO BESCHREIBUNG(2)
0230 MOVE 'BESCHREIBUNG-3' TO BESCHREIBUNG(3)
0240 MOVE 'BESCHREIBUNG-4' TO BESCHREIBUNG(4)
0250 *
0260 CALLNAT 'Z-ADD79'
0270   RETURN-CODE
0280   BUERO
0290   PASSWORT
0300   DRUCKERNAME
0310   DRUCKER-TID
0320   DRUCKER-PROFIL
0330   BESCHREIBUNG(*)
0340   DRUCKER-ISN
0350 *
0360 IF RETURN-CODE = 0
0370   WRITE 'Der logische Drucker wurde eingegeben'
0380 ELSE
0390   WRITE 'Return-Code:' RETURN-CODE
0400 END-IF
0410 *
0420 END