F-bestimmungen in Prozedur

[BenderD]

... eine lokal deklariertes File kann man schlecht in einen globalen Format Buffer einlesen => der chain will eine passende Datenstruktur als weiteren Parameter haben...

D*B
der wieder mal nicht versteht wofür sowas gut sein soll, außer zum ausprobieren

Hallo zusammen,

Wir haben am letzten Wochenende die umstellung auf V6R1 durchgeführt. Da man nun auch in Prozeduren F-bestimmungen einfügen kann habe ich es natürlich direkt mal ausprobiert. Allerdings bekomme ich beim Kompilieren folgende Fehlermeldung:
RNF7274 30 1 Eine Ergebnisdatenstruktur ist für die Ein-/Ausgabe für eine qualifizierte Datei erforderlich

Der Code sieht folgendermaßen aus:

     P §Test           B
     FTESTDAT01 UF A E           K DISK    rename(TSTR:TESTR)
     D §Test           PI
     d K$TESTDAT01   E DS                  extname(TESTDAT01:*key)
     d                                     Prefix(K$)
     d

      /FREE

        // Chain(E) %Kds(K$TESTDAT01) TESTDAT01;

         FLD = 'HALLO';

         Update(E) TESTR;

      /END-FREE
     P §Test           E

Ich hoffe Ihr könnt mir helfen.