Geht das nicht einfach so?

Code:
DCL-DS  DSKW;                         
  KW01;                               
  KW02;                               
  KW03;                               
  ...                                 
  KW53;                               
  KW      Like(KW01)  Dim(53)   Pos(1);  
End-Ds;