package server;

// service
service CallRpgService


function hello (name string inout)
{
	@IBMiProgram {
	  programName = "MYRPG",  
	  libraryName = "/QSYS.LIB/BWEEKS.LIB/",
	  parameterAnnotations = [ @AS400Text { length = 40}
	  	],
	  	connectionResourceBindingURI = "binding:MyConnection"
	}

}
end
	
end

package client;

// RUI Handler

import org.eclipse.edt.rui.widgets.GridLayout;
import org.eclipse.edt.rui.widgets.TextLabel;
import org.eclipse.edt.rui.widgets.GridLayoutData;
import org.eclipse.edt.rui.widgets.TextField;
import org.eclipse.edt.rui.widgets.Button;
import server.*;

//
//

handler CallRPGClient type RUIhandler{initialUI =[ui
            ], onConstructionFunction = start, cssFile = "css/MyIBM2.css", title = ""}

    ui GridLayout{columns = 3, rows = 4, cellPadding = 4, children = [ varButton2, varErrorLabel, varButton, varNameField, varNameLabel ]};
    varNameLabel TextLabel{ layoutData = new GridLayoutData{ row = 1, column = 1 }, text = "Name" };
    varNameField TextField{ layoutData = new GridLayoutData{ row = 1, column = 2 }};
    varButton Button{ layoutData = new GridLayoutData{ row = 3, column = 2 }, text = "Go!", onClick ::= varButton_onClick };
    varErrorLabel TextLabel{ layoutData = new GridLayoutData{ row = 4, column = 2 }, text = " " };
    varButton2 Button{ layoutData = new GridLayoutData{ row = 3, column = 3 }, text = "Clear", onClick ::= varButton2_onClick };

    function start()
    end
    
    function varButton_onClick(event Event in)
    	call CallRpgService.hello(varNameField.text)
    		using new HttpProxy
    		returning to myCallbackFunction
    		onException myExceptionHandler;
    end
    
   function myCallbackFunction( name string in)
     varNameField.text = name;
   end
   
   function myExceptionHandler( exp AnyException in);
    varErrorLabel.text = exp.message;
  end
   
   function varButton2_onClick(event Event in)
   	varErrorLabel.text = "";
   	varNameField.text = "";
   end
end

  function myExceptionHandler( exp AnyException in);
    SysLib.writeStdOut(exp.message);
    if(exp isa ServiceInvocationException)
      SysLib.writeStdOut("Detail1:" + (exp as ServiceInvocationException).detail1);
      SysLib.writeStdOut("Detail2:" + (exp as ServiceInvocationException).detail2);
      SysLib.writeStdOut("Detail3:" + (exp as ServiceInvocationException).detail3);
    end
  end

function hello2 (name string inout)
  try
    call hello(name);
  onexception(exp anyexcption)
    SysLib.writeStdOut(exp.message);
  end

end