/*
--
Execution
exec
CFDW2_RDL_ERIDL_CFS_VWS.mPeriodTest(201112,12);
*/
replace macro
CFDW2_RDL_ERIDL_CFS_VWS.mPeriodTest
(
prmPeriodID
INTEGER
,
prmAdd BYTEINT
)
as
(
-- Calculations
--declare
prmPeriodID INTEGER DEFAULT 201112;
--set prmPeriodID =
( ( ( :prmPeriodYear - 1 ) * 100 ) + 12 );
select
:prmPeriodID
as PeriodID
,
:prmAdd as Adder
;
);
No comments:
Post a Comment