compile function report_test
declare function msg, set_property
declare subroutine rlist, or_view
$insert rlist_equates
*Stmt =  "SELECT TSCHEDULE BY CUST_CITY WITH SHIP.DATE GE ":QUOTE(OCONV(BEG.DATE,"D2-")):" AND LE ":QUOTE(OCONV(END.DATE,"D2-"))
Stmt =  "SELECT COMPANY"
*Stmt = 'SELECT SCHEDULE'
rlist( Stmt, target_activelist$, '', '', '' )
if @reccount then
   Cmd = 'LIST COMPANY CO_NAME CITY'
   void = set_property( 'ORPRV', 'VISIBLE', 3 )
   or_view( '', Cmd )
end else
  Void = MSG( '', "NO Records meeting your date criteria!!" )
end