|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.