HERE IS THE SQL STATEMENT:
SELECT CSR AS CSR,"American Modern Insurance Group(A rated, Admitted)" as carrier,;
n_boat_value AS BOAT_VALUE,SPACE(20) AS WATERSKI, 350 AS TOWING, ;
nUNINSURED AS UNINSURED, nTrkr_value AS TRLR_VALUE,BASEPREM AS BASEPREM,;
SUBTOT AS SUBTOT,nLIAB_PREM AS LIABPREM, MED_PREM AS MEDPREM,;
TRLR_PREM AS TRLR_PREM, M_EQ_PREM AS M_EQ_PREM, CRD_PREM AS CRD_PREM,;
M_EQ_PREM as M_EQ_PREM,UNINS_PREM AS UNINS_PREM,CREDITS AS CREDITS,;
l_SafetyEquip as S_Equip,PERS_PREM AS PERS_PREM,l_LIE AS LIE,;
nPers_Eff AS PERS_EFF, nMedPay AS MEDPAY,nPREM2D AS PREM2D,;
nPrem5D AS PREM5D, ALLTRIM(STR(quotes.quote_id)) AS QUOTE_ID,;
Vessel AS VESSEL,ag_name AS AG_NAME,ag_fax AS AG_FAX,ag_phone AS AG_PHONE,;
quotes.writer_id,ALLTRIM(LIABILITY.DETAIL) AS LIABILITY, ;
ALLTRIM(TERRITORY.DETAIL) AS TERRITORY,l_LIABONLY AS l_LIABONLY, ;
ALLTRIM(UNDERWRITER.F_NAME) + " " + ALLTRIM(UNDERWRITER.L_NAME) AS WRITER,;
UNDERWRITER.EXTENSION,ALLTRIM(DRIVERS.FNAME) +" " + ALLTRIM(DRIVERS.LNAME);
AS INSURED,"ACV" AS PL_TYPE,DED2D AS DED2D,SAFE_DR as safe_dr,;
DED5D AS DED5D,iLIAB_ID AS LIAB_ID,iTerr_id as Terr_id,l_SAFETY_CR AS ;
SC,l_TheftProtection AS THEFT_PROT,nP_AGE AS P_AGE,iHull_id AS HULL_ID,;
iBOAT_ID AS BOAT_ID,cOWNER AS cOWNER,TOT_MVR AS MVR, TOT_LOSS AS TOT_LOSS,;
nEXPERIENCE AS EXPERIENCE,nLENGTH AS LENGTH,cSTATE AS cSTATE,nHP AS HP,;
BOAT AS BOATTYPE, HULL AS HULLTYPE,n_amh_ded as amh_ded,nDiscretionary AS ;
DISC_CRD ;
FROM LIABILITY,TERRITORY,UNDERWRITER,DRIVERS,QUOTES;
WHERE LIABILITY.LIAB_ID == iLIAB_ID AND ;
LIABILITY.C_P_ID == PROG_ID AND ;
TERRITORY.C_P_ID == PROG_ID AND ;
TERRITORY.TERR_ID == iTERR_ID AND ;
UNDERWRITER.WRITER_ID == quotes.writer_id AND ;
DRIVERS.QUOTE_ID == iCUR_Q_ID and ;
DRIVERS.TYPE == "P" AND ;
QUOTES.QUOTE_ID == iCUR_Q_ID ;
GROUP BY quotes.quote_id ;
INTO TABLE C:\RATINGv5\OUTPUT
SELECT OUTPUT
IF _TALLY = 0
WAIT WINDOW "No record was found."
RETURN
ELSE
ALTER TABLE OUTPUT ADD COLUMN BINDING M NULL
ALTER TABLE OUTPUT ADD COLUMN EXTRA M NULL
SELECT OUTPUT
UPDATE OUTPUT SET BINDING = BIND_R,EXTRA = EX_R WHERE !EMPTY(alltrim(QUOTE_ID))
ENDIF
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only