Z-ERA10

This document covers the following topics:


Description

Erase a distribution list and all the members contained in the list.

You cannot erase a distribution list that has been created for a shared cabinet.

Parameters

Parameter Format In Out Remarks
Return-code N2 O X Input -1: no ET.
Cabinet A8 R   The cabinet in which the distribution list is stored.
Password A8 R   The password of the above cabinet.
Distribution-name A32 R*   The name of the distribution list to be erased. Either Distribution-name or ISN, not both.
ISN P8 R*   The ISN of the distribution list to be erased. Either ISN or Distribution-name, not both.

Return Codes

00 Success
02 Invalid cabinet name
03 Password incorrect
04 ISN was not found
08 Supply either ISN or name, not both
09 ISN does not point to correct object
51 Invalid name
53 Requested object does not exist
90 Distribution list belongs to a shared cabinet

Subprograms

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

Example

0010 DEFINE DATA LOCAL
0020 1 RETURN-CODE         (N2)
0030 1 CABINET             (A8)
0040 1 PASSWORD            (A8)
0050 1 DISTRIBUTION-NAME   (A32)
0060 1 ISN                 (P8)
0070 END-DEFINE
0080 *
0090 MOVE 'USER-ID' TO CABINET
0100 MOVE 'PW'      TO PASSWORD
0110 MOVE 'DISTR-1' TO DISTRIBUTION-NAME
0120 *
0130 CALLNAT 'Z-ERA10' RETURN-CODE CABINET PASSWORD
0140   DISTRIBUTION-NAME ISN
0150 *
0160 IF RETURN-CODE EQ 0
0170    WRITE 'Distribution list was erased'
0180 ELSE
0190    WRITE 'Return code' RETURN-CODE
0200 END-IF
0210 *
0220 END