Re: Convert a date field to a 10,0 packed field

H option(*srcstmt : *nodebugio )

H DATFMT(*USA)





d wCount s 5i 0

d wCurrent_Date s d

d wCur_Date_From s 10p 0

d wCur_Date_To s 10p 0



Exec Sql set option naming = *sys,

commit = *NONE,

usrprf = *USER,

dynusrprf = *USER,

datfmt = *USA,

closqlcsr = *ENDMOD;





c eval wCount = 0

c eval wCurrent_Date = %date(wSched_Date:*ISO)



exec sql values CAST(wCurrent_Date as decimal(8,0))

into :wCur_Date_To;



exec sql values CAST((wCurrent_Date - 7 days) as decimal(8,0))

into :wCur_Date_From;