Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
-* Set reference year -SET &MYYEAR = 2007; -* Get current year and month in numeric format -SET &CURRYEAR = &DATEYY; -SET &CURRMONTH = &DATEM; -* If we are not in the current year, load all months in array, otherwise -* only load array for months that have occurred this year -SET &CURRMONTH = IF &MYYEAR NE &CURRYEAR THEN 12 ELSE &CURRMONTH; -REPEAT :MONTHLOOP FOR &IDX FROM 1 TO &CURRMONTH -SET &MONTH = DECODE &IDX - ( 1 'January' 2 'February' 3 'March' 4 'April' - 5 'May' 6 'June' 7 'July' 8 'August' 9 'September' - 10 'October' 11 'November' 12 'December'); -SET &MONTHARRAY.&IDX = &MONTH; -:MONTHLOOP -* Display the array -REPEAT :PRINTLOOP FOR &IDX FROM 1 TO &CURRMONTH -TYPE IDX(&IDX) : &MONTHARRAY.&IDX -:PRINTLOOP