This document covers the following topics:
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.
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. |
00 | Success |
77 | End of list |
None
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