home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / CHIPinte022000.iso / office51 / os2 / misc / java / jre117 / JAVAINUF.EXE / chgpath.cmd < prev    next >
Encoding:
Text File  |  1998-09-01  |  864 b   |  29 lines
  1. /* rexx */
  2.  
  3. /* Load external FI API
  4. */
  5.  
  6. call RxFuncAdd 'RexxInstSetVariable', 'WPINSTAL', 'RexxInstSetVariable'
  7. /* Get the objectid (feature handle), and the current package from the arguments
  8. */
  9. parse arg objectid userexitpath
  10.  
  11. nlv=right(userexitpath,2)
  12.  
  13. /* change the NLVdest variable to be the corresponding language */
  14. call RexxInstSetVariable objectid,"Java11","NLVDest",nlv
  15.  
  16. /* Set package path and TD files path to {userExitpath}\..\package
  17.    If nlv == "JP", set TD package path to {UserExitPath}\td
  18. */
  19. call RexxInstSetVariable objectid,"Java11", "Package", "..\package"
  20. call RexxInstSetVariable objectid,"Java11", "MPath", ".."
  21.  
  22. if (nlv == "JP" | nlv == "jp") then do
  23.     call RexxInstSetVariable objectid,"Java11", "TDPath", "td"
  24.     end
  25. else do
  26.     call RexxInstSetVariable objectid,"Java11", "TDPath", "..\package"
  27.     end
  28.  
  29.