home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / maprog.zip / wpslist.cmd < prev   
OS/2 REXX Batch file  |  1998-10-01  |  298b  |  20 lines
  1. /* 
  2.  * list WPS Classes
  3.  */
  4.  
  5. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. CALL SysLoadFuncs
  7.  
  8. CALL SysQueryClassList 'list'
  9.  
  10. SAY list.0 'WPS Classes'
  11.  
  12. IF list.0 = 0 THEN DO
  13.     SAY 'No WPS Classes'
  14.     EXIT
  15. END
  16.  
  17. DO i = 1 TO list.0
  18.     SAY 'Class ' i '['list.i']'
  19. END
  20.