home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxbas223.zip / RX.CMD < prev    next >
OS/2 REXX Batch file  |  1994-04-15  |  925b  |  39 lines
  1. /* rexx */
  2.  
  3. signal on syntax
  4. parse arg noname
  5. say rxfuncadd(rexxbase_init,"REXXBASE",Rexxbase_Init);
  6. say rexxbase_init()
  7. say rexxbase_opendbf("noname")
  8.  
  9.  
  10. do i = 1 to noname.fieldcount
  11. k = "say noname.fieldname.i "
  12. k = k || " noname."noname.fieldname.i".type"
  13. k = k || " noname."noname.fieldname.i".length"
  14. interpret k
  15. end /* do */
  16.  
  17. say noname
  18. do i = 1 to  noname.recordcount
  19.    say record i  noname.recordstatus
  20.    say reading is rexxbase_readdbf("noname")
  21.    do j = 1 to noname.fieldcount
  22.           k =  "t = noname."noname.fieldname.j".type"
  23.                   k = "say noname.fieldname.j "
  24.                   k = k || " is  noname." || noname.fieldname.j
  25.                  interpret k
  26.   end /* do */
  27. end /* do */
  28.  
  29. say rexxbase_closedbf("noname")
  30. say 'exitting'
  31. exit
  32.  
  33.  
  34. syntax:
  35.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  36.   say errormsg
  37.   say  sourceline(sigl)
  38. exit
  39.