Anonymous user
Object serialization: Difference between revisions
m
→{{header|Caché ObjectScript}}
(added Caché ObjectScript) |
|||
Line 454:
<lang cos>Class Serialize.Worker Extends Employee
{
Method HourlyPaySet(pHourlyPay As %Numeric) As %Status [ ServerOnly = 1 ]▼
{▼
Set i%HourlyPay=$Select(pHourlyPay<0: 0, 1: pHourlyPay)▼
Quit $$$OK▼
}▼
Method %OnNew(ByRef pId As %Integer = 0, pDepartment As %String, pName As %String, pHourlyPay As %Numeric) As %Status
Line 472 ⟶ 466:
Write "- Hourly Pay: ", $FNumber(..HourlyPayGet(), ",", 2), !
Quit
▲}
▲Method HourlyPaySet(pHourlyPay As %Numeric) As %Status [ ServerOnly = 1 ]
▲{
▲ Set i%HourlyPay=$Select(pHourlyPay<0: 0, 1: pHourlyPay)
▲ Quit $$$OK
}
|