Z-DIS74

This document covers the following topics:


Description

Display a list of external nodes.

The external nodes are sorted alphabetically by name.

If you want to display a specific node type, you must specify the node type in the parameter Allowed-types. You can specify more than one node type in the parameter Allowed-types, for example "AFH". If you do not specify a node type, a list of all external nodes is returned.

This subprogram should be invoked iteratively until the return code 77 indicates the end of the list. With each call a list of 12 external nodes is returned.

Parameters

Parameter Format In Out Remarks
Return-code N2   X  
Allowed-types A35 O   A=remote Con-nect node, B=Telex, F=SNADS, G=printer, H=Telefax, T=Teletex. Only the node types installed on your system can be specified. If blank, a list of all nodes is returned.
Nodes (12)
Node-name A8   X The name of the external node.
Node-type A1   X A=remote Con-nect node, B=Telex, F=SNADS, G=printer, H=Telefax, T=Teletex.
Node-service A1   X S=spool file, T=transport service.
Node-description A40   X The description of the external node.
Work-parameter A13     For internal use. See The Work Parameter.

Return Codes

00 Success
77 End of list

Subprograms

None

Example

0010 DEFINE DATA
0020 LOCAL
0030 1 RETURN-CODE             (N2)
0040 1 ALLOWED-TYPES           (A35)     INIT<'BHT'>
0050 1 NODES                   (12)
0060   2 NODE-NAME             (A8)
0070   2 NODE-TYPE             (A1)
0080   2 NODE-SERVICE          (A1)
0090   2 NODE-DESCRIPTION      (A40)
0100 1 WORK-PARAMETER          (A13)
0110 1 I                       (I1)
0120 END-DEFINE
0130 *
0140 REPEAT
0150   CALLNAT 'Z-DIS74' RETURN-CODE ALLOWED-TYPES NODES(*) WORK-PARAMETER
0160   IF RETURN-CODE EQ 0 OR = 77
0170    FOR I EQ 1 TO 12
0180      IF NODE-NAME(I) EQ ' '
0190        ESCAPE BOTTOM
0200      ELSE
0210        WRITE NODE-NAME(I) NODE-TYPE(I) NODE-SERVICE(I) NODE-DESCRIPTION(I)
0220      END-IF
0230    END-FOR
0240   END-IF
0250   UNTIL RETURN-CODE NE 0
0260 END-REPEAT
0270 *
0280 END