Z-PRI11X

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Ein Dokument drucken.

Dieses Subprogramm entspricht Z-PRI11 mit der Ausnahme, dass der Parameter ISN das Format P10 hat.

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-PRI11Y 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-PRI11X 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 P10 E*   Die ISN des Dokuments, das gedruckt werden soll. Entweder ISN oder Dokumentname, nicht beides. Vor dem Aufruf dieses Subprogramms können Sie Z-DIS11X 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 *
0020 * Dokument drucken
0030 *
0040 DEFINE DATA
0050 LOCAL
0060 1 RETURN-CODE       (N2)
0070 1 BUERO             (A8)
0080 1 PASSWORT          (A8)
0090 1 DOKUMENTNAME      (A32)
0100 1 ISN               (P10)
0110 1 DRUCKER-TID       (A8)
0120 1 SEITENLAENGE      (N3)
0130 *
0140 END-DEFINE
0150 *
0160 RESET RETURN-CODE
0170 *
0180 MOVE 'TID     ' TO DRUCKER-TID
0190 *
0200 IF  DRUCKER-TID EQ 'PC'
0210   DEFINE PRINTER(#OUT=5)
0220 ELSE
0230   DEFINE PRINTER(#OUT=5) OUTPUT DRUCKER-TID
0240 END-IF
0250 *
0260 FORMAT(#OUT) PS=250 LS=129
0270 *
0280 MOVE 'BUERO'    TO BUERO
0290 MOVE 'PASSWORT' TO PASSWORT
0300 MOVE 1234567890 TO ISN
0310 *
0320 CALLNAT 'Z-PRI11X'
0330   RETURN-CODE
0340   BUERO
0350   PASSWORT
0360   DOKUMENTNAME
0370   ISN
0380   DRUCKER-TID
0390   SEITENLAENGE
0400 *
0410 IF  RETURN-CODE EQ 0
0420   WRITE 'Dokument wurde gedruckt' RETURN-CODE
0430 ELSE
0440   WRITE 'Return-Code ' RETURN-CODE
0450 END-IF
0460 *
0470 END