Dieses Dokument behandelt die folgenden Themen:
Eine Liste mit Druckerprofilen anzeigen.
Dieses Subprogramm zeigt alle Druckerprofile an, die im angegebenen Büro (Parameter Buero) und im Büro SYSCNT enthalten sind.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.
Parameter | Format | Ein | Aus | Bemerkung |
---|---|---|---|---|
Return-Code | N2 | X | ||
Buero | A8 | E | Das Buero, in dem die Druckerprofile enthalten sind. | |
Startwert | A32 | O | Der Name eines Druckerprofils. Wenn Sie keinen Startwert angeben, wird eine Liste aller Druckerprofile 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 Druckerprofilen, 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. | |
Profilliste | A35/1:20 | X | Der Name des Druckerprofils. Bei einem Druckerprofil, das im Büro SYSCNT definiert wurde, wird "(S)" hinter dem Namen ausgegeben. Wenn Sie jedoch das Büro SYSCNT benutzen, wird "(S)" nicht ausgegeben. | |
Work-Parameter | A64 | Für den internen Gebrauch. Siehe Work-Parameter. |
00 | Erfolg |
77 | Ende der Liste |
90 | Keine Profile gefunden |
Keine
0010 * Gibt 20 Druckerprofile aus dem Buero SYSCNT aus, 0020 * die mit 'z' beginnen 0030 * 0040 DEFINE DATA LOCAL 0050 1 RETURN-CODE (N2) 0060 1 BUERO (A8) 0070 1 STARTWERT (A32) 0080 1 ANZAHL (N2) 0090 1 PROFILLISTE (A35/1:20) 0100 1 WORK-PARAMETER (A64) 0110 * 0120 END-DEFINE 0130 * 0140 RESET RETURN-CODE 0150 MOVE 'SYSCNT' TO BUERO 0160 MOVE 'Z' TO STARTWERT 0170 MOVE 20 TO ANZAHL 0180 * 0190 REPEAT UNTIL RETURN-CODE = 77 0200 CALLNAT 'Z-DIS23' 0210 RETURN-CODE 0220 BUERO 0230 STARTWERT 0240 ANZAHL 0250 PROFILLISTE (*) 0260 WORK-PARAMETER 0270 * 0280 IF NOT RETURN-CODE EQ 0 OR EQ 77 0290 WRITE 'Return-Code:' RETURN-CODE 0300 STOP 0310 END-IF 0320 * 0330 PRINT PROFILLISTE(*) 0340 END-REPEAT 0350 END