File Section

[jeannie]

Hallo zusammen

Cobol auf AS400 ist mir nicht so fremd, ich habe aber eine Frage, bei der ich etwas anstehe:

Mit DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/BENUTZER) habe ich mir die Datei BENUTZER erstellt mit Type *FILE und Attribute PF.

Mit SQL kann ich diese Datei öffnen, alle Columns sind korrekt vorhanden.

Nun möchte ich diese Datei in einem Cobolprogramm öffnen.

Wie bekomme ich die File Description automatisch ins Programm?


INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT BENUTZER ASSIGN TO DATABASE-BENUTZER
ORGANIZATION SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD BENUTZER LABEL RECORD STANDARD.
01. (das sollte wohl automatisch möglich sein)


Danke für jeden Tipp.



　


　


　

[Pikachu]

Probier mal mit:

01 BENUTZER-SATZ.
COPY DDS-ALL-FORMATS OF BENUTZER.

[Fuerchau]

Wobei ich die Tabelle nicht in die QTEMP stellen würde. Diese hast du nun mal lokal und deinen Compiler submittest eventuell.

[jeannie]

Probier mal mit:

01 BENUTZER-SATZ.
COPY DDS-ALL-FORMATS OF BENUTZER.

Das tut weh. :-(

Danke und bitte nicht weitererzählen ...

[jeannie]

Wobei ich die Tabelle nicht in die QTEMP stellen würde. Diese hast du nun mal lokal und deinen Compiler submittest eventuell.

Stimmt. Aber ich habe hier eine kleine Ecke auf der Maschine. Da darf ich mich austoben.