String und Leerzeichen

[Squall]

Mein Programmcode:

 DHeader           DS
     Dheader1                        80A   inz('     A*  ')
     Dheader2U6                      80A   inz('     A*========================+
     D                                     ====================================+
     D                                     =========')
     Dheader3                        80A   inz('     A*==  Dateiname   :       +
     D                                              Datum :                    +
     D                                            ==')
     Dheader4                        80A   inz('     A*==----------------------+
     D                                     ------------------------------------+
     D                                     -------==')
     Dheader5                        80A   inz('     A*==  Autor       :       +
     D                                                                         +
     D                                            ==')
     Ddatnam           S             10A   inz('DateinameA')
     Ddate             S             20A
     Dautor            S             40A

     C                   eval      pos=%scan(':':header3)
     C                   eval      pos=pos+3
     C                   eval      header3=%replace(datnam:header3:pos) 

Die Beispiele hatte ich mir schon angeschaut und wie gesagt von der Sache her funktioniert das auch ganz gut nur werden mir halt die Leerzeichen "geklaut".