Exec SQL INSERT INTO und Array?

[SourceCoder]

Schönen guten Abend Zusammen,

ich habe ein Problem wo Hilfe gebrauchen kann, bitte beachtet das ich mich im ersten Ausbildungsjahr befinde und nicht alles perfekt ist.

Bei der Umwandlung bekomme ich die Fehlermeldung:

SQL5011 30 57 Position 49 Bereich der Host-Struktur FNAME nicht
definiert oder nicht verwendbar.

D Main            PR                  Extpgm('CHKLFSSRC')                   
D Pbibo                         10A                                         
D Pfile                         10A                                         
D Pdate                          6  0                                       
D Main            PI                                                        
D Pbibo                         10A                                         
D Pfile                         10A                                         
D Pdate                          6  0                                       
/* ************************************************************************ 
d system          pr            10I 0 EXTPROC('system')                     
d                                 *   value OPTIONS(*STRING)                
d cpfmsg          s              7A   IMPORT('_EXCP_MSGID')                 
/* ************************************************************************ 
D FName                        100A   Dim(512)                              
/* ***************Programm Vaiablen**************************************** 
D FSRC                          20A                                         
D Name                          10A                                         
D Count           S              6  0                                       
d   i                            4S 0 Inz                                   

/* ************************************************************************
C/exec sql                                                                 
C+     set option DatFmt = *iso, Commit = *none, CloSqlCsr = *endmod       
C/end-exec                                                                 
 /FREE                                                                     
    FSRC = Pbibo + '/' + Pfile;                                            
    System('CRTPF FILE(QTEMP/LISTOUT) RCDLEN(80)');                        
    System('DSPFD FILE(' + FSRC + ') TYPE(*MBRLIST) +                      
                  OUTPUT(*OUTFILE) OUTFILE(QTEMP/LISTIN');                 
                                                                           
    EXEC SQL Declare MyCs Cursor FOR                                       
       SELECT MLNAME FROM                                                  
        QTEMP/LISTIN                                                       
       where DEC(MLCHGD) <= :Pdate;                                        
                                                                           
    Exec SQL Open MyCs;                                                    
    Exec SQL FETCH MyCs FOR 512 ROWS INTO :FName;                          
    Count = SQLER3;                                                        
    Exec SQL Close MyCs;                                                   

    FOR i=1 by 1 to 512;                                   
      clear Name;                                          
      Name = FName(i);                                     
      Exec SQL INSERT INTO QTEMP/LIST (LIST) VALUES(:Name);
    EndFor;                                                
                                                           
  *InLr=*On;                                               
 /END-FREE

[mk]

Hallo,

das Feld FName ist in deinem Code
vieleicht mehrfach definiert.

Deshalb weiß der Compiler nicht was gültig ist.

gruß
Michael

[B.Hauser]

SQL kann keine Feldgruppen/Arrays verarbeiten, sondern nur Array-Datenstrukturen.
Du musst Dein Ausgabe-Feld wie folgt definieren:

D MyOutDS       DS                      Dim(512) Qualified
D   FName                          100A

Die einzelnen Unterfelder/Elemente musst Du dann wie folgt ansprechen:

 /Free
     MyOutDS(Index).FName = '123';
     If MyOutDS(Index).FName = 'AAAAA';

Birgitta

[mk]

Oh, sorry

ich hatte nur die Meldung beachtet.

Birgitta hat natürlich recht

[SourceCoder]

Danke für den Tipp habe ich nun umgesetzt aber der Fehler ist geblieben, hier aktuelle Code: D Main PR Extpgm('CHKLFSSRC') D P - Pastebin.com

Und die Fehlermeldung:

SQL0312 30 65 Position 59 Variable OUTPUT nicht definiert oder nicht
verwendbar.

Vielleicht noch als Info MLNAME ist ein Char Feld mit der Länge 10.

[BenderD]

... so wie Du es deklariert hast, ist ouutput Teil der DS und damit des arrays, muss also qualifiziert und mit Index verwendet werden.

D*B

[SourceCoder]

Super danke hab es einfach übersehen, die kleinen Fehler sind wirklich die schlimmsten.