Programmbeschriebe Datei Sätze hinzufügen

[marcel331]

Hallo Herr Fuerchau,

danke für die Antwort aber leider verstehe ich sie nicht so ganz. Heisst das ich muss eine DS definieren und diese dann in den I Bestimmungen angeben?

D AES20           DS          7000              
      
 *                                              
IAES20TMP  AA                                   
I                                  1 7000  AES20

C                   WRITE     AES20         AES20TMP 

Dies führt wieder zu Fehlern, bitte nochmal um Ihre Hilfe.

Vielen Dank im Voraus

Marcel

[Fuerchau]

Manchmal ist RPG da etwas restriktiv.
Versuche folgendes:

D MYAES20 DS
D AES20 1 7000

IAES20TMP AA
I 1 7000 AES20

C WRITE MYAES20 AES20TMP

Der Write könnte auch andersrum lauten (erst Format und dann Struktur, ich bin jetzt aber zu faul, nachzulesen):
C WRITE AES20TMP MYAES20

[prs]

Hallo,
die Reihenfolge ist Faktor 2 Dateiname und Ergebnisfeld Datenstruktur. Was für Fehlermeldungen treten denn auf?
So sollte das Pgm. laufen:
FDBF002 UF A F 7000 DISK
D feld1 DS 7000
IDBF002 AA
I 1 7000 feld1
C movel 'xyz' feld1
C write DBF002 feld1
C move *ON *INLR
Gruß
prs

[marcel331]

Hallo,

Danke für eure Hilfe, so funktionierts bei mir.

FAES20TMP  UF A F 7000        DISK                            
                  
 *                                                            
D$AES20           S           7000    varying                 
                       
          
 *                                                            
DMYAES20          DS                                          
DAES20                    1   7000                            
 *                                                            
IAES20TMP  AA                                                 
I                                  1 7000  AES20     

C                   MOVEL     $AES20        AES20 
C                   WRITE     AES20TMP      MYAES20 

Danke nochmal

Marcel