Z-PRI11

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Ein Dokument drucken.

Das Dokument muss in einem druckbaren Format sein (d.h. Dokumentformat Txt oder Cnf).

Wenn Sie ein Cnf-Dokument drucken, sind die Con-form-Anweisungen in der gedruckten Version enthalten. Ein Cnf-Dokument wird nicht formatiert (diese Funktion steht mit Z-PRI11F, Z-PRI11G oder Z-PRI11I zur Verfügung).

Wenn Sie Con-nect von einem PC aus aufrufen, können Sie das Dokument auch auf dem Drucker ausgeben, der an Ihren PC angeschlossen ist.

Die aufrufende Routine sollte eine Druckerdefinition in der folgenden Form enthalten:

IF DRUCKER-TID EQ 'PC'
   DEFINE PRINTER(#OUT=5)
ELSE
   DEFINE PRINTER(#OUT=5) OUTPUT DRUCKER-TID
END-IF

Es gelten die folgenden Regeln:

  • Wenn Drucker-TID gleich Binärnull (Format B8) ist, wird DEFINE PRINTER nicht ausgeführt.

  • Wenn Drucker-TID leer oder gleich PC ist, wird DEFINE PRINTER (5) unabhängig vom aktuellen Gerät ausgeführt. Es gibt eine Ausnahme: wenn Drucker-TID gleich PC und *DEVICE ungleich PC ist, wird der Return-Code 5 ausgegeben und die Routine wird beendet.

  • Bei jedem anderen Wert von Drucker-TID wird Folgendes ausgegeben, unabhängig vom aktuellen Gerät:

    DEFINE PRINTER (5) OUTPUT PRINTER-TID

Wenn Sie ein Dokument ausdrucken, das sich zur Zeit im Ordner Neu des Fachs Posteingang befindet, wird die dazugehörende Empfängerliste aktualisiert (d.h. der Empfangsstatus des Dokuments weist nun darauf hin, dass das Dokument gelesen wurde) und das Dokument wird in den Ordner Gelesen gestellt.

Nach der erfolgreichen Ausführung von Z-PRI11 erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2   X  
Buero A8 E   Das Büro, in dem das Dokument gedruckt werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E*   Der Name des Dokuments, das gedruckt werden soll. Entweder Dokumentname oder ISN, nicht beides.
ISN P8 E*   Die ISN des Dokuments, das gedruckt werden soll. Entweder ISN oder Dokumentname, nicht beides. Vor dem Aufruf dieses Subprogramms können Sie Z-DIS11 aufrufen, um die ISN des gewünschten Dokuments auszugeben.
Drucker-TID A8 E   Die Terminal-ID, LU-Nummer oder ein vergleichbares Terminal-Ziel für den Drucker, der benutzt werden soll.
Seitenlaenge N3 O   Die Anzahl der Zeilen pro gedruckter Seite. Werte 1 bis 250. Vorgabe: 60.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
04 ISN wurde nicht gefunden
05 TID/LU ist kein PC
08 Geben Sie entweder ISN oder Name ein - nicht beides
09 ISN zeigt nicht auf das richtige Objekt
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht
57 Das Dokument enthält keinen Text
80 Das Dokument ist nicht korrekt strukturiert
88 Das Dokument ist in keinem korrekten Druckformat
90 Ungültige Seitenlänge - sie muss zwischen 1 und 250 liegen

Subprogramme

Z-0711A
Z-120
Z-122
Z-123
Z-165
Z-175
Z-177
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
Z-1200&0

Beispiel

0010 DEFINE DATA LOCAL   
0020 01 RETURN-CODE   (N2)
0030 01 BUERO         (A8)
0040 01 PASSWORT      (A8)
0050 01 DOKUMENTNAME  (A32)
0060 01 ISN           (P8)
0070 01 DRUCKER-TID   (A8)
0080 01 SEITENLAENGE  (N3)
0090 END-DEFINE
0100 *
0110 MOVE 'TID     ' TO DRUCKER-TID
0120 *
0130 IF DRUCKER-TID EQ 'PC'
0140    DEFINE PRINTER(#OUT=5)
0150 ELSE
0160    DEFINE PRINTER(#OUT=5) OUTPUT DRUCKER-TID
0170 END-IF
0180 *
0190 FORMAT(#OUT) PS=250 LS=219
0200 *
0210 MOVE 'LS'          TO BUERO
0220 MOVE 'PASSWORT' TO PASSWORT
0230 MOVE 'REPORT-1' TO DOKUMENTNAME
0240 *
0250 CALLNAT 'Z-PRI11' RETURN-CODE BUERO PASSWORT DOKUMENTNAME ISN
0260                   DRUCKER-TID SEITENLAENGE
0270 *
0280 IF RETURN-CODE EQ 0
0290   WRITE 'Dokument wurde gedruckt' RETURN-CODE
0300 ELSE
0310   WRITE 'Return-Code' RETURN-CODE
0320 END-IF
0330 *
0340 END