*SELECT(%Y%, "YEAR", "TIME", "[ID] = '%YEAR%'")
*SELECT(%H%,"[ID]",HR_ACCOUNT,"[ID]<>Shift,Education_Assist")
*XDIM_MEMBERSET HR_ACCOUNT=%H%
*XDIM_MEMBERSET ENTITY AS %ENTITYLIST%=BAS(1000)
*XDIM_MEMBERSET BUDGET_VER = Final
*WHEN CURR
*IS AED
*WHEN TIME
*IS *
*WHEN ENTITY
*IS 1000_I
*WHEN DATASOURCE
*IS Pay_Plan_New
*WHEN CATEGORY
*IS Forecast
*FOR %E%=%ENTITYLIST%
*REC(EXPRESSION=%VALUE%,CATEGORY=Forecast,ENTITY=%E%,DATASOURCE=Pay_Plan_New)
*REC(EXPRESSION=%VALUE%,CATEGORY=Forecast,ENTITY=%E%,DATASOURCE=Pay_Plan_Retired)
*FOR %M%=03,06,09,12
*REC(EXPRESSION=%VALUE%,CATEGORY=Budget,TIME=TMVL(13,%Y%.%M%),ENTITY=%E%,DATASOURCE=Pay_Plan_New)
*REC(EXPRESSION=%VALUE%,CATEGORY=Budget,TIME=TMVL(13,%Y%.%M%),ENTITY=%E%,DATASOURCE=Pay_Plan_Retired)
*NEXT
*NEXT
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN