Ändere den SourceCode wie folgt ab und es sollte funktionieren:

Code:
D B1PRGR          DS                 
D  B1PRGR01                      1A  
D  B1PRGR02                      1A  
D  B1PRGR03                      1A  
D  B1PRGR04                      1A  
D  B1PRGR05                      1A  
D  B1PRGR06                      1A  
D  B1PRGR07                      1A  
D  B1PRGR08                      1A  
D  B1PRGR09                      1A  
D  B1PRGR10                      1A  
D  B1PRGR11                      1A  
D  B1PRGR12                      1A  
D  B1PRGR13                      1A  
D  B1PRGR14                      1A  
D  B1PRGR15                      1A  
D  B1PRGR16                      1A  
D  B1PRGR17                      1A  
D  B1PRGR18                      1A  
D  B1PRGR19                      1A  
D  B1PRGR20                      1A
D  B1FG                          1A      Dim(20) Overlay(B1PRGR)
....

C********     Eval      B1PRGR = B1PRGRD 
C             Eval      B1FG = B1PRGRD
Birgitta