View Full Version : Cobol Printer File INFDS
... wie wärs denn hiermit:
https://www.ibm.com/docs/el/i/7.3?topic=reference-feedback-area-layouts
Bitfrickeler werden hiermit viel Spass haben. (sieht schlimmer aus, als die Spool APIs
D*B
danke, hatten wir aber schon. Nur wie man das definiert, keine Ahnung. Aber kein Problem, ich rufe die API auf und gut ist.
... die Mimik ist doch (fast) identisch mit RPG. Die infds anhängen hast du ja schon gefunden. Dann musst du in deiner infds die Felder deklarieren, die du haben willst (Positionen ab Stelle 81 identisch mit RPG. gefüllt wird das dann mit accept. (ACCEPT MY-FEEDBACK-A FROM OPEN-FEEDBACK-AREA FOR MY-FILE) und dann sind die Felder gefüllt.
D*B
Wie heißts so schön: Versuch macht kluch.
Warum die Definitionen der Areas so schwierig zu finden sind weiß ich auch nicht.
Viele Texte der IBM-Seiten sind ja nur noch 1,5 Bildschirmseiten lang und verweisen dann auf textuelle Links, die man dann wieder lange suchen muss.
Ggf. gibts da was im Programmier-Handbuch (nicht in der Reference).
Aber auch hier, COBOL kann ja auch Programme aufrufen:D, somit reicht hier auch ein CLP mit einem RTVSPLFA, was einfacher als so manches API ist.
Wahrscheinlich macht das E30GL aber noch viel eleganter.
.... bin auch der Meinung ohne CL wird's nicht gehen zumal dort bis auf die Spoolnummer mit RTVJOBA die übrigen Felder bereitstellbar sind.
Mittels "Filter" WRKSPLF.... *PRINT und einem nachfolgenden CPYSPLF hast Du u.A. auch die kompletten SPOOL-Daten zur Weitergabe. Wäre interessant was Du damit eigentlich machen willst ?
RTVSPLFA liefert die Informationen des Spools incl. der Spoolfile-Nr.
RTVSPLFA liefert die Informationen des Spools incl. der Spoolfile-Nr.
leider nicht in V7R1. Habe die API genutzt und es funktioniert.
Danke für Eure Tipps.
... die Mimik ist doch (fast) identisch mit RPG. Die infds anhängen hast du ja schon gefunden. Dann musst du in deiner infds die Felder deklarieren, die du haben willst (Positionen ab Stelle 81 identisch mit RPG. gefüllt wird das dann mit accept. (ACCEPT MY-FEEDBACK-A FROM OPEN-FEEDBACK-AREA FOR MY-FILE) und dann sind die Felder gefüllt.
D*B
Das hat mir jetzt doch keine Ruhe gelassen. Danke für den Input, so funktioniert es.
Nach dem öffnen der PRTF kann man den ACCEPT Befehl absetzen und die Felder stehen dann zur Verfügung.
Nachteil, es stehen nicht alle PRTF Attribute zur Verfügung, wie Userdata, usw. Somit bleibe ich bei der API Variante.
Oder eben RTVSPLFA;-), da brauchst du kein API.
Wo gibt's dieses RTVSPLFA?
... war mal in der TAATOOL, gibt aber auch selbstgestrickte, wer zwei Nadeln hat und stricken kann..
D*B
PS: ist aber dann nicht Baldurs Schal ohne APIs
RTVSPLFA => IBM i CMD zur Vewendung im CLP/CLLE.