home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / G2Hx.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  1KB  |  66 lines
  1. /* rexx */
  2. signal on syntax  name error
  3. signal on halt    name error
  4. signal on failure name error
  5. '@echo off'
  6.  
  7. 'cls'
  8. say
  9. say 'G2H  --- Testing REXXGDB2.DLL HTML generic tag creator function'
  10. say '         (G2H)'
  11. say 'Simon Husin (husin@ibm.net)'
  12. say 'Kent, Washington, U.S.A., Nov 1996 - Aug 1997'
  13. say
  14.  
  15. sq6 = "Select firstnme||' '||midinit||' '||lastname from employee where empno = '000130'"
  16. sq8 = "Select firstnme||' '||midinit||' '||lastname from employee where empno = '000140'"
  17.  
  18. htmlfn = 'G22HTML.HTM'
  19. nullchar      = ''
  20. varcharlen    = ''
  21. show_border   = '1'
  22. show_rownum   = '1'
  23. lhow_header   = '1'
  24.  
  25. if rxfuncquery('g2LoadFuncs') then do
  26.    say
  27.    say 'Loading REXXGDB2 Functions...'
  28.    call rxfuncadd 'g2LoadFuncs', 'REXXGDB2', 'g2LoadFuncs'
  29.    say 'Result =' g2LoadFuncs()
  30.    end
  31.  
  32. say
  33. say 'Connecting to SAMPLE database...'
  34. call g2connectshare 'SAMPLE'
  35.  
  36. say
  37. '@del' htmlfn '1>NUL 2>NUL'
  38.  
  39. call time 'R'
  40. call          g2h htmlfn, 1, 'Font change', 'BASEFONT Size=20'
  41. call          g2h htmlfn, 1, 'Very Big', 'h1'
  42. call          g2h htmlfn,  , g2selectone('sq6')
  43. call          g2h htmlfn,  , g2selectone('sq8'), 'h3'
  44. call          g2h htmlfn, 1, '<BR>'
  45. elapse = time('E')
  46.  
  47. '@netscape file:///'htmlfn
  48. /* '@explore -q' htmlfn */
  49.  
  50. say 'Execution time' elapse
  51.  
  52. say
  53. say 'Commiting...'
  54. call g2commit
  55. return 0
  56.  
  57.  
  58.  
  59. error:
  60. say 'Error detected at line' SIGL
  61. return 10
  62.  
  63. syntax:
  64. say 'Syntax error detected at line' SIGL
  65. return 20
  66.