home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ddkx86v2.zip / DDKX86 / DBCSDD / SRC_DBCS / SETDBCS.CMD
OS/2 REXX Batch file  |  1995-04-10  |  2KB  |  81 lines
  1. /**************************************************************************
  2.  *
  3.  * SOURCE FILE NAME : SET21.CMD
  4.  *
  5.  * VERSION : V1.0
  6.  *
  7.  * DATE    : 01/12/94
  8.  *
  9.  * DESCRIPTION  This command file sets the environment variables to build
  10.  *              DBCS device driver.
  11.  *
  12.  * Functions
  13.  *
  14.  * CHANGE ACTIVITY =
  15.  *  DATE      FLAG        APAR     CHANGE DESCRIPTION
  16.  *  --------  ----------  -----    --------------------------------------
  17.  *  mm/dd/yy  @Vr.mpppxx  xxxxx    xxxxxxx
  18.  *
  19.  ****************************************************************************/
  20.  
  21. parse upper arg ddkpath .
  22.  
  23. parse source . . command .
  24.  
  25. command = FILESPEC( 'Name', command )
  26.  
  27. i = POS( '.', command )
  28.  
  29.  
  30. if i <> 0 then
  31.  
  32.    command = substr( command, 1, i - 1 )
  33.  
  34.  
  35. if ddkpath = '' then
  36.  
  37.    do
  38.  
  39.       say
  40.       say  command ' <DDK_PATH>'
  41.       say
  42.       say '        Where:'
  43.       say '               DDK_PATH  ==  D:\DDK { DDK is installed on D: }'
  44.       say '        example:'
  45.       say '               'command ' D:\DDK'
  46.  
  47.       exit
  48.  
  49.    end
  50.  
  51.  
  52. if substr( ddkpath, 2, 1 ) <> ':' then
  53.  
  54.    do
  55.  
  56.       say
  57.       say 'Please specify drive name.'
  58.       say
  59.  
  60.    end
  61.  
  62. else
  63.  
  64.    ddkdrv = left( ddkpath, 2 )
  65.  
  66.  
  67. os2path = value( 'PATH', , 'OS2ENVIRONMENT' )
  68.  
  69.  
  70. '@set path='ddkpath'\tools;'os2path
  71. '@set include='ddkpath'\dbcsdd\h_dbcs;'ddkpath'\dbcsdd\h;'ddkpath'\dbcsdd\inc_dbcs;'ddkpath'\dbcsdd\inc;'ddkpath'\dbcsdd\h386;.'
  72. '@set lib='ddkpath'\dbcsdd\lib;'
  73. '@set msgdir='ddkpath'\mri\txt'
  74. '@set tmp='ddkdrv'\'
  75. '@set temp='ddkdrv'\'
  76. '@set rt='ddkpath
  77. '@set prompt=DBCS $i[$p]'
  78. '@set P=932'
  79. '@set C=081'
  80. '@set L=JPN'
  81.