(let* (
(nav-date (dictionary-ref (first (file->entity "NAVajo/funds.tbn")) "navpsdate"))
(compound-date (dictionary-ref (first (file->entity "NAVajo/funds.tbn")) "returndate"))
(moneymarket (first (file->entity "NAVajo/mm.tbn")))
(clean (lambda (value) (if (== value "n/a") "--" value)))
(fund-index
(matrix->index (file->entity "NAVajo/NAVajoLookup.tbn") "FUNDNUMBER"))
;(foo
; (begin
; (system-out-println fund-index)
; 'foo))
(make-rows (lambda (fundType fundCategory)
(let* (
(write-select
(macro (aCollection aSelectFunc aWriteFunc)
`(inject-into
,aCollection
"" ; seed
(lambda (seed element)
(if (,aSelectFunc element)
(+
seed
(,aWriteFunc element))
seed))))))
(write-select
(file->entity "NAVajo/funds.tbn") ; collection to write-select over
(lambda (fund) ; selection function
(let* (
(raw-fund-number (dictionary-ref fund "fundnumber"))
(clean-fund-number
(if (null? raw-fund-number)
""
raw-fund-number))
(lookup (dictionary-ref fund-index clean-fund-number)))
(and
(false? (null? lookup))
(== (dictionary-ref lookup "CATEGORY") fundCategory)
(== (dictionary-ref lookup "TYPE") fundType))))
(lambda (fund) ; write function
(let* (
(raw-fund-number (dictionary-ref fund "fundnumber"))
(clean-fund-number
(if (null? raw-fund-number)
""
raw-fund-number))
(lookup (dictionary-ref fund-index clean-fund-number)))
(if (null? lookup)
""
| (dictionary-ref lookup "ENGLISH") |
(clean (dictionary-ref fund "oneyearreturn")) |
(clean (dictionary-ref fund "twoyearreturn")) |
(clean (dictionary-ref fund "threeyearreturn")) |
(clean (dictionary-ref fund "fiveyearreturn")) |
(dictionary-ref fund "navps") |
(clean (dictionary-ref fund "change")) |
)))))))
(canadian
Canadian Equity & Balanced Funds
100% RRSP-Eligible
)
(bond100
Bond Funds
100% RRSP-Eligible
)
(bond20
Bond Funds
20% RRSP-Eligible
)
(mm Money Market 100% RRSP-Eligible)
(multiadviser
Multi-Adviser International Equity Funds
20% RRSP-Eligible
)
(diversified
Diversified International Funds
100% RRSP-Eligible
)
(nrow (lambda (text colour colspan)
| colspan ALIGN=LEFT BGCOLOR=#colour>text |
))
(fullrow (lambda (text colour)
(nrow text colour "7")))
(fundheader
| |
Compound Total Returns % to compound-date
|
CDN$ as at nav-date |
| 1 yr | 2 yr | 3 yr | 5 yr |
Net Asset
Value | Daily
Change |
))
Global Strategy Daily Fund Prices (Demo)
HOME ) WELCOME | COMMUNIQUE | NEWS AND INSIGHTS | PUBLICATIONS | ADVISERS
|
(+
(fullrow canadian "E1BFBF")
fundheader
(make-rows "EquityBalanced" "Canadian")
(fullrow bond100 "BFC5DA")
fundheader
(make-rows "Fixed" "Canadian")
(make-rows "Fixed" "Diversified")
(fullrow bond20 "BFC5DA")
fundheader
(make-rows "Fixed" "International")
)
(nrow
Money Market Fund
100% RRSP-Eligible
"BFC5DA"
"4")
|
Money Market yields % to (dictionary-ref moneymarket "yielddate")
|
|
|
Current
Yield (%) |
Effective
Yield (%) |
Net Asset
Value |
| Money Market |
(dictionary-ref moneymarket "currentyield") |
(dictionary-ref moneymarket "effectiveyield") |
(dictionary-ref moneymarket "navps") |
(+
(fullrow multiadviser "CADBCD")
fundheader
(make-rows "EquityBalanced" "International")
(fullrow diversified "CAC1DD")
fundheader
(make-rows "EquityBalanced" "Diversified")
)
|
All the returns and net asset values reported here are
for Class A units where more than one class of any given Global Strategy
mutual fund exists.
The indicated rates of return are the historical compounded annual
total returns (except for 1-month, 3-month, 6-month and 1-year figures,
which are simple total returns) including changes in unit value and
reinvestment of all distributions, and do not take into account sales,
redemption, distribution or optional charges payable by any unitholder,
which would have reduced returns. Annualized historical yield is for
the seven-day period ended on month's end, annualized in the case of
effective yield by compounding the seven-day return.
Past returns are not necessarily indicative of future returns.
Investment return, yield and unit value will fluctuate. Mutual funds are
not CDIC-insured. This information is not, and should not be construed as,
investment advice to any party. Investment advice should be obtained from
a broker or dealer.
)