The following code sample is the class you create by following the cheat sheet titled: Create an Atelier class.
/// A demo of Atelier.
Class Atelier.Demo extends %Persistent {
Property myprop As %String [InitialExpression = "Initial text" ] ;
ClassMethod MyMethod() as %Status {
set %zA=12
set %zB=13
set demo = ..%New()
do demo.Greeting()
set demo.myprop="I am a property!"
write !,demo.myprop
quit $$$OK
}
Method Greeting() {
set message = "Hello, world!"
write message,!
write "And now... ", message
}
}
The following code sample is the routine you create by following the cheat sheet titled: Create an Atelier routine.
ROUTINE DemoPack.DemoRoutine
set message = "Hello, world!"
write message,!
write "And now... ", message