"All of the movie [v_prod.prodclass='MOV'] registrations on VC channels [v_chan.vcchan=.t.] for the provider of the release which are either in this release [from R_PRODR] or are for a guarantee Product [v_prod.guarantee] or are for an Estimated provider [v_prov.est]."We pass this function the releasid (the PK of R_RELEAS), as tnReleasid.
>>SELECT releasid, prodrid, v_prod.titfull, v_prov.zeromonths, v_prod.prod_id, v_prod.guarantee, v_prod.guartype ; >> FROM p_prodr, v_prod, r_releas, v_prov, v_chan ; >> WHERE p_prodr.prod_id = v_prod.prod_id ; >> AND v_prod.prov_id = r_releas.prov_id ; >> AND v_prov.prov_id = r_releas.prov_id ; >> AND r_releas.releasid = tnReleasid ; >> AND v_prod.prodclass = 'MOV' ; >> AND v_chan.chan_id = p_prodr.chan_id ; >> AND p_prodr.playmonth >= {1/1/95} ; >> AND (v_prod.guarantee OR v_prov.est OR ; >> p_prodr.prodrid IN (SELECT prodrid FROM r_prodr WHERE releasid = tnReleasid)) ; >> AND v_chan.vcchan ; >> ORDER BY 3, 5, 2 ; >> INTO CURSOR cTempCalc >>>>
>>SELECT releasid, prodrid, v_prod.titfull, v_prov.zeromonths, v_prod.prod_id, v_prod.guarantee, v_prod.guartype, ; >> v_chan.vcchan AS xxxx ; >> FROM p_prodr, v_prod, r_releas, v_prov, v_chan ; >> WHERE p_prodr.prod_id = v_prod.prod_id ; >> AND v_prod.prov_id = r_releas.prov_id ; >> AND v_prov.prov_id = r_releas.prov_id ; >> AND r_releas.releasid = tnReleasid ; >> AND v_prod.prodclass = 'MOV' ; >> AND v_chan.chan_id = p_prodr.chan_id ; >> AND p_prodr.playmonth >= {1/1/95} ; >> AND (v_prod.guarantee OR v_prov.est OR ; >> p_prodr.prodrid IN (SELECT prodrid FROM r_prodr WHERE releasid = tnReleasid)) ; >> ORDER BY 3, 5, 2 ; >> HAVING xxxx = .t. ; >> INTO CURSOR cTempCalc >>>>
>>SELECT p_prodr.* FROM p_prodr, v_prod, v_prov ; >> WHERE p_prodr.prod_id = v_prod.prod_id ; >> AND v_prod.prov_id = v_prov.prov_id ; >> AND (p_prodr.prodrid IN (SELECT prodrid FROM r_prodr WHERE releasid = tnReleasid) OR v_prod.guarantee OR v_prov.est) ; >> AND p_Prodr.playmonth >= {1/1/95} ; >> INTO CURSOR xProdr >> >>SELECT releasid, prodrid, v_prod.titfull, v_prov.zeromonths, v_prod.prod_id, v_prod.guarantee, v_prod.guartype ; >> FROM xProdr, v_prod, r_releas, v_prov, v_chan ; >> WHERE xProdr.prod_id = v_prod.prod_id ; >> AND v_prod.prov_id = r_releas.prov_id ; >> AND v_prov.prov_id = r_releas.prov_id ; >> AND r_releas.releasid = tnReleasid ; >> AND v_chan.chan_id = xProdr.chan_id ; >> AND v_chan.vcChan ; >> ORDER BY 3, 5, 2 ; >> INTO CURSOR cTempCalc >> >>USE IN xProdr >>>>