LPARAMETER cTrantype, nAcctID, nAmount >LOCAL ok >DO CASE >CASE cTrantype = 'WITHDRAW' > DO Withdraw with nAcctID, nAmount, ok >CASE cTrantype = 'DEPOSIT' > DO Deposit with nAcctID, nAmount, ok >CASE cTrantype = 'OPEN' > DO OpenAcct with nAcctID, nAmount, ok >CASE cTrantype = 'CLOSE' > DO CloseAcct with nAcctID, nAmount, ok >ENDCASE >RETURN m.ok >David;
Embezzle fundsI want to model this after the Banking/Savings Industry of the United States. :)