Figure 4: Using EVAL-CORR

D DS1             DS                  Qualified         
D   Account                      5  0 Inz(12345)        
D   Name                        10    Inz('Kay Elmnop') 
D   Xfactor                      5U 0 Inz(65535)        
D   Ytdsales                    15  2 Inz(67890.12)     
D   Lastdate                      D   Inz(D'2006-01-01')
D   Creditok                      N   Inz('1')          
                                                        
D DS2             DS                  Qualified         
D   Account                      5U 0                   
D   Department                   3                      
D   Xfactor                      3                      
D   Lastdate                      D                     
D   Name                        15                      
D   Creditok                     1 

  Eval-corr DS2 = DS1;
                       // DS2.Account = 12345
                       // DS2.Department = (Unaffected)
                       // DS2.Xfactor = (Unaffected)
                       // DS2.Lastdate = D'2006-01-01'
                       // DS2.Name = 'Kay Elmnop     '
                       // DS2.Creditok = '1'