code

Name
Astradyne (UK) Ltd
Scriptlanguage
Plain Text
Tabwidth
4
Date
Sun, 12 May 2013 12:17:44 +0000
IP
192.168.0.1

An example showing how to use the SQL PREPARE statement to allow the selection of data from a user defined file within an ILE RPG program.

  1. D SqlStmt        c                  Const('Select FldA,FldB,FldC From ')
  2. D MySqlStmt      s            255a                                       
  3.                                                                          
  4. C* Decide which file to use...                                           
  5. C                  If...                                                 
  6. C                  Eval      MySqlStmt = SqlStmt + 'ALFDEALHP'           
  7. C                  Else                                                 
  8. C                  Eval      MySqlStmt = SqlStmt + 'ALFDEALHC'           
  9. C                  EndIf                                                 
  10.                                                                          
  11. C* Prepare the SQL statement...                                           
  12. C/Exec SQL                                                               
  13. C+ Prepare prpFILE                                                       
  14. C+    From :MySqlStmt                                                     
  15. C/End-Exec                                                               
  16.                                                                          
  17. C* Declare the cursor...                                                 
  18. C/Exec SQL                                                               
  19. C+ Declare csrFILE Cursor                                                 
  20. C+    For prpFILE                                                       
  21. C/End-Exec                               
  22.                                          
  23. C* Open the cursor...                   
  24. C/Exec SQL                               
  25. C+ Open csrFILE                         
  26. C/End-Exec                               
  27.                                          
  28. C* Fetch the record...                   
  29. C/Exec SQL                               
  30. C+ Fetch csrFILE Into :FldA, :FldB, :FldC
  31. C/End-Exec                               
  32.                                          
  33. C* Check for an error...                 
  34. C                  If        SQLCod <> 0
  35. C                  ...                 
  36. C                  ...                 
  37. C                  Else                 
  38. C                  ...                 
  39. C                  ...                 
  40. C                  EndIf
  41.