JOIN
 MKCUSTRPTGL.SEG01.AGCY_CD IN MKCUSTRPTGL TO MULTIPLE MKCUSTCNTGL.SEG01.AGCY_CD
 IN MKCUSTCNTGL AS J1
 END
DEFINE FILE MKCUSTRPTGL
Gained/I2=IF CUST_CHNG_TXT EQ 'GAIN' THEN 1 ELSE 0;
Lost/I2=IF CUST_CHNG_TXT EQ 'LOSS' THEN -1 ELSE 0;
BEG_DAY/YYMD=DATEMOV(RPT_DT, 'BOM');
END_MONTH/YYMD=DATEMOV( RPT_DT, 'EOM');
CURR_YR/YY=DATEMOV( RPT_DT, 'YY');
CURR_MON/M=DATEMOV(RPT_DT, 'M');
CURR_DATE/TRMDYY=RPT_DT;
CUR_MON_1/TRM=CURR_DATE;
Mon_Day/JUL=RPT_DT;
END
TABLE FILE MKCUSTRPTGL
SUM 
     MBR_NBR_TXT AS 'Customer,No.'
BY DIST_CD AS 'Dist'
BY AGCY_CD AS 'Agency'
BY AGT_CD_TXT AS 'Wrt Agt,as of,Jan 1'
BY MBR_NAME AS 'Customer,Name'
SUM 
     AVE.Gained AS 'AVE,Gained'
     AVE.Lost AS 'AVE,Lost'
BY DIST_CD AS 'Dist'
BY AGCY_CD AS 'Agency'
BY AGT_CD_TXT AS 'Wrt Agt,as of,Jan 1'
BY MBR_NAME AS 'Customer,Name'
BY MBR_STAT_DESC AS 'Customer,Status'
BY POL_NBR_TXT AS 'Policies'
BY POL_TYPE_TXT AS 'Policy,Line of,Business'
BY POL_STAT_DESC AS 'Policy,Status'

ON AGT_CD_TXT SUBTOTAL
     SUM. Gained
     SUM. Lost AS '*TOTAL'
ON TABLE SUBHEAD
"<CURR_YR   AGENT CUSTOMERS GAINED AND LOST DETAIL"
"DOES NOT INCLUDE NEW CUSTOMERS"
"FOR <CUR_MON_1 "
"Print Date:<+0>&DATEMDYY<+0> "
WHERE CUST_CHNG_TXT NE 'NEW';
WHERE CNT_TYPE_TXT EQ 'AGT';
WHERE RECORDLIMIT EQ 2000
ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE * 

DEFINE FILE CAR
CNTR WITH MODEL=1;
CNTR2 WITH CAR=1;
END
TABLE FILE CAR
SUM CNTR2 NOPRINT
BY COUNTRY
SUM CNTR 
BY COUNTRY
BY CAR
BY MODEL
ON COUNTRY SUBFOOT
"TOTAL CARS <CNTR2"
END