Z-ERA79

This document covers the following topics:

Description

Delete a logical printer.

This subprogram can be used only by a supervisor or system administrator. The specified logical printer is deleted immediately. A warning is not issued.

Successful termination of Z-ERA79 always results in an END TRANSACTION. You are not able to control transaction handling.

Parameters

Parameter Format In Out Remarks
Return-code N2   X  
Cabinet A8 R   The cabinet ID of a supervisor or system administrator.
Password A8 R   The password of the above cabinet.
Printer-ISN P8 R*   The ISN of the logical printer to be deleted. Either Printer-ISN or Printer-name, not both.
Printer-name A32 R*   The name of the logical printer to be deleted. Either Printer-name or Printer-ISN, not both.

Return Codes

00 Success
02 Invalid cabinet name
03 Password incorrect
08 Supply either ISN or name, not both
15 Invalid administrator status
91 Supply Printer-ISN or name
92 Printer-name not found
93 Printer-name not unique

Subprograms

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

Example

0010 *
0020 DEFINE DATA
0030 LOCAL
0040 1 RETURN-CODE       (N2)
0050 1 CABINET           (A8)
0060 1 PASSWORD          (A8)
0070 1 PRINTER-ISN       (P8)
0080 1 PRINTER-NAME      (A32)
0090 *
0100 END-DEFINE
0110 *
0120 RESET RETURN-CODE
0130 MOVE 'CABINET'      TO CABINET
0140 MOVE 'PASSWORD'     TO PASSWORD
0150 MOVE 'PRINTER-NAME' TO PRINTER-NAME
0160 *
0170 CALLNAT 'Z-ERA79'
0180   RETURN-CODE
0190   CABINET
0200   PASSWORD
0210   PRINTER-ISN
0220   PRINTER-NAME
0230 *
0240 IF RETURN-CODE = 0
0250   WRITE 'Logical printer was erased'
0260 ELSE
0270   WRITE 'Return code' RETURN-CODE
0280 END-IF
0290 *
0300 END