2emp:nmbrrst)) +' '+ !(trim(last)) * test the hire date for validity STORE hiredate TEY <> " " SET INDE TO RT/ZIP,RT/SER,RT/COMP FIND &ZIPKEY CASE COMPKEY <> " " @ @0@@@` TIM MONIHAN TERRY BRADSHAW JOE STEGMAN 2Bradshaw Terry dallas - 232-3232 12/31/80 / / fot1234.0001234.000bal @ 14,10 SAY "Hire date" @ 14,28 GET Mea:@ @0@@@` TIM MONIHAN TERRY BRADSHAW JOE STEGMAN 2Bradshaw Terry dallas - 232-3232 12/31/80 / / fot1234.0001234.000bal @ 14,10 SAY "Hire date" @ 14,28 GET Mea:date PICTURE '99/99/99' READ STORE T TO Mea:nodate ENDIF ENDDO SET colon OFF @ 22,0 SAY "Is the employee data correct (Y/N)? " GET Mea:ok READ SET colon