class FMCustService extends SysOperationServiceBase
{
public void
processCustomerData( FMCustContract _contract)
{
CustTable
custTable;
AccountNum
account = _contract.parmCustAccount();
while
select custTable
where
custTable.AccountNum == account
{
Info(strFmt("%1",custTable.AccountNum));
}
}
}
internal final class
FMCustController extends SysOperationServiceController
{
public static void
main(Args _args)
{
FMCustController
custController = new FMCustController(classStr(FMCustService),
methodStr(FMCustService,processCustomerData),SysOperationExecutionMode::Synchronous);
custController.startOperation();
}
///
<summary>
///
///
</summary>
///
<returns></returns>
public ClassDescription
caption()
{
ClassDescription
ret;
ret
= "Customer base operation";
return
ret;
}
}
[DataContractAttribute]
class FMCustContract
{
CustAccount
custAccount;
[DataMemberAttribute(identifierStr(CustAccount)),
SysOperationLabelAttribute(literalStr("Customer
account")) ]
public CustAccount
parmCustAccount(CustAccount _custAccount = CustAccount)
{
custAccount
= _custAccount;
return
custAccount;
}
}