home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxsql.zip / TEST.CMD < prev   
OS/2 REXX Batch file  |  1993-08-17  |  1KB  |  66 lines
  1. /****************************************************************************
  2.  
  3.     RXSQL TESTING    
  4.  
  5. ****************************************************************************/
  6.  
  7. if rxfuncquery("QUERY") \= 0 then
  8. do
  9.     call rxfuncadd "QUERY", "RXSQL", "RXSQLQUERY";
  10. end
  11.  
  12. /*** set the following variables according to your setup ***/
  13.  
  14. server = "SERVER";
  15. database = "DATABASE";
  16. user = "USER";
  17. password = "PASSWORD";
  18.  
  19. /*** main loop ***/
  20.  
  21. say "SQL access testing";
  22. say;
  23.  
  24. do forever
  25.     com = charout("STDOUT:", "query or quit:");
  26.     com = linein("STDIN:");
  27.  
  28.     parse upper var com com;
  29.  
  30.     if com = "QUIT" then
  31.     do
  32.         leave;
  33.     end
  34.  
  35.     if query(server, database, user, password, com, sql, 20, 20) = "OK" then
  36.     do
  37.         /*** show results ***/
  38.  
  39.         do r = 0 to sql.1.0 - 1
  40.             do c = 1 to sql.2.0
  41.                 rc = charout("STDOUT:", sql.r.c);
  42.                 rc = charout("STDOUT:", "09"x);
  43.             end
  44.         say;
  45.         end
  46.  
  47.         /*** drop variables ***/
  48.  
  49.         do r = 0 to sql.1.0 - 1
  50.             do c = 1 to sql.2.0
  51.                 name = "sql."||r||"."||c;
  52.                 drop (name);
  53.             end
  54.         end
  55.     end
  56.     else
  57.     do
  58.         /*** show error ***/
  59.  
  60.         say sql.0.0;
  61.     end
  62. end
  63.  
  64. call rxfuncdrop("QUERY");
  65.  
  66.