home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxbas223.zip / RXIXREAD.CMD < prev    next >
OS/2 REXX Batch file  |  1995-12-10  |  729b  |  37 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.           k = "say noname.fieldname.j "
  16.           k = k || " is  noname." || noname.fieldname.j
  17.           interpret k
  18.   end /* do */
  19.  
  20.  
  21. r = rexxbase_readdbf("noname")
  22. c = c + 1
  23. end
  24. say r  ' @ '  c
  25.  
  26. say rexxbase_closedbf("noname")
  27.  
  28. return
  29.  
  30.  
  31. syntax:
  32.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  33.   say errormsg
  34.   say  sourceline(sigl)
  35. exit
  36.  
  37.