sollte eigentlich im cl gehen
Code:
pgm (&lib &file &newlib)                                         
                                                                 
  dcl &lib     *char  10 /* Bibliothek       */                  
  dcl &file    *char  10 /* FileName         */                  
  dcl &newlib  *char  10 /* neue Bibliothek  */                  
  dcl &newfile *char  10 /* neuer FileName   */                  
  dcl &date    *char   6 /* Datum            */                  
                                                                 
  rtvsysval qdate &date                                          
                                                                 
  chgvar &newfile (&file *tcat %sst(&date 1 4))                  
                                                                 
  cpyf &lib/&file &newlib/&newfile mbropt(*replace) crtfile(*yes)
                                                                 
endpgm
gruß ronald