home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxusmp.zip / tests2s.cmd < prev    next >
OS/2 REXX Batch file  |  1993-10-21  |  741b  |  44 lines
  1. /* rexx */
  2.  
  3. /* Access a structure contained in shared memory */
  4.  
  5. if rxfuncquery('rxstructmap') then
  6.   do
  7.   call rxfuncadd 'yinit','ydbautil','rxydbautilinit'
  8.   call yinit
  9.   end
  10.  
  11. arg memname .
  12.  
  13. call rxgetnamedsharedmem 'ptr',memname,'w'
  14.  
  15. s.0=5
  16. s.p=1
  17. s.1.t='L'  /* unsigned long */
  18. s.2.t='c'  /* character array (35 bytes) */
  19. s.2.l=35
  20. s.3.t='s'  /* signed short */
  21. s.4.t='d'  /* double */
  22. s.5.t='c'  /* character array (10 bytes) */
  23. s.5.l=10
  24.  
  25. map = rxstructmap('s.')
  26.  
  27. call rxstruct2stem 'm.',ptr,map
  28.  
  29. call rxvlist 'm.'
  30.  
  31. q.1 = 365
  32. q.2 = left('my string',35,'00'x)
  33. q.3 = -12
  34. q.4 = 3.1415926
  35. q.5 = left('more data',10,'00'x)
  36.  
  37. call rxstem2struct 'q.',ptr,map
  38. '@pause'
  39.  
  40. call rxfreemem ptr
  41. '@pause'
  42.  
  43. exit
  44.