/*************************************************************
 * Title: a-accnt.p
 * By:    JAJ
 * Date:  5/15/2005
 * Desc: listing of current yr/qtr accounts with A indicators
 ***************************************************************/

FIND FIRST state-info NO-LOCK NO-ERROR.

DEFINE STREAM outstream.
OUTPUT STREAM outstream TO VALUE ('\win202\reports\A-Accounts-' + STRING(state-info.cur-year) + STRING(state-info.cur-qtr) + '.txt').

FOR EACH quarterly WHERE quarterly.yr  = state-info.cur-year AND
                         quarterly.qtr = state-info.cur-qtr  AND
                        (quarterly.m1emp_ind   = "A" OR
                         quarterly.m2emp_ind   = "A" OR
                         quarterly.m3emp_ind   = "A" OR
                         quarterly.contrib_ind = "A" OR
                         quarterly.tot_wg_ind  = "A" OR
                         quarterly.tax_wg_ind  = "A") NO-LOCK:

    FIND admin OF quarterly NO-LOCK NO-ERROR.
    IF NOT AVAIL admin THEN NEXT.
    
    PUT STREAM outstream quarterly.unum SPACE(2)
                         quarterly.rnum SPACE(5)
                         admin.ein      SPACE(5)
                         admin.dba      SPACE(5)
                         admin.legal    SKIP.

END.