Dieses Dokument behandelt die folgenden Themen:
Eine Liste der logischen Drucker anzeigen.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.
Anmerkung:
Wenn Sie unter Natural Advanced Facilities arbeiten, wird der Name
des logischen Druckerprofils im Parameter Drucker-TID ausgegeben.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | X | ||
| Startwert | A32 | O | Der Name eines logischen Druckers. Wenn Sie keinen Startwert angeben, wird eine Liste aller logischen Drucker ausgegeben. Wenn Sie einen Namen angeben (z.B. "sag"), wird die Liste ab diesem Namen bis zum Listenende ausgegeben. Wenn Sie einen Namen mit einem Stern (z.B. "sag*") angeben, werden nur die Namen ausgegeben, die mit diesen Buchstaben beginnen. | |
| Anzahl | N2 | O | Die maximale Anzahl von logischen Druckern, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt. | |
| Druckerliste (20) | ||||
| Druckername | A32 | X | Der Name des logischen Druckers. | |
| Drucker-TID | A8 | X | Die Terminal-ID, LU-Nummer oder ein vergleichbares Terminal-Ziel für den Drucker, der benutzt wird, wenn ein Teilnehmer den Namen des logischen Druckers eingibt. | |
| Druckerprofil | A32 | X | Das Druckerprofil, das dem logischen Drucker zugeordnet wurde. | |
| Work-Parameter | A64 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| 00 | Erfolg |
| 77 | Ende der Liste |
| 90 | Keine logischen Drucker gefunden |
Keine
0010 * Eine Liste aller logischen Drucker ausgeben, die mit 'Z' beginnen 0020 * 0030 DEFINE DATA LOCAL 0040 1 RETURN-CODE (N2) 0050 1 STARTWERT (A32) 0060 1 ANZAHL (N2) 0070 1 DRUCKERLISTE (20) 0080 2 DRUCKERNAME (A32) 0090 2 DRUCKER-TID (A8) 0100 2 DRUCKERPROFIL (A32) 0110 1 WORK-PARAMETER (A64) 0120 END-DEFINE 0130 * 0140 MOVE 'Z*' TO STARTWERT 0150 * 0160 REPEAT UNTIL RETURN-CODE EQ 77 0170 CALLNAT 'Z-DIS79' RETURN-CODE STARTWERT ANZAHL 0180 DRUCKERLISTE(*) WORK-PARAMETER 0190 IF NOT RETURN-CODE = 0 OR = 77 0200 WRITE 'Return-Code' RETURN-CODE 0210 STOP 0220 END-IF 0230 PRINT DRUCKERLISTE(*) 0240 END-REPEAT 0250 END