DDS in ILE RPG

[Squall]

Schau mal ins Joblog, lass mal das "(e)" beim Open weg.

Ich kann leider nicht in meinen Joblog schaun da ich nur PGMR bin und nicht über *JOBCTL verfüge.

Das (e) weglassen hat auch nichts gebracht. (das (e) ist doch nur für das Errorhandling zuständig oder?)

EDIT: Woran könnte es sonst noch liegen das ich das File nicht öffnen kann? DIe Datei DDS mit Teildatei DDS wird korrekt erstellt.

Hier nochmal mein CL:

             PGM                                                         
                                                                         
 /**         CPYSRCF    FROMFILE(LIB/TESTDDS) +                **/    
 /**                      TOFILE(LIB/TESTDDS2) FROMMBR(TESTDDS)   **/ 
 /**         ADDPFM     FILE(LIB/TESTDDS2) MBR(TESTDDS3)          **/ 
             CRTSRCPF   FILE(LIB/DDS) MBR(DDS)                        
             OVRDBF     FILE(DDS) TOFILE(LIB/DDS) +                   
                          MBR(DDS) OVRSCOPE(*JOB)                        
             CALL       PGM(DDSWRITE) PARM('DDS' 'DDS')                  
             DLTOVR     FILE(DDS) LVL(*JOB)                              
 ENDE:       RETURN                                                      
                                                                         
             ENDPGM 

und hier mein RPG Programm:

H DftActGrp(*NO) ActGrp(*CALLER)                           
H alwnull(*USRCTL)                                         
                                                           
FDDS       O    F   92        Disk    UsrOpn               
f                                     ExtFile(MyFile)      
f                                     ExtMbr(MyMbr)        
                                                           
F*DDS       uf A f           K disk                        
                                                           
                                                           
D*aufnehm          PR                  EXTPGM('DDSTEST')   
D* field1                        21A   OPTIONS(*VARSIZE)   
D* field2                        10A   OPTIONS(*VARSIZE)   
                                                           
D*aufnehm          PI                                      
D* MyFile                        21A   OPTIONS(*VARSIZE)   
D* MyMbr                         10A   OPTIONS(*VARSIZE)   
                                                           
DCMDREC           DS            92                         
DSRCSEQ                          6S 2                          
DSRCDAT                          6S 0                          
DSRCDTA                         80A                            
                                                               
C     *entry        plist                                      
C                   parm                    MyFile           21
C                   parm                    MyMbr            10
C                                                              
C                   eval      MyFile = 'LIB/DDS'            
C                   eval      MyMbr = 'DDS'                    
C                                                              
C                   eval      srcseq = 0001.00                 
C                   eval      srcdat = 0609121                 
C                   eval      srcdta = 'dies ist ein test'     
C                   open      dds                              
C*                  IF        not %ERROR                       
C                   write     dds           cmdrec             
C*                  endif                                      
C                   close     dds                              
C                   return