Need to subtract 1 day from character

[dcutaia]

If I have an RPG program and a charater parm of POSTDATE as '20070111'. How do I convert it to ISO so I can subtract 1 day from it?

Thanks,

DAC

[Billw]

Re: Need to subtract 1 day from character

Numeric
d NewDate s 8 0 Inz
d OldDate s 8 0 Inz(20070111)
/Free
NewDate = %Dec(%Date(OldDate:*Iso) - %days(1));
*Inlr = *On;
Return;
/End-Free

or Alpha
d NewDate s 8 Inz
d OldDate s 8 Inz('20070111')
/Free
NewDate = %Char(%dec((%Date(OldDate:*Iso0) - %days(1))));
*Inlr = *On;
Return;
/End-Free


Good Luck
Bill