Your code sample is OK for the DO CASE. If you have several references of the object inside the CASE, the you can use code like this:

WITH THIS
    DO CASE
    CASE .EventType = "A"
        WITH .EventType
            .Code = "S12"
            ...
        ENDWITH
    ...
    ENDCASE
ENDWITH

HTH

>I want to use "WITH THIS.EventType" but how do I handle the CASE .EventType? Something like .Value? Or can I not have an object.object this way?
>
>

>		WITH THIS
>			DO CASE
>				CASE .EventType = 'A'
>					.EventType.Code = 'S12'
>
>