/* runjava.cmd
   Associate this with .class files to run 
   Java applications directly from the WPS
*/
 
/* Register REXXLIB functions */
call rxfuncadd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
call sysloadfuncs

Parse Arg FileName
N=LastPos("\",FileName)
Path=SubStr(FileName,1,N)
ClassName=SubStr(FileName,N+1)
Parse Var ClassName ClassName "." Extension
rc=Directory(Path)
"java" ClassName
Exit