;---&sql(select GREATEST(2,3.6,5,-4) into :max)
   ;--- ** SQL PUBLIC Variables: %ROWCOUNT, %ROWID, %msg, SQLCODE, max
 Do %0Ao
 q
%0AmBx1 s %mmmsqld(6)=$s(1]]%mmmsqld(6):1,1:"")
 q
%0Ao 
 n %mmmsqlc,%mmmsqld,%mmmsqlE,%mmmsqll,%mmmsqln,%mmmsqlp,%mmmsqlR,%mmmsqls,%mmmsqlt,%mmmsqlZ,%mmmsqlEOO s $zt="%0Aerr" d:$zu(115,15) $system.ECP.Sync()
 s %mmmsqld(1)=2,%mmmsqld(1)=$s($isvalidnum(%mmmsqld(1)):+%mmmsqld(1),1:%mmmsqld(1)),%mmmsqld(2)=3.6,%mmmsqld(2)=$s($isvalidnum(%mmmsqld(2)):+%mmmsqld(2),1:%mmmsqld(2)),%mmmsqld(3)=5,%mmmsqld(3)=$s($isvalidnum(%mmmsqld(3)):+%mmmsqld(3),1:%mmmsqld(3)),%mmmsqld(4)=-4,%mmmsqld(4)=$s($isvalidnum(%mmmsqld(4)):+%mmmsqld(4),1:%mmmsqld(4))
 s %mmmsqld(5)=$S($zu(115,12)=-1:0,$zu(115,12)>0:$zu(115,12),1:$zu(35,4))
 if %mmmsqld(5)>1 { 
      new StatsParams set StatsParams=4, StatsParams(1)=2, StatsParams(2)=3.6, StatsParams(3)=5, StatsParams(4)=-4
      do ##class(%SYS.PTools.SQLStats).Init("USER",$zn,"A",.StatsParams)
  }
 s SQLCODE=100
 s max=$$GREATEST^%qarfunc(%mmmsqld(1),%mmmsqld(2),%mmmsqld(3),%mmmsqld(4))
 ; asl MOD# 2
 d:%mmmsqld(5)=3 ##class(%SYS.PTools.SQLStats).Start("USER",$zn,"A",2)
 s %mmmsqld(6)=""
%0AmBk1 d %0AmBx1
 i %mmmsqld(6)="" g %0AmBdun
 d:%mmmsqld(5)=3 ##class(%SYS.PTools.SQLStats).Stop("USER",$zn,"A","2,1")
 s SQLCODE=0 g %0Ac
 g %0AmBk1
%0AmBdun d:%mmmsqld(5)=3 ##class(%SYS.PTools.SQLStats).Stop("USER",$zn,"A",2)
%0AmAdun 
%0Ac s %ROWCOUNT='SQLCODE
 d:$g(%mmmsqld(5))>1 ##class(%SYS.PTools.SQLStats).Report("USER",$zn,"A",%ROWCOUNT)
 q
%0Aerr s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg)
 g %0Ac