/*************************************************************
 * Title: ARCS_non-response.p
 * By:    Chris Boudreau
 * Date:  ?
 * Desc:  listing of ARCS control file accounts with no response
 ***************************************************************/

define stream outstream.
output stream outstream to \win202\reports\non-response-report.txt.

put stream outstream
            "control-file.unum;control-file.rnum;admin.legal_n;admin.dba;admin.run_desc;quarterly.aux_naics;quarterly.m3emp;quarterly.meei_cd;quarterly.status_cd" skip.

for each control-file where refile-yr =  2006 and response-cd <= 5 no-lock:
    find admin where admin.unum = control-file.unum and
                     admin.rnum = control-file.rnum no-lock no-error.
    find quarterly where quarterly.unum = control-file.unum and
                         quarterly.rnum = control-file.rnum and
                         quarterly.yr   = control-file.refile-yr - 1   and
                         quarterly.qtr  = 4 no-lock no-error.
    put stream outstream
            control-file.unum ';'
            control-file.rnum ';'
            control-file.response-cd ';'
            admin.legal_n ';'
            admin.dba ';'
            admin.run_desc ';'
            quarterly.aux_naics ';'
            quarterly.m3emp ';'
            quarterly.meei_cd ';'
            quarterly.status_cd ';'
            admin.website skip.
end.