19 lines
499 B
Text
19 lines
499 B
Text
|
#PACKAGE custom
|
||
|
|
#ACCEPT Date = 04/03/2021;
|
||
|
|
#OPTION ResultClass ON
|
||
|
|
|
||
|
|
public Number SumMethod() {
|
||
|
|
// this is a comment
|
||
|
|
type public Number x
|
||
|
|
set x = 10.0
|
||
|
|
type String thisIsAString = "this"_x_"conjoined"
|
||
|
|
type String i = ""
|
||
|
|
type Date sysDate = %SystemDate
|
||
|
|
type Boolean publicVar = .PubBoolean
|
||
|
|
for set i = ^UTBL("test",i).order() quit:i.isNull() {
|
||
|
|
set x = x + i
|
||
|
|
}
|
||
|
|
set x = x + $$getMore^ProcedureName("AAA")
|
||
|
|
do finishTask(x, "AAA")
|
||
|
|
|
||
|
|
quit
|