Dieses Dokument behandelt die folgenden Themen:
Eine Liste der externen Knoten anzeigen.
Die externen Knoten sind alphabetisch nach ihren Namen sortiert.
Wenn Sie einen bestimmten Knotentyp anzeigen wollen, müssen Sie den Knotentyp im Parameter Erlaubte-Typen angeben. Sie können mehrere Knotentypen im Parameter Erlaubte-Typen angeben (z.B. "AFH"). Wenn Sie keinen Knotentyp angeben, wird eine Liste aller externen Knoten ausgegeben.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird. Mit jedem Aufruf wird eine Liste von 12 externen Knoten ausgegeben.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | X | ||
| Erlaubte-Typen | A35 | O | A=externer Con-nect-Knoten, B=Telex, F=SNADS, G=Drucker, H=Telefax, T=Teletex. Sie können nur die Knotentypen angeben, die bei Ihnen installiert sind. Wenn dieser Parameter leer ist, wird eine Liste aller Knoten ausgegeben. | |
| Knoten (12) | ||||
| Knotenname | A8 | X | Der Name des externen Knotens. | |
| Knotentyp | A1 | X | A=externer Con-nect-Knoten, B=Telex, F=SNADS, G=Drucker, H=Telefax, T=Teletex. | |
| Knotenservice | A1 | X | S=Spoolfile, T=Transport Service. | |
| Knotenbeschreibung | A40 | X | Die Beschreibung des externen Knotens. | |
| Work-Parameter | A13 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| 00 | Erfolg |
| 77 | Ende der Liste |
Keine
0010 DEFINE DATA 0020 LOCAL 0030 1 RETURN-CODE (N2) 0040 1 ERLAUBTE-TYPEN (A35) INIT<'BHT'> 0050 1 KNOTEN (12) 0060 2 KNOTENNAME (A8) 0070 2 KNOTENTYP (A1) 0080 2 KNOTENSERVICE (A1) 0090 2 BESCHREIBUNG (A40) 0100 1 WORK-PARAMETER (A13) 0110 1 I (I1) 0120 END-DEFINE 0130 * 0140 REPEAT 0150 CALLNAT 'Z-DIS74' RETURN-CODE ERLAUBTE-TYPEN KNOTEN(*) WORK-PARAMETER 0160 IF RETURN-CODE EQ 0 OR = 77 0170 FOR I EQ 1 TO 12 0180 IF KNOTENNAME(I) EQ ' ' 0190 ESCAPE BOTTOM 0200 ELSE 0210 WRITE KNOTENNAME(I) KNOTENTYP(I) KNOTENSERVICE(I) BESCHREIBUNG(I) 0220 END-IF 0230 END-FOR 0240 END-IF 0250 UNTIL RETURN-CODE NE 0 0260 END-REPEAT 0270 * 0280 END