/********************************************************************************
 * Title: estimated_records.p
 * By:    PLH
 * Date:  08/01/2006
 * Desc:  listing of single, non-federal, active accounts with M or E indicators
 *        for comparison against your tax extract
 ********************************************************************************/

DEFINE STREAM outstream.
OUTPUT STREAM outstream to \win202\reports\estimated_records-2006-1.txt. /* Change year and quarter in filename as required */

FOR EACH quarterly WHERE quarterly.yr          = 2006 AND                /* Change year as needed    */
                         quarterly.qtr         = 1   AND                 /* Change quarter as needed */
                         quarterly.rnum        = 0   AND
                         quarterly.own_cd      <> 1  AND
                         quarterly.status_cd   = "1" AND
                        (quarterly.m1emp_ind   = "M" OR
                         quarterly.m1emp_ind   = "E" OR
                         quarterly.m2emp_ind   = "M" OR
                         quarterly.m2emp_ind   = "E" OR
                         quarterly.m3emp_ind   = "M" OR
                         quarterly.m3emp_ind   = "E" OR
                         quarterly.tot_wg_ind  = "M" OR
                         quarterly.tot_wg_ind  = "E") NO-LOCK:
    
    PUT STREAM outstream quarterly.unum ';'
                         quarterly.rnum ';'
                         quarterly.m1emp ';'
                         quarterly.m1emp_ind ';'
                         quarterly.m2emp ';'
                         quarterly.m2emp_ind ';'
                         quarterly.m3emp ';'
                         quarterly.m3emp_ind ';'
                         quarterly.tot_wg ';'
                         quarterly.tot_wg_ind SKIP.
                         
END.