Been having fun with SQL and RPGLE this afternoon… the question was “how do I find out if and how many Policy numbers exist in one of the Policy files at any given time?”
So, this meant using a variable file name in the RPG code, with a variable policy number. Took some playing around but found a solution that worked great and it looks like this:
wSelectStatmnt = 'Select Count(*) ' + 'From ' + %Trim(wInpFileName) + cBlank + ' Where LsPol# = ' + cSqlQuote + %Trim(IwPol#) + cSqlQuote; exec sql prepare stmt from :wSelectStatmnt ; exec sql declare C1 cursor with return to client for stmt; exec sql open C1; exec sql fetch C1 into :wNumClaims ; Dsply wNumClaims; exec sql Close C1; /end-free
IBM i Software Developer, Digital Dad, AS400 Anarchist, RPG Modernizer, Alpha Nerd and Passionate Eater of Cheese and Biscuits. Nick Litten Dot Com is a mixture of blog posts that can be sometimes serious, frequently playful and probably down-right pointless all in the space of a day. Enjoy your stay, feel free to comment and in the words of the most interesting man in the world: Stay thirsty my friend.
How to rename IFS Files
Going the (Levenshtein) Distance in RPG Free
Don’t hardcode library names in your TURNOVER SQL source #youbigsilly
How to Install IBM Access Client Solutions (ACS)
5733XJ1 IBM i Access Client Solutions – QuickStartGuide
Install LANSA AXES – Automatic Web Interface for IBM i (AS/400) 5250 Applications
IFS File system error occurred. Error number 3021?
IBM i Data Obfuscation – Making Data Foggy Murky and Squinty
How to copy IBM i IFS folder