How to use % error built in function in rpgle program any code example please?