It will not require a license to run/test it by anybody.

The web application will be open source itself and can be built(if required) with trial commercial third-party components.

REST ObjectScript - is open source by default.

Happy New Year, Robert!

since my IRIS does not allow the 'public' word, I had to refactor the code this way:

Method jsn(jsn As%String = "")
{
    if$e(jsn)="{" {
        do..ZPretty(jsn)
    } else {
        write"<UNDEFINED>"
    }
    quit
}

Method ZPretty(input As%String = "") As%String
{
    if$e(input)="{" {
        do##class(%JSON.Formatter).%New().Format(input)
    } else {
        write"<UNDEFINED>"
    }
    quit""
}

/// list of prepared tests	
Method Menu(ByRef go As%Boolean = 1)
{
	read !,"Populate Person by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Person","Populate",pop)
	read !,"Populate Company by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Company","Populate",pop)
	read !,"Populate Employee by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Employee","Populate",pop),!
	read !,"Show Person by ID:",pop,!
    if pop do..jsn(..iris.ClassMethodValue("ONAPI.Person","JSON",pop)) 
	read !,"Show Company by ID:",pop,!
    if pop do..jsn(..iris.ClassMethodValue("ONAPI.Company","JSON",pop))
	read !,"Show Employee by ID:",pop,!    
    if pop do..jsn(..iris.ClassMethodValue("ONAPI.Employee","JSON",pop))
    read !,"Show Global PersonD by ID:",pop,!
    if$l(pop) {
	    setd=..iris.IsDefined("ONAPI.PersonD",$s(pop:pop,1:""))
	    write ?5,"$Data()=",d,!
	    ifd#10 {
		    set Value=..iris.Get("ONAPI.PersonD",pop)
		    write ?5zwrite Value  
    		}
		}
	read"Index list for Person & Employee (n,y):",pop,! 		
	if$l(pop),"Yy"[$e(pop) {
		set idx=""for  { 
			set idx=..iris.GetNext(1,,,"ONAPI.PersonI",idx)
			if$l(idx) write ?5,idx,!
			elsequit	
			} 
		}
	read"Exit Demo (n,y,*):",pop,!		
	if$l(pop),"*Yy"[$e(pop) set go=0quit
}