home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / MT281.DMS / in.adf / ARexx / testgetattr.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-02-05  |  820 b   |  52 lines
  1. /* This is a dummy script doing nothing meaningfull except for
  2.     demonstration of the GETATTR command
  3.     Hasse Wehner, Mermaid Group
  4. */
  5. options results
  6. trace off
  7. address twist
  8. dbfilename = "TWIST:TestGetAttr2"
  9. open dbfilename
  10. if RC!=0 then
  11. do
  12.     say dbfilename
  13.     CREATEDB dbfilename
  14.     if RC!=0 then exit 1
  15.     CREATEFIELD "Name"
  16.     if RC!=0 then exit 2
  17.     CREATEFIELD "Address"
  18.     if RC!=0 then exit 3
  19.     ENDCREATEDB
  20.     if RC!=0 then exit 4
  21.     open dbfilename
  22. end
  23. if RC~=0 then
  24. do
  25.     say "unable to open " dbfilename
  26.     exit
  27. end
  28.  
  29.  
  30. GETATTR APPLICATION VERSION 
  31. say result
  32.  
  33.  
  34. OPENWINDOW
  35.  
  36. GETATTR WINDOW DIMS STEM DBWINDIM
  37. SAY DBWINDIM.MIN.WIDTH
  38. SAY DBWINDIM.MIN.HEIGHT
  39.  
  40. "GETATTR FIELD ADDRESS"
  41. SAY RESULT
  42.  
  43.  
  44. "GETATTR FIELDS STEM FLDS"
  45. say FLDS.COUNT
  46. do i=0 to FLDS.COUNT-1
  47.     "GETATTR FIELD" FLDS.i "VAR FIELDATTR"
  48.     say FIELDATTR
  49. end
  50. CLOSEWINDOW
  51. CLOSE
  52.