PC Report over 2 files

Roughly this is quick PSUEDOCODE Have 2 files Client Client Event Dates Need screen for input of date... default to today also Event Status 1 or 0 or ALL Need report to show all clients that do not have a date greater than date listed DOU EOF Read Client record IF Client Status = Selection Screen or ALL Key Client_Event_Date L SET Greater than on CLIENT DATE FILE Key_CLIENT READ CLIENT DATE FILE IF CLIENT DATA FILE RECORD DOES NOT EXIST Write Record ENDIF ENDIF ENDDO