SET EMPTYMEMBERSETS ON;
SET CACHE HIGH;
SET LOCKBLOCK HIGH;
SET AGGMISSG ON;
/*******Copy Data from Actuals to Forecast*********/
FIX (USD,Base,USR,Un_LOC,UI,Un_Customer,&FcstYr1 /*make this FcstYr NOT CurrYr*/,
Load,
@relative("6000",0),
@relative("6500",0),
@relative("6600",0),
@relative("6700",0),
@relative("7000",0),
@relative("8000",0),
@relative("9000",0),
@relative("TD",0), @relative("TS",0),
"Apr":&Last_ClosedMonth)
DATACOPY "Actual" TO &CurrScenario /* this is important to change for the
Budget, prepare to scripts with &CurrBudget*/;
ENDFIX;
/********************Copy FcstYr1 assumptions to other
FcstYrs************************/
FIX
(USD,Base,USR,Un_LOC,UI,Un_Customer,
@relative("6000",0),
@relative("6500",0),
@relative("6600",0),
@relative("6700",0),
@relative("7000",0),
@relative("8000",0),
@relative("9000",0),
@relative("TD",0), @relative("TS",0),
"No Period","Expense Trend", "Adj_Pct")
DATACOPY &FcstYr1 TO &FcstYr2;
DATACOPY &FcstYr1 TO &FcstYr3;
DATACOPY &FcstYr1 TO &FcstYr4;
ENDFIX;
/**************OPEX Forecast***************/
SET EMPTYMEMBERSETS ON;
SET CACHE HIGH;
SET LOCKBLOCK HIGH;
SET AGGMISSG ON;
/* Drive the trend values
10 - Six Months Average
20 - Twelve Months Average
30 - Current Year Annualized
40 - Manual Input
*/
FIX
(USD,Base,USR,Un_LOC,UI,Un_Customer,&CurrYr,&FcstYr1,&FcstYr2,&FcstYr3,&FcstYr4,
@relative("6000",0),
@relative("6500",0),
@relative("6600",0),
@relative("6700",0),
@relative("7000",0),
@relative("8000",0),
@relative("9000",0),
@relative("TD",0), @relative("TS",0),
@relative("YearTotal",0)
/* this is important for the 6/12 month avg @relative("YearTotal",0) */
"Load"
(
IF ("No Period"->"Expense Trend" == 10 AND @ISMBR(@XRANGE( &CurrYr-
>&FirstMonthRF, FY27->"Mar")))
"Load" =
@SumRange("Actual"->"Load",@XRANGE(&Start6MoAvg
,@CURRMBR("Years")->&Last_ClosedMonth))/6
* (1 + "No Period"->"Adj_Pct");
ELSEIF ("No Period"->"Expense Trend" == 20 AND @ISMBR(@XRANGE( &CurrYr-
>&FirstMonthRF, FY27->"Mar")))
"Load" =
@SumRange("Actual"->"Load",@XRANGE(&Start12MoAvg
,@CURRMBR("Years")->&Last_ClosedMonth))/12
* (1 + "No Period"->"Adj_Pct");
ELSEIF ("No Period"->"Expense Trend" == 30 AND @ISMBR(@XRANGE( &CurrYr-
>&FirstMonthRF, FY27->"Mar")))
"Load" = (@SumRange("Actual"->"Load",@XRANGE(&CurrYr-
>Apr,@CURRMBR("Years")->&Last_ClosedMonth))/ &NumbOfMonthsClosed) * (1 + "No
Period"->"Adj_Pct");
ELSEIF ("No Period"->"Expense Trend" == 40 AND @ISMBR(@XRANGE( &CurrYr-
>&FirstMonthRF, FY27->"Mar")))
"No Period"->"Adj_Pct" = #missing;
ENDIF)
ENDFIX;