[gelöst] DtaAra im DSPF ?

[FNeurieser]

Hallo und guten Tag allerseits,

ich hab da mal eine Frage an die werte Community. Vielleicht gibt es ja jemanden der mir hier weiterhelfen kann:

In einem DSPF habe ich 20 1-stellige Felder die B1FLD01 bis B1FLD20 lauten.

Im RPG-Programm soll nun aus einer Dtaara ein 20 stellen langer String als Array mit 1 Stelle ausgelesen werden und jedes Element in das entsprechende Feld im DSPF gestellt werden.

Die Dtaara lautet wie folgt:

DRI_BAUMLDT       DS                  DtaAra    
D  D0PRGR                        1A   Dim(20)   
D  D0STKL                        2A   Dim(15)   
D  D0SORT                        1A             
D  D0LAGB                        1A             
D  D0FREI                      203A

Dazu habe ich dann eine DS gebildet:

D B1PRGR          DS                 
D  B1PRGR01                      1A  
D  B1PRGR02                      1A  
D  B1PRGR03                      1A  
D  B1PRGR04                      1A  
D  B1PRGR05                      1A  
D  B1PRGR06                      1A  
D  B1PRGR07                      1A  
D  B1PRGR08                      1A  
D  B1PRGR09                      1A  
D  B1PRGR10                      1A  
D  B1PRGR11                      1A  
D  B1PRGR12                      1A  
D  B1PRGR13                      1A  
D  B1PRGR14                      1A  
D  B1PRGR15                      1A  
D  B1PRGR16                      1A  
D  B1PRGR17                      1A  
D  B1PRGR18                      1A  
D  B1PRGR19                      1A  
D  B1PRGR20                      1A

und eine Table:

D B1PRGRD                        1A   Dim(20)

Wie man sich als kleiner Wutzi so denkt habe ich nun folgendes versucht:

 C     *Lock         In        RI_BAUMLDT                    
 C                   Out       RI_BAUMLDT                    
  *                                                          
 C     1             Do        20            X#              
 C                   Move      D0PRGR(X#)    B1PRGRD(X#)     
 C                   EndDo                                   
 C                   Eval      B1PRGR = B1PRGRD

Nun bekomme ich aber beim umwandeln die folgende Fehlermeldung:

     46 D B1PRGRD                        1A   Dim(20)                                        
 ======>                  aa                                                                 
 *RNF3703 20 a      004600  Unterfeld- oder Parameterdefinition nicht in einer Gruppe        
                            angegeben.

und für das Statement

 C                   Eval      B1PRGR = B1PRGRD   

Feldgruppe hat zu viele übergangene Indizes; die Bestimmung   
wird ignoriert.

Kann mir bitte hier jemand weiterhelfen? Bin für jede Unterstützung dankbar.

[cbe]

Hallo FNeurieser

vielleicht hilft statt dem eval ein movea ?
So in etwa:

C   movea  D0PRGR   B1PRGR

Gruß,
Christian

[andreaspr@aon.at]

Hallo,

kann es sein dass du B1PRGRD NICHT innerhalb einer Datenstruktur definieren willst?

D B1PRGRD      S                 1A   Dim(20)

lg Andreas

[B.Hauser]

Ändere den SourceCode wie folgt ab und es sollte funktionieren:

D B1PRGR          DS                 
D  B1PRGR01                      1A  
D  B1PRGR02                      1A  
D  B1PRGR03                      1A  
D  B1PRGR04                      1A  
D  B1PRGR05                      1A  
D  B1PRGR06                      1A  
D  B1PRGR07                      1A  
D  B1PRGR08                      1A  
D  B1PRGR09                      1A  
D  B1PRGR10                      1A  
D  B1PRGR11                      1A  
D  B1PRGR12                      1A  
D  B1PRGR13                      1A  
D  B1PRGR14                      1A  
D  B1PRGR15                      1A  
D  B1PRGR16                      1A  
D  B1PRGR17                      1A  
D  B1PRGR18                      1A  
D  B1PRGR19                      1A  
D  B1PRGR20                      1A
D  B1FG                          1A      Dim(20) Overlay(B1PRGR)
....

C********     Eval      B1PRGR = B1PRGRD 
C             Eval      B1FG = B1PRGRD

Birgitta

[FNeurieser]

Danke Brigitta,

das war des Pudels Kern.

LG

Franz