do { $_ = <LOG> }
    until m/SCHEDULEREC OBJECT BEGIN SERVER_DAILY $date/ or not defined;

do {
   print ("$. : $_") if m/SCHEDULEREC OBJECT BEGIN SERVER_DAILY $date/;
   print ("$. : $_") if m/SCHEDULEREC OBJECT END SERVER_DAILY $date/;
   print ("$. : $_") if m/ANS1228E Sending of object '(.*)' failed/ 
   $_ = <LOG>;
} until not defined;