/**/ Call Rxfuncadd 'SysLoadFuncs','Rexxutil','SysLoadFuncs' Call SysLoadFuncs trace 'n' Parse Value Jvm_find('LVM') With java_exe java_dir class_path lvm_dir lvm_java_dir If java_exe = 'ERROR:' Then Return 1 If Pos('JAVA11',java_dir) <> 0 Then Do Parse Upper Value java_dir With java_home '\BIN' . java_dll = java_home||'\DLL' java_swing = java_home||'\SWING' End Else Do java_dll = java_dir java_swing = java_dir End c_path = lvm_java_dir||'\lvmgui.zip;'||lvm_java_dir c_path = c_path||';'||class_path t_title = Jvm_lang('lvmgui') old_home = Value('java_home',java_home,'os2environment') old_swing = Value('swing_home',java_swing,'os2environment') old_libpath = SysQueryExtLIBPATH('b') Call SysSetExtLIBPATH java_dll||';'||SysQueryExtLIBPATH('b'),'b' old_path = Value('path',java_dir||';'||Value('path',,'os2environment'),'os2environment') old_class = Value('classpath',c_path||';'||Value('classpath',,'os2environment'),'os2environment') save_dir = Directory() Call Directory lvm_java_dir Address cmd '@start' t_title '/c /min' java_exe '-classpath' c_path 'lvmgui > nul' Call Directory save_dir Call Value 'classpath',old_class,'os2environment' Call Value 'path',old_path,'os2environment' Call SysSetExtLIBPATH old_libpath,'b' Call Value 'swing_home',old_swing,'os2environment' Call Value 'java_home',old_home,'os2environment' Return 0