             PGM        PARM(&TXTR &TXTC)                            
                                                                     
             DCL        VAR(&TXTR) TYPE(*CHAR) LEN(50)               
             DCL        VAR(&TXTC) TYPE(*CHAR) LEN(50)               
                                                                     
             RTVOBJD    OBJ(ZTESTL/ZTESTCL) OBJTYPE(*PGM) TEXT(&TXTR)
             CHGPGM     PGM(ZTESTL/ZTESTCL) TEXT(&TXTC)              
                                                                     
             ENDPGM                                                  