Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
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 |
Z-110
Z-162
Z-170
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