RE: SQLRPG - prepare, declare, no cursor

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

Here's an example program. Just replace my select statement with one of
your choosing.  Sorry if formatting is messed up, code.midrange.com is
not working for me.

     D SQLSTMT         s            256A   varying

     D RCCOUNT         S              9P 0

 

     C                   EVAL      SqlStmt ='Select Count(*) from
RimIPRpf -    
     C                                       Where IPRS <>3 and
IPUPC=4011'      
     C

 

     C/EXEC SQL

     C+ Prepare SQLST2 FRom :SQLSTMT

     C/END-EXEC

 

     C/EXEC SQL

     C+ DECLARE SQLCSR2 SCROLL CURSOR FOR SQLST2

     C/END-EXEC

 

     C/EXEC SQL

     C+ OPEN SQLCSR2

     C/END-EXEC

 

     C                   CLEAR                   RCCOUNT

     C/EXEC SQL

     C+ FETCH NEXT FROM SQLCSR2 INTO :RCCOUNT

     C/END-EXEC


     C     RCCOUNT       DSPLY                                   
                                                                 
     C                   EVAL      *INLR = *ON                   
     C                   RETURN                                  
 

Thanks, Matt