Z-DRIVER

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Con-nect-Druckerprofil in den Con-form-Buffer laden.

Sie können dieses Subprogramm aufrufen, bevor Sie einen Ausdruck mit dem Statement COMPOSE FORMATTING an einen Drucker schicken. Die Informationen im Con-form-Buffer werden dann von dem Statement COMPOSE FORMATTING verarbeitet und mit Hilfe des Druckerprofils, das mit diesem Subprogramm definiert wurde, gedruckt.

Ein vorher geladener Druckertreiber wird durch eine der folgenden Aktionen wieder entladen:

  • Ausführung des Statements COMPOSE RESETTING ALL, oder

  • Formatieren und Senden eines Dokuments an ein Ziel, das kein Natural-Report ist.

Optional - zusammen mit Z-DRIVER können Sie die API-Subprogramme Z-OPSEQ (Sequenz zum Öffnen des Druckers laden) und Z-CLSEQ (Sequenz zum Schließen des Druckers laden) aufrufen.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2   X  
Buero A8 E   Der Name des Büros, das das Druckerprofil enthält.
Druckerprofil A32 E   Der Name des Druckerprofils.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
83 Ungültiger Name für Druckerprofil
84 Das gewünschte Druckerprofil existiert nicht
86 Modul für Druckertreiber kann nicht geladen werden
90 Der Drucker wurde nicht gefunden

Subprogramme

Z-110
Z-162
Z-170

Beispiel

0010 DEFINE DATA LOCAL
0020 1 RETURN-CODE     (N2)
0030 1 BUERO           (A8)
0040 1 DRUCKERPROFIL   (A32)
0050 1 REPORT-NUMMER   (B1)           /* wird von Z-OPSEQ und Z-CLSEQ benutzt
0060 END-DEFINE
0070 *
0080 DEFINE PRINTER(1) OUTPUT '289'   /* (1) = Report-Nummer
0090 FORMAT (1) LS = 120 PS = 60
0100 *
0110 MOVE 1 TO REPORT-NUMMER          /* fuer Z-OPSEQ und Z-CLSEQ
0120 MOVE 'SYSCNT' TO BUERO
0130 MOVE 'CANON'  TO DRUCKERPROFIL
0140 COMPOSE RESETTING ALL
0150 *
0160 CALLNAT 'Z-DRIVER' RETURN-CODE BUERO DRUCKER-PROFIL
0170 IF  RETURN-CODE NE 0
0180     WRITE 'Return-Code' RETURN-CODE
0190 ELSE
0200     CALLNAT 'Z-OPSEQ' RETURN-CODE BUERO REPORT-NUMMER        /* oeffnen
0210        IF RETURN-CODE = 0
0220           COMPOSE FORMATTING INPUT 'Dokumentname'
0230                   FROM CABINET 'Bueroname'
0240                   OUTPUT(1)
0250           CALLNAT 'Z-CLSEQ' RETURN-CODE BUERO REPORT-NUMMER  /* schliessen
0260        ELSE
0270           WRITE 'Ungueltige Report-Nummer' RETURN-CODE
0280        END-IF
0280 END-IF
0290 END