First pure SQL program not running.

Hello,
I am writing new from scratch SQL program. I have created the source as SQLRPGLE and written the non EXEC SQL sections in free form. This program builds a cursor on a logical file that is attached to a MAPICS file to read the entire file and update another with the results from the first cursor.
It has compiled cleanly with the create sql program.
However when I do a call program it starts and just sits there I have changed the program to declare the cursor and then set *INLR to on and do a return but still the program just sits there I have let get to 1.1 on the CPU in wrkactjob and then killed it. This really has me stumped.
Here is what I am talking about:
//********************************************************************
// Calculate UPC (SCC-14) check digit.
//*******************************************************************
/Free
BEGSR UPC5Main;
/END-FREE
C/EXEC SQL
C+ Declare @C1 CURSOR for SELECT B2OEMN FROM CMALIB/MBB2CP99
C/END-EXEC
/Free
*INLR = *ON;
RETURN;
/END-FREE


Thanks in advance for any help you can supply


Bob Anderson

IT Manager
Kent Sporting Goods Inc.
433 Park Ave. S
New London OH 44851
419-929-7021 x315
ï Please consider the environment before printing this e-mail.