PGM                                                                
             DCL        VAR(&N) TYPE(*INT) LEN(4)                               
             DCL        VAR(&COUNT) TYPE(*DEC) LEN(4 0) VALUE(0)                
             DCL        VAR(&FLD4) TYPE(*CHAR) LEN(4)                           
                                                                                
             DOUNTIL    COND(&COUNT = 4)                                        
             CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)                           
             ENDDO                                                              
             CHGVAR     VAR(&FLD4) VALUE(&COUNT)                                
             SNDPGMMSG  MSG('COUNT=' *CAT &FLD4) MSGTYPE(*DIAG)                 
             ENDPGM