/******************************************************************************************************/
/* Program Name: mastersWithProratedSubs.p                                                            */
/* Program Desc: semicolon delimited list of master accounts with prorated subunits                   */
/* Program Auth: Penny Henry                                                                          */
/* Date:         05-29-2007                                                                           */
/******************************************************************************************************/

define stream outstream.
output stream outstream to \win202\reports\mastersWithProratedSubs.txt.

/* Define a record buffer for the quarterly table to hold the subunit information*/
DEFINE BUFFER subs FOR quarterly.

/*Show 20064 records that are singles*/
FOR EACH quarterly WHERE yr = 2006 and                /* change year as needed */
                         qtr = 4 and                  /* change qtr as needed */
                         meei_cd = 2 NO-LOCK.

   FIND admin WHERE admin.unum = quarterly.unum and
                    admin.rnum = quarterly.rnum NO-LOCK NO-ERROR.

/* Find subunit information */
   FIND FIRST subs WHERE subs.yr = 2006 and           /* change year as needed */
                   subs.qtr = 4 and                   /* change qtr as needed */
                   subs.unum = quarterly.unum and
                   subs.rnum <> quarterly.rnum and
                  (subs.m1emp_ind = 'P' OR
                   subs.m2emp_ind = 'P' OR
                   subs.m3emp_ind = 'P') NO-LOCK NO-ERROR.
     
/* Display selected master records */
   IF AVAILABLE subs THEN
         PUT STREAM outstream quarterly.unum ";"
                              quarterly.rnum ";"
                              admin.legal_n ";"
                              quarterly.meei_cd ";"
                              subs.unum ";"
                              subs.rnum ";"
                              subs.meei_cd ";"
                              subs.m1emp_ind ";"
                              subs.m2emp_ind ";"
                              subs.m3emp_ind SKIP.    
END.