How to substring and cast in select where statement on iSeries with RPG free

Hi. I'm relatively new to free form RPG and I rewrote a program to be RPG free and SQL. I'm having problems with my where clause. I'm trying to substring the second byte on a 2 digit packed field. I've tried to use the CAST statement to convert the packed ...