how to convert subr21 in a S36 rpg program