home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pc3270sa.zip / srpsmp / algabase.exc next >
Text File  |  2002-02-28  |  389b  |  24 lines
  1. /***     ***/
  2.  
  3. 'QUERY CMSLEVEL ( STACK LIFO'
  4.  
  5.  
  6.  
  7.  
  8. parse UPPER pull ostype p2 relnum rest
  9.   SAY 'OSTYPE IS ' ostype say 'relnum is 'relnum
  10.  
  11.  
  12.  
  13. if ( ostype='VM/XA' & relnum>='5.6,' )
  14.    then 'GLOBAL MACLIB DMSGPI'
  15.    else do
  16.        'GLOBAL TXTLIB CMSLIB      '
  17.        'GLOBAL MACLIB   DMSGPI '
  18.    end
  19. 'ASSEMBLE IBMABASE'
  20. 'LOAD IBMABASE (RLDSAVE'
  21. 'GENMOD IBMABASE'
  22.  
  23. exit
  24.