Z-DIS79

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

00 Erfolg
77 Ende der Liste
90 Keine logischen Drucker gefunden

Subprogramme

Keine

Beispiel

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