Zitat Zitat von Rincewind
Hy,

Kann mir jemand sagen ob das auch mit Feldern einer Extern Beschriebenen Datenstruktur geht?


D PARM620 E DS 256 EXTNAME(FIL620ED)

D STDVDS DS
D PFST1V
D PFST2V
D PFST3V
D PFST4V
D STDV LIKE(PFST1V) DIM(4) OVERLAY(STDVDS)

In der Art hab ich das probiert, da sagt er beim wandeln leider dass die Felder schon definiert sind.
Vermutlich gehts ganz leicht und ich hab nur mal wieder das Problem mit dem Baum und dem Wald.

Ansonsten schönes Wochenende

Rince
Hallo Rince,

wie der Compiler sagt, ein Feld darf nur in einer Datenstruktur enthalten sein. Würde es sich um eine Datei, die in den F-Bestimmungen definiert ist, würde es gehen.

Du musst einen kleinen Umweg über einen Pointer machen
Hier ein Beispiel:
Code:
D DSADRBP       E DS                  EXTNAME(LLADRBP)    
 
D MyPtr           S               *   Inz(%Addr(ADNA1))   
D Name                                 based(MyPtr) like(ADNA1) dim(5)  
                                                          
D Index           S              3U 0      
 /Free                     
   clear DSADRBP;          
   ADNA1 = 'ABC';          
   ADNA2 = 'BCD';          
   ADNA3 = 'EFG';          
   ADNA4 = 'HIJ';          
   ADNA5 = 'XYZ';          
   For Index = 1 to 5;     
       Dsply Name(Index);  
   EndFor;                 
 /End-Free
Birgitta