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.



Code:
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