home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxbase / rx.cmd < prev    next >
Encoding:
Text File  |  1994-01-19  |  1.3 KB  |  51 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.           interpret k
  24.           if t = 'M' then  do
  25.              k = "t = noname."noname.fieldname.j".0"
  26.              interpret k
  27.              do l = 1 to t
  28.                   k = "say noname.fieldname.j " l " "
  29.                    k = k || " is  noname." || noname.fieldname.j || ".l"
  30.                   interpret k
  31.            end /* do */
  32.         end
  33.         else do
  34.                   k = "say noname.fieldname.j "
  35.                   k = k || " is  noname." || noname.fieldname.j
  36.                  interpret k
  37.                 end
  38.   end /* do */
  39. end /* do */
  40.  
  41. say rexxbase_closedbf("noname")
  42. say 'exitting'
  43. exit
  44.  
  45.  
  46. syntax:
  47.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  48.   say errormsg
  49.   say  sourceline(sigl)
  50. exit
  51.