This document covers the following topics:
Modify a nickname for an address at an external node. This subprogram applies only to an external node which uses the spool file.
This subprogram is similar to Z-MOD01A with the exception that you can also modify the last name and first name of a user.
This subprogram does not apply to a transport service node. To modify a nickname for a transport service node, you must use Z-MOD01T.
If you know the Node-name, but do not know the physical address of the external node (Node-parameters) which has been defined by the administrator, you can invoke Z-GET74 prior to Z-MOD01B to obtain the physical address information.
This subprogram does not check whether the information you specify in the Node-parameters corresponds to the information which has been defined by the administrator. Thus, you can specify different address information in the Node-parameters. However, it is your responsibility to specify the correct information.
Parameters which are not completed in the parameter list are deleted from the nickname information. Thus, to retain the existing values, you must specify them once more before you invoke this subprogram. There is one exception: when you do not specify Folder-name and File-name, the nickname is automatically stored in folder Work.
Parameter | Format | In | Out | Remarks |
---|---|---|---|---|
Return-code | N2 | O | X | Input -1: no ET |
Cabinet | A8 | R | The cabinet in which the nickname is to be modified. | |
Password | A8 | R | The password of the above cabinet. | |
Nickname | A20 | R* | X | The nickname to be modified. Input: either Nickname or ISN; not both. |
ISN | P10 | R* | X | The ISN of the nickname to be modified. Input: either ISN or Nickname; not both. You can invoke Z-GET01B prior to Z-MOD01B to obtain the ISN for the desired nickname. |
Last-name | A32 | O | The last name of a user at an external node. | |
First-name | A32 | O | The first name of a user at an external node. | |
Description | A60/1:4 | O | A brief description of the nickname. | |
Folder-name | A15 | O | The folder in which the nickname is to be stored. You must not specify a TRS folder or system folder (except Work). Default: Work. | |
File-name | A15 | O | The file within the above folder in which the nickname is to be stored. | |
Node-name | A8 | R | The name of an existing node which has been added by the administrator. | |
Node-parameters | A250 | R | The physical address of the external node. See External Communication. | |
Parameter-length | N3 | O | The length of the Node-parameters. If you do not know the length, you should not specify a value. | |
Post-flag | A1 | O | Marking this flag is only useful if you send mail using online Con-nect. If marked, a window appears and you can enter additional information before the mail is sent. Therefore, do not mark this flag if you use Z-MAILA to send mail, since the window does not appear in this case. | |
Private-flag | A1 | O | If marked, the nickname is a private object. | |
Security-flags | A4 | O | The security levels for Read, Modify, Copy and Print. Values 0 to 9. |
00 | Success |
02 | Invalid cabinet name or - in batch mode only - locked cabinet |
03 | Password incorrect |
04 | ISN not found |
08 | Supply either ISN or name, not both |
09 | ISN does not point to correct object |
15 | Invalid administrator status |
55 | Requested folder/file does not exist |
56 | Requested folder is a TRS folder |
73 | Invalid folder/file name |
91 | Invalid name |
93 | External node or address does not exist |
94 | Node-name is not a spool file node name |
Z-120
Z-122
Z-123
Z-147
Z-150
Z-1200&0
0010 * 0020 * Example program to modify a nickname for a external address. 0030 * Z-GET01B is invoked prior to Z-MOD01B. 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 CABINET (A8) 0090 1 PASSWORD (A8) 0100 1 NICKNAME (A20) 0110 1 ISN (P10) 0120 1 LAST-NAME (A32) 0130 1 FIRST-NAME (A32) 0140 1 DESCRIPTION (A60/1:4) 0150 1 FOLDER-NAME (A15) 0160 1 FILE-NAME (A15) 0170 1 NODE-NAME (A8) 0180 1 NODE-PARAMETERS (A250) 0190 1 PARAMETER-LENGTH (N3) 0200 1 POST-FLAG (A1) 0210 1 PRIVATE-FLAG (A1) 0220 1 SECURITY-FLAGS (A4) 0230 1 REDEFINE SECURITY-FLAGS 0240 2 SECURITY-READ (A1) 0250 2 SECURITY-MODIFY (A1) 0260 2 SECURITY-COPY (A1) 0270 2 SECURITY-PRINT (A1) 0280 END-DEFINE 0290 * 0300 RESET RETURN-CODE 0310 MOVE 'USERID' TO CABINET 0320 MOVE 'PW' TO PASSWORD 0330 MOVE 'EXTERNAL NODE' TO NICKNAME 0340 * 0350 CALLNAT 'Z-GET01B' RETURN-CODE 0360 CABINET 0370 PASSWORD 0380 NICKNAME 0390 ISN 0400 LAST-NAME 0410 FIRST-NAME 0420 DESCRIPTION(*) 0430 FOLDER-NAME 0440 FILE-NAME 0450 NODE-NAME 0460 NODE-PARAMETERS 0470 PARAMETER-LENGTH 0480 POST-FLAG 0490 PRIVATE-FLAG 0500 SECURITY-FLAGS 0510 * 0520 MOVE 'NEW LAST NAME' TO LAST-NAME 0530 MOVE 'NEW FIRST NAME' TO FIRST-NAME 0540 RESET ISN 0550 * 0560 CALLNAT 'Z-MOD01B' RETURN-CODE 0570 CABINET 0580 PASSWORD 0590 NICKNAME 0600 ISN 0610 LAST-NAME 0620 FIRST-NAME 0630 DESCRIPTION(*) 0640 FOLDER-NAME 0650 FILE-NAME 0660 NODE-NAME 0670 NODE-PARAMETERS 0680 PARAMETER-LENGTH 0690 POST-FLAG 0700 PRIVATE-FLAG 0710 SECURITY-FLAGS 0720 * 0730 IF RETURN-CODE EQ 0 0740 WRITE 'Nickname ' (AD=IO) NICKNAME 'was modified.' (AD=IO) / 0750 'New:' (AD=IO) / 0760 'Last name ' (AD=IO) LAST-NAME / 0770 'First name' (AD=IO) FIRST-NAME 0780 ELSE 0790 WRITE 'Return code' RETURN-CODE 0800 END-IF 0810 * 0820 END