Cobol Printer File INFDS

[Fuerchau]

ChatGPT weiß eben nicht alles:
Das gibts ebenso für COBOL.
Das Thema bei COBOL nennt sich dann OPEN-FEEDBACK Area:
Mittels Accept kann man diese dann einlesen.
Die Struktur habe ich online leider nicht gefunden, sollte aber zur RPG-Struktur passen.
Man muss halt nur die Filler selber ausrechnen.

https://www.ibm.com/docs/en/i/7.5?to...cept-statement

https://www.ibm.com/docs/en/i/7.5?topic=information-infds-open-feedback-example

[Robi]

meine Frage an Chatgpt: ist die open feedback area im cobol wie die infds in rpg


ChatGPT

Die Open Feedback Area (OFA) in COBOL ist nicht direkt vergleichbar mit der INFDS (File Information Data Structure) in RPG, obwohl sie in gewisser Weise ähnliche Informationen bereitstellen kann. Beide Mechanismen dienen dazu, zusätzliche Informationen über eine Datei oder eine Dateioperation bereitzustellen, aber sie funktionieren auf unterschiedliche Weise und bieten unterschiedliche Informationen.
INFDS in RPG

Die INFDS in RPG ist eine Datenstruktur, die verwendet wird, um spezifische Informationen über eine Dateioperation zu erhalten, wie zum Beispiel den letzten verwendeten I/O-Befehl, den Fehlerstatus, den Dateinamen und mehr. Sie wird speziell für eine Datei definiert und enthält eine Vielzahl von Feldern, die der RPG-Programmierer direkt verwenden kann.
Open Feedback Area in COBOL

Die Open Feedback Area in COBOL auf IBM i ist eine Struktur, die Informationen über den Status einer geöffneten Datei enthält. Sie wird hauptsächlich verwendet, um Details über die Datei zu erhalten, nachdem die Datei geöffnet wurde.
Verwendung der Open Feedback Area in COBOL:

Definition der Open Feedback Area:
Sie müssen die Open Feedback Area im Working-Storage-Bereich definieren.

cobol

WORKING-STORAGE SECTION.
01 OPEN-FEEDBACK-AREA.
05 OFA-FEEDBACK-LENGTH PIC S9(4) COMP.
05 OFA-FEEDBACK-DATA PIC X(256).

Verwendung der OFA mit der Datei:
Sie müssen die OFA der Datei im FILE-CONTROL-Bereich zuweisen.

cobol

FILE-CONTROL.
SELECT YOURFILE ASSIGN TO DISK
ORGANIZATION IS SEQUENTIAL
FILE STATUS IS FILE-STATUS-CODE
OPEN-FEEDBACK IS OPEN-FEEDBACK-AREA.

Abruf von Informationen nach dem Öffnen:
Nachdem die Datei geöffnet wurde, können Sie die Informationen in der OPEN-FEEDBACK-AREA analysieren. Diese Informationen könnten die Anzahl der Datensätze in der Datei, den Zugriffspfad, Dateiattribute usw. enthalten.

Unterschiede und Gemeinsamkeiten:

INFDS in RPG: Wird für eine Vielzahl von Informationen über Dateioperationen verwendet, und diese Informationen können direkt in einer Datenstruktur abgelegt und abgerufen werden.

OFA in COBOL: Bietet spezifische Informationen über den Status der Datei nach dem Öffnen, ist aber weniger umfassend und spezifisch im Vergleich zu INFDS in RPG.

Fazit:

Während die Open Feedback Area in COBOL einige Funktionen bietet, die mit denen der INFDS in RPG vergleichbar sind, ist sie in ihrer Anwendung eingeschränkter und weniger flexibel. Für umfassendere Datei- und Fehlerinformationen in COBOL sind andere Methoden wie File Status Codes, deklarative Fehlerbehandlung oder System-APIs notwendig.

----------------------------------------------------------------------------------
Aber es wäre ja auch traurig, wenn ChatGpt einen guten Cobol Entwicker ersetzen könnte

[Fuerchau]

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, somit reicht hier auch ein CLP mit einem RTVSPLFA, was einfacher als so manches API ist.
Wahrscheinlich macht das E30GL aber noch viel eleganter.

[itec01]

Ja, leider passt die Syntax von CHATGPT nicht.
OPEN-FEEDBACK IS OPEN-FEEDBACK-AREA darf nicht in File-Control stehen, sondern muss in SPECIAL-NAMES stehen. Aber ich bekomme nicht die Attribute der printerfile angezeigt. Das muss dann wohl irgendwie mit ACCEPT gehen, aber so wie Du schon schreibst, man findet nichts aussagekräftiges im Netz.
Bleibe bei der API, die funktioniert.
Danke für die Tipps.

[BenderD]

... wie wärs denn hiermit:
https://www.ibm.com/docs/el/i/7.3?to...k-area-layouts
Bitfrickeler werden hiermit viel Spass haben. (sieht schlimmer aus, als die Spool APIs

D*B

[itec01]

... wie wärs denn hiermit:
https://www.ibm.com/docs/el/i/7.3?to...k-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.

[BenderD]

... 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

[itec01]

... 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.

[Fuerchau]

Oder eben RTVSPLFA;-), da brauchst du kein API.

[Pikachu]

Wo gibt's dieses RTVSPLFA?

[BenderD]

... 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

[Fuerchau]

RTVSPLFA => IBM i CMD zur Vewendung im CLP/CLLE.