DDS in ILE RPG

[Squall]

Hallo habe noch ein Problem und zwar lässt sich die neu erstellte Datei "DDS" nicht öffnen.

FDDS       O    F   92        Disk    UsrOpn         
f                                     ExtFile(MyFile)
f                                     ExtMbr(MyMbr)  
                                                     
DCMDREC           DS            92                             
DSRCSEQ                          6S 2                          
DSRCDAT                          6S 0                          
DSRCDTA                         80A                            
                                                               
C*     *entry        plist                                      
C*                   parm                    MyFile           21
C*                   parm                    MyMbr            10
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(e)   dds                          
C*                  IF        not %ERROR                   
C                   write     dds           cmdrec         
C*                  endif                                  
C                   close     dds                          
C                   return 

Hat jmd eine Idee warum bzw wie ich herausfinden kann warum? Die Fehlermeldung sagt nur das Write fehlschlägt weil die Datei geschlossen ist.