home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / MUIRexx / demos / MUIRexxBuild / callhook_comm.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-27  |  898b  |  36 lines
  1. /* */
  2. options results
  3. parse arg comm' 'aname
  4.  
  5. /* TAG variable definitions */
  6.  
  7. List_Insert_Bottom = -3
  8.  
  9. address BUILD
  10.  
  11. select
  12.     when comm = 'ADD' then do
  13.         parse var aname name','value .
  14.         string ID S4 CONTENT name
  15.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(name) '=' strip(value)
  16.     end
  17.     when comm = 'VADD' then do
  18.         parse var aname name','value .
  19.         string ID S5 CONTENT name
  20.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(name) '=' strip(value)
  21.     end
  22.     when comm = 'IADD' then do
  23.         string ID S6
  24.         if result ~= '' then name = result','aname
  25.         else name = aname
  26.         string ID S6 CONTENT name
  27.     end
  28.     when comm = 'XADD' then do
  29.         string ID S7
  30.         if result ~= '' then name = result','aname
  31.         else name = aname
  32.         string ID S7 CONTENT name
  33.     end
  34.     otherwise nop
  35. end
  36.