Hi Koen,
>Sys(1) = Julian date
>ans Sys(1234) does not exsist in VFP so I assume you are referring to sys() in .NET and not in VFP.
>For the readable I dont get it. What have these sys() functions to do with this piece of coding?
Actually everything, but thanks for the effort of looking up what those mean... No way anybody would actually know out the top of their heads the meaning of 1, 1234 and since there are thousands of them, need to look them up each time one has to use it...
ENUM SysType
MEMBER Julian := 1
...
MEMBER NotExist := 1234
....
END ENUM
LOCAL myType AS SysType
....
SWITCH myType
CASE Julian
? "Do what you need to do"
CASE NotExist
? "Do the not exist thingy"
....
OTHERWISE
? "Don't know "
END SWITCH