Re: First pure SQL program not running.

[Luis Rodriguez <luisro58@xxxxxxxxx>]

Bob,

What about your  UPC5Main subroutine? What is it doing? Also, you need to
decide when your cursor is going to be closed. The compilation default
is CLOSQLCSR(*ENDACTGRP ) that is, at the end of your activation group. You
can override your SQL options  in your program, like in this example:

EXEC  SQL
    Set Option Commit = *NONE,
    CloSQLCsr = *ENDMOD,
    DatFmt = *ISO,
    TimFmt = *ISO;

Be sure of declaring them before any other SQL statements.

HTH,

Luis Rodriguez
IBM Certified Systems Expert â eServer i5 iSeries


On Fri, Jun 4, 2010 at 7:59 AM, Bob Anderson
<banderson@xxxxxxxxxxxxxxxxxxx>wrote:

> 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.
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.