PGM        PARM(&GRPPRM)                                           
             DCL        VAR(&GRPPRM) TYPE(*CHAR) LEN(302)                       
             DCL        VAR(&STR) TYPE(*DEC) LEN(8 0) VALUE(3)                  
             DCL        VAR(&PRMSU) TYPE(*CHAR) LEN(2) /* 2  �i��   */          
             DCL        VAR(&DEC08) TYPE(*DEC) LEN(8 0)                         
             DCL        VAR(&N) TYPE(*DEC) LEN(3 0) VALUE(1)                    
             DCL        VAR(&GRP) TYPE(*CHAR) LEN(10)                           
                                                                                
             CHGVAR     VAR(&PRMSU) VALUE(%SST(&GRPPRM 01 2))                   
             CHGVAR     VAR(&DEC08) VALUE(%BIN(&PRMSU))                         
LOOP:                                                                           
             CHGVAR     VAR(&GRP) VALUE(%SST(&GRPPRM &STR 10))                  
             IF         COND(&N < &DEC08) THEN(DO)                              
             CHGVAR     VAR(&N) VALUE(&N + 1)                                   
             CHGVAR     VAR(&STR) VALUE(&STR + 10)                              
             GOTO       LOOP                                                    
             ENDDO                                                              
             ENDPGM