Z-DIS23

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

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

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.

Return-Codes

00 Erfolg
77 Ende der Liste
90 Keine Profile gefunden

Subprogramme

Keine

Beispiel

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