## TECHTIPS, McCusker, page 88

Listing for McCusker's Tip


*** newscr is a function that produces prompts
*** for a data entry screen
DO newscr
store "     " to w_date
@ 3,25 get w_date picture "99/99/99"
read
if w_date = "     "
     *** do not process a blank date field
     loop
endif
select a
goto top
store substr(w_date,1,2) to month
store substr(w_date,3,2) to day
store substr(w_date,5,2) to year
store year+"/"+month+"/"+day to look
locate for db_date = look
.
