home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxbase / rxixread.cmd < prev    next >
Encoding:
Text File  |  1994-01-19  |  1.2 KB  |  50 lines
  1. /* rexx */
  2. signal on syntax
  3.  
  4. say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
  5. parse arg noname noix
  6. say rexxbase_init()
  7. say rexxbase_opendbf("noname", noix)
  8. c = 0
  9.  
  10. r = rexxbase_findrecord("noname","-1")
  11. do while(r = '')
  12.    do j = 1 to noname.fieldcount
  13.           k =  "t = noname."noname.fieldname.j".type"
  14.           interpret k
  15.           if t = 'M' then  do
  16.              k = 'say t is noname.'noname.fieldname.j'.0'
  17.              interpret k
  18.              k = "t = noname."noname.fieldname.j".0"
  19.              interpret k
  20.              do l = 1 to t
  21.                   k = "say noname.fieldname.j " l " "
  22.                    k = k || " is  noname." || noname.fieldname.j || ".l"
  23.                   interpret k
  24.            end /* do */
  25.         end
  26.         else do
  27.                   k = "say noname.fieldname.j "
  28.                   k = k || " is  noname." || noname.fieldname.j
  29.                  interpret k
  30.                 end
  31.   end /* do */
  32.  
  33.  
  34. r = rexxbase_readdbf("noname")
  35. c = c + 1
  36. end
  37. say r  ' @ '  c
  38.  
  39. say rexxbase_closedbf("noname")
  40.  
  41. return
  42.  
  43.  
  44. syntax:
  45.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  46.   say errormsg
  47.   say  sourceline(sigl)
  48. exit
  49.  
  50.