Fehler RNX0115

[Hubert]

Hallo Brigitta,

hat leider nichts gebracht. Weder INZ noch Array. Im Gegenteil: ich schreibe die Daten per SQL in eine Datei.

exec sql                     
   insert into doku.DSPFFLD  
     values(                 
            :#FmtNam,        
            :#FldNam,        
            :#FldLen,        
            :#FldPlen,       
            :#FldDec,        
            :#FldIO ,        
            :#FldAtr,        
            :#FldDTUS,       
            :#FldEdt,        
            :#FldRow,        
            :#FldCol,        
            :FeldInhalt      
           );

Beim Array

exec sql                            
   insert into doku.DSPFFLD         
     values(                        
            :FldDtaDS(i).#FmtNam  , 
            :FldDtaDS(i).#FldNam  , 
            :FldDtaDS(i).#FldLen  , 
            :FldDtaDS(i).#FldPlen , 
            :FldDtaDS(i).#FldDec  , 
            :FldDtaDS(i).#FldIO   , 
            :FldDtaDS(i).#FldAtr  , 
            :FldDtaDS(i).#FldDTUS , 
            :FldDtaDS(i).#FldEdt  , 
            :FldDtaDS(i).#FldRow  , 
            :FldDtaDS(i).#FldCol  , 
            :FeldInhalt             
           );

bekomme ich schon im Editor die Fehlöermeldung "Token : ungültig. Gültige Token: (. " Anscheinend mag SQL keine Arrays.

[Fuerchau]

Könnte ein Definitionsfehler zwischen dir und dem Service liegen.
Schau dir mal die Variable #FldCom als Hexwert an.
Die ersten 2 Stellen sind der Binärwert (int(5)) der Länge und darf natürlich 4000 nicht übersteigen.
Ich vermute einfach mal, das Feld ist gar nicht als Varying definiert.

[B.Hauser]

Mir war nicht klar, dass Du die Unterfelder qualifiziert im embedded SQL angeben willst.
Arrays, Array-Datenstrukturen bzw. deren untergeordneten Felder können mit embedded SQL nicht direkt verarbeitet werden. Da muss zunächst umgeladen werden (oder halt doch Mehrfach-Datenstrukturen verwendet werden)
Ebensowenig können mehrfachverschachtelte Datenstrukturen bzw. deren -Unterfelder als Host-Variablen in (embedded) SQL verarbeitet werden.

Birgitta

[Hubert]

Die Definitionen im Service Programm sind:

     H NoMain

      *-------------------------------------------------------------------
      *  - RtvDspFDesc - Retrieve display file description (QDFRTVFD API)-
      *-------------------------------------------------------------------

     D RtvDspFDesc     PR                  ExtPgm( 'QDFRTVFD' )
     D                                8
     D                               10I 0 Const
     D                                8    Const
     D                               20    Const
     D                              272


     D RtvFlds         PR              N
     D  QDspFil                      20A    Value
     D  QNumFlds                     10I 0
     D  QFlddta                             Like(FldDtaDS)

     D FldDtaDS        DS                  Based (p_FldDtaDS) occurs(1000)
     D  #FmtNam                      10A
     D  #FldNam                      10A
     D  #FldLen                       5I 0
     D  #FldPlen                      5I 0
     D  #FldDec                       1
     D  #FldIO                        1
     D  #FldAtr                       1
     D  #FldDTUS                      1
     D  #FldEdt                      20A
     D  #FldRow                      10I 0
     D  #FldCol                      10I 0
     D  #FldCom                    4000A   varying
      *---------------------------------------------------------------*
      *  Retrieve Display File Fields                                 *
      *---------------------------------------------------------------*

     P RtvFlds         B                   Export



     D  RtvFlds        PI                  Like(LglTyp)
     D  QDspFil                            Like( QNamTyp ) Value
     D  Numflds                      10I 0
     D  FldDta                             Like(FldDtaDS)

Die Source dazu habe ich aus dem Midrange Wiki

[Hubert]

Das Serviceprogramm scheint der Fehler zu sein. Manchmal gibt es einen Wert zurück, der auch in den ersten zwei Stellen Blanks (X'4040') hat. Dazu wird dan eine Feldlänge > 16000 zurückgegeben. Nachdem ich das abgefragt habe, lief es so weit gut, bis ein Fehler im Service Programm auftrat.

Danke für Eure Bemühungen

[Fuerchau]

Dann ist da ein Initialisierungsfehler im Serviceprogramm in dem wohl auf die Struktur Blanks gestellt werden an Stelle eines "Clear Struktur", das alle Felder korrekt initialisiert.