private ldstart_dt,ldend_dt,ldpostdate
do set_menu
= get_pupto('list of dates for which daily posting is not done','As On Date: ')

ldstart_dt = mstart_dt
ldend_dt = upto_date

crea cursor chk_post  ;
	(post_date d,post_flg c(1))

do while ldstart_dt<=ldend_dt
    insert into chk_post ;
        (post_date) ;
     values (ldstart_dt) 
        ldstart_dt=ldstart_dt+1
enddo 
wait wind '!!! WAIT !!! Gathering Data' nowa
sele chk_post
go top
scan
   ldpostdate = post_date
   sele transect
   loca for transect.date = ldpostdate and source = 'WC'
   if  found()
      repl chk_post.post_flg with 'Y'
   endif
   sele chk_post
endscan   
   
sele chk_post
wait wind '!!! WAIT !!! Generating Report ...' nowa
do prinrepo with 'WCHK_POS','CHK_POST','empt(post_flg)','','' 
use in chk_post
do cls_menu
