Z-MOD05D

This document covers the following topics:


Description

Modify the print defaults in the user profile of a specific cabinet.

This subprogram can be used only by a supervisor or cabinet administrator. It is not possible to use this subprogram to modify the user profile of the cabinet SYSCNT.

To get the ISN for the wanted cabinet, you can invoke either Z-ADD05 or Z-DIS05 prior to this subprogram.

Parameters which are not completed in the parameter list are deleted from the user profile. Thus, to retain the existing values, you must specify them once more before you invoke this subprogram.

Successful termination of Z-MOD05D 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 cabinet administrator.
Password A8 R   The password of the above cabinet.
Cabinet-name A8 R*   The name of the cabinet to be modified. Either Cabinet-name or Cabinet-ISN, not both.
Cabinet-ISN P8 R*   The ISN of the cabinet to be modified. Either Cabinet-ISN or Cabinet-name, not both.
Printer-name A32 R   The name of a logical printer.
Printer-profile A32 O   The name of a printer profile
Format-profile A32 O   The name of a formatting profile.
Page-length N2 R   The number of lines ( 1 to 80) per page of printout.
Page-width N3 R   The number of characters (1 to 249) per line.
Print-banner A1 O   If marked, the "Info" screen information is printed.
Print-notes A1 O   If marked, attached notes, cover notes and enclosures are printed.
Print-address A1 O   If marked, the addressee list of a mail item is printed.

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 Cabinet-name or Cabinet-ISN
92 Page-length is 1 to 80 lines per page; Page-width is 1 to 249 characters per line
93 No printer defined with this name
94 Printer-profile not found
95 Format-profile must be alphanumeric
96 Cabinet-name is not valid
97 Cabinet-ISN is not valid
98 Printer-name can not be blank
99 Cabinet SYSCNT cannot be modified

Subprograms

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

Example

0010 *
0020 * Example program to modify print profile of a cabinet
0030 *
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE         (N2)
0080 1 CABINET             (A8)
0090 1 PASSWORD            (A8)
0100 1 CABINET-NAME        (A8)
0110 1 CABINET-ISN         (P8)
0120 1 PRINTER-NAME        (A32)
0130 1 PRINTER-PROFILE     (A32)
0140 1 FORMAT-PROFILE      (A32)
0150 1 PAGE-LENGTH         (N2)
0160 1 PAGE-WIDTH          (N3)
0170 1 PRINT-BANNER        (A1)
0180 1 PRINT-NOTES         (A1)
0190 1 PRINT-ADDRESS       (A1)
0200 END-DEFINE
0210 *
0220 RESET RETURN-CODE
0230 MOVE 'CABINET'         TO CABINET
0240 MOVE 'PASSWORD'        TO PASSWORD
0250 MOVE 'CAB-NAME'        TO CABINET-NAME
0260 MOVE 'PRINTER-NAME'    TO PRINTER-NAME
0270 MOVE 'PRINTER-PROFILE' TO PRINTER-PROFILE
0280 MOVE 'FORMAT-PROFILE'  TO FORMAT-PROFILE
0290 MOVE 60                TO PAGE-LENGTH
0300 MOVE 132               TO PAGE-WIDTH
0310 MOVE 'X'               TO PRINT-BANNER
0320 MOVE 'X'               TO PRINT-NOTES
0330 MOVE 'X'               TO PRINT-ADDRESS
0340 *
0350 CALLNAT 'Z-MOD05D'
0360     RETURN-CODE
0370     CABINET
0380     PASSWORD
0390     CABINET-NAME
0400     CABINET-ISN
0410     PRINTER-NAME
0420     PRINTER-PROFILE
0430     FORMAT-PROFILE
0440     PAGE-LENGTH
0450     PAGE-WIDTH
0460     PRINT-BANNER
0470     PRINT-NOTES
0480     PRINT-ADDRESS
0490 *
0500 IF RETURN-CODE = 0
0510   WRITE 'CABINET WAS MODIFIED'
0520 ELSE
0530   WRITE 'RETURN CODE' RETURN-CODE
0540 END-IF
0550 *
0560 END