Z-ADD79

This document covers the following topics:

Description

Add a logical printer.

This subprogram can be used only by a supervisor or system administrator.

You must specify both parameters, Printer-name and Printer-TID.

Note:
When you operate under Natural Advanced Facilities, you must enter the name of the logical printer profile in the parameter Printer-TID.

Successful termination of Z-ADD79 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-name A32 R   The name of the logical printer to be added.
Printer-TID A8 R   The terminal ID number, LU number or comparable terminal destination for the printer which is to be used when the user enters the name of the logical printer.
Printer-profile A32 O   The printer profile which is to be assigned to the logical printer.
Description A60/1:4 O   A brief description for the logical printer.
Printer-ISN P8   X The ISN of the new logical printer.

Return Codes

00 Success
02 Invalid cabinet name
03 Password incorrect
15 Invalid administrator status
84 Requested printer profile does not exist
91 Printer-name is not unique
93 Printer-name and Printer-TID must not be left blank

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-NAME         (A32)
0080 1 PRINTER-TID          (A8)
0090 1 PRINTER-PROFILE      (A32)
0100 1 DESCRIPTION          (A60/1:4)
0110 1 PRINTER-ISN          (P8)
0120 *
0130 END-DEFINE
0140 *
0150 RESET RETURN-CODE
0160 MOVE 'LS'              TO CABINET
0170 MOVE 'PASSWORD'        TO PASSWORD
0180 MOVE 'PRINTER-NAME'    TO PRINTER-NAME
0190 MOVE 'TID'             TO PRINTER-TID
0200 MOVE 'PRINTER-PROFILE' TO PRINTER-PROFILE
0210 MOVE 'DESCRIPTION-1'   TO DESCRIPTION(1)
0220 MOVE 'DESCRIPTION-2'   TO DESCRIPTION(2)
0230 MOVE 'DESCRIPTION-3'   TO DESCRIPTION(3)
0240 MOVE 'DESCRIPTION-4'   TO DESCRIPTION(4)
0250 *
0260 CALLNAT 'Z-ADD79'
0270   RETURN-CODE
0280   CABINET
0290   PASSWORD
0300   PRINTER-NAME
0310   PRINTER-TID
0320   PRINTER-PROFILE
0330   DESCRIPTION(*)
0340   PRINTER-ISN
0350 *
0360 IF RETURN-CODE = 0
0370   WRITE 'LOGICAL PRINTER WAS ADDED'
0380 ELSE
0390   WRITE 'RETURN CODE' RETURN-CODE
0400 END-IF
0410 *
0420 END