day today - as400

[noamp]

Hey everyone.
i using lansa on ibm i (as400) - i want to use in my program with the day ,
i need to know what day is it- if its sunday(1) or wednesday(2) on go on like that.
if someone know how to do that? thanks!

[jyoung]

If you already have the date and it is a date type, you can you the AsDayOfWeek Intristic function.

http://docs.lansa.com/14/en/lansa016/pr ... ofweek.htm

If you don't have a date already the below works well for me.

Not at my PC so I winging this on my phone.

Code: Select all

#today := (*YYYYMMDD).AsDate(CCYYMMDD).AsDayOfWeek(SYMBOL)

[noamp]

hey, thanks for the help buy it is not on as400. the functions in lansa pc or what ever you using on is another commands from the ibm i (as400) commands. but thanks.

[atostaine]

That code jyoung posted is RDMLX. That works on VL.