home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / uncheck.lx < prev    next >
Text File  |  1998-02-24  |  565b  |  24 lines
  1. /* A macro to uncheck all of the menu items whose id's are held in the 
  2.    global variable xxxdddd.menu_ids 
  3.  
  4.    where xxx is the argument to this routine
  5.    and   dddd is the document number. */
  6.  
  7. parse arg qualifier 
  8.  
  9. 'extract docnum into docnum' 
  10. qualifier = strip( qualifier )  
  11.  
  12. 'extract global.' || qualifier || docnum || '.menu_ids into menu_ids' ;
  13.  
  14. i = 1 ;
  15. thisone = word( menu_ids , i ) ;
  16.  
  17. do while ( thisone \= '' ) ;
  18.    'set menucheck.' || thisone 'off' ;
  19.    i = i + 1 ;
  20.    thisone = word( menu_ids , i ) ;
  21. end ; 
  22.  
  23. return ; 
  24.