/* Generate the date popups */ parse arg fname . /* Pull in the stream, use that date if there is one */ 'CALLPIPE (name datepop) *:| var indate' if (indate = 'INDATE' ) then indate = date('S') 'OUTPUT |*:' mon = substr(indate,5,2) do i = 1 to 12 y = right('00'||i,2) mnth = date('M', y||'/01/01', U) if (y = mon) then 'OUTPUT' ''mnth else 'OUTPUT' ''mnth end /* do i = 1 to 12 */ /* Calc todays day and year */ dy = substr(indate, 7, 2) yr = substr(indate, 1, 4) 'OUTPUT ' 'OUTPUT ' 'OUTPUT '