home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / snma / arexx / seegb.rexx < prev    next >
OS/2 REXX Batch file  |  1977-12-31  |  371b  |  23 lines
  1. /*
  2.     seegb.rexx
  3.     Display all global include files
  4. */
  5.  
  6. if arg() ~= 0 THEN  DO
  7.     say 'Usage: rx seegb.rexx'
  8.     exit    5
  9.     end
  10. arg cmd
  11. address SNMA
  12. seegb stem inc
  13. if inc.count > 0 then do
  14.     say 'SNMA has the following ('inc.count') include files in global table:'
  15.     do i=0 to inc.count-1
  16.     say inc.i
  17.     end
  18.     end
  19. else    say 'SNMA has no global includes.'
  20. exit
  21.  
  22.  
  23.