home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxbas223.zip / CREATE.CMD < prev    next >
OS/2 REXX Batch file  |  1995-01-13  |  1KB  |  54 lines
  1. /* rexx */
  2.  
  3. numeric digits(20)
  4. signal on syntax
  5.  
  6. say rxfuncadd(rexxbase_init,"REXXBASE",Rexxbase_Init);
  7. say rexxbase_init()
  8. /*  create dbf  */
  9.     dbfname="base.dbf"
  10.     dbfname.fieldcount = 5
  11.     dbfname.fieldname.1 = "Char"
  12.     dbfname.char.type = 'C'
  13.     dbfname.char.length = 32
  14.     dbfname.fieldname.2 = "Num"
  15.     dbfname.Num.type = 'N'
  16.     dbfname.Num.length = '1.0'
  17.     dbfname.fieldname.3 = "Truth"
  18.     dbfname.truth.type = 'L'
  19.     dbfname.fieldname.4 = "Dat"
  20.     dbfname.Dat.type = 'D'
  21.     dbfname.fieldname.5 = "Float"
  22.     dbfname.float.type = 'N'
  23.     dbfname.float.length = 8.6
  24.  
  25.     retc=rexxbase_createdbf('dbfname').
  26.  
  27.     say rexxbase_closedbf('dbfname') 
  28.     dbfname="base.dbf"
  29.     ret1=rexxbase_opendbf('dbfname')
  30.     do dbfname.num = 1 to 12
  31.         dbfname.char = copies('x',dbfname.num)
  32.         dbfname.Dat=date(USA)
  33.         dbfname.float=1.1 / dbfname.num
  34.         dbfname.truth = 'F'
  35.         ret=rexxbase_writedbf('dbfname')
  36.         if ret="" then msg=OK
  37.         else do 
  38.               say msg
  39.               leave
  40.            end
  41.     end
  42.     say msg
  43.     say rexxbase_closedbf('dbfname').
  44.  
  45. return
  46.  
  47.  
  48. syntax:
  49.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  50.   say errormsg
  51.   say  sourceline(sigl)
  52. exit
  53.  
  54.