Hi,

We are trying to combine the report and the stacked bar chart together. Did anybody worked like this?

How can I get this? Right now I am using images to build the stacked bar chart but now we need to add a line in between the image to show the median and that is making this more complicated.

See the sample code below.

DEFINE FILE CAR
UW/A25=IF CAR EQ 'ALFA ROMEO' THEN 'UW1'
ELSE IF CAR EQ 'AUDI' THEN 'UW2 '
ELSE IF CAR EQ 'BMW' THEN 'UW3'
ELSE IF CAR EQ 'DATSUN' THEN 'UW4'
ELSE IF CAR EQ 'JAGUAR' THEN 'UW5'
ELSE IF CAR EQ 'JENSEN' THEN 'UW6'
ELSE IF CAR EQ 'MASERATI' THEN 'UW7'
ELSE IF CAR EQ 'PEUGEOT' THEN 'UW8'
ELSE IF CAR EQ 'TOYOTA' THEN 'UW9'
ELSE IF CAR EQ 'TRIUMPH' THEN 'UW10'
ELSE '';

SDD50/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';

C1A/I3=IF CAR EQ 'ALFA ROMEO' THEN .5
ELSE IF CAR EQ 'AUDI' THEN 2
ELSE IF CAR EQ 'BMW' THEN .5
ELSE IF CAR EQ 'DATSUN' THEN .5
ELSE IF CAR EQ 'JAGUAR' THEN 1
ELSE IF CAR EQ 'JENSEN' THEN .5
ELSE IF CAR EQ 'MASERATI' THEN 3
ELSE IF CAR EQ 'PEUGEOT' THEN 3
ELSE IF CAR EQ 'TOYOTA' THEN 10
ELSE IF CAR EQ 'TRIUMPH' THEN .5
ELSE 0;
C1B/I5=C1A + 0;
C1/A5=EDIT(C1B);
C2A/I3=IF CAR EQ 'ALFA ROMEO' THEN 20
ELSE IF CAR EQ 'AUDI' THEN 15
ELSE IF CAR EQ 'BMW' THEN 14
ELSE IF CAR EQ 'DATSUN' THEN 10
ELSE IF CAR EQ 'JAGUAR' THEN 18
ELSE IF CAR EQ 'JENSEN' THEN 6
ELSE IF CAR EQ 'MASERATI' THEN 10
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 20
ELSE IF CAR EQ 'TRIUMPH' THEN 16
ELSE 0;
C2B/I5=C2A + 5 ;
C2/A5=EDIT(C2B);
C3A/I3=IF CAR EQ 'ALFA ROMEO' THEN 14
ELSE IF CAR EQ 'AUDI' THEN 16
ELSE IF CAR EQ 'BMW' THEN 17
ELSE IF CAR EQ 'DATSUN' THEN 14
ELSE IF CAR EQ 'JAGUAR' THEN 13
ELSE IF CAR EQ 'JENSEN' THEN 10
ELSE IF CAR EQ 'MASERATI' THEN 13
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 7
ELSE IF CAR EQ 'TRIUMPH' THEN 19
ELSE 0;
C3B/I5=C3A + 5;
C3/A5=EDIT(C3B);

DTP/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';
END

TABLE FILE CAR
SUM
PENDING
ASSIGNED
PLACED
SDD50
C1
C2
C3
DTP
BY UW
ON TABLE HOLD AS FOCCACHE/DISPDAT
END
-RUN

DEFINE FILE FOCCACHE/DISPDAT
IMG1/A300='';
SP1/A6='&'|'nbsp;';
SP5/A30=SP1|SP1|SP1|SP1|SP1;
SP2/A12=SP1 | SP1;
NP/A1='';
NP2/A2 = NP|NP;
END



TABLE FILE FOCCACHE/DISPDAT
SUM
UW AS 'Underwriter'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
-*BY CAR NOPRINT
BY UW NOPRINT
ON TABLE SET PAGE-NUM NOPAGE
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET SPACES 2
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,GRID=OFF,FONT=ARIAL,SIZE=9,$
TYPE=TITLE,JUSTIFY=CENTER,$
TYPE=TITLE,COLUMN=UW,JUSTIFY=LEFT,$
TYPE=TITLE,COLUMN=NP,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=NP2,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=IMG1,STYLE=-UNDERLINE,$
TYPE=DATA,JUSTIFY=RIGHT,$
ENDSTYLE
END
-RUN
-EXIT

Hi Kamesh,

Your example does not work and I'm not sure what you are asking?

Are you getting any error?

This is the sample file which has hardcoded value. I want to replicate this with the real data and we wanted to put a line for the median value. That's where the issue started. Doing this way, I need to do lot of calculation to separate the median with the data.

If there is a way to do this report, then I will switch it to that instead of doing the graph manually.

PENDING, ASSIGNED, PLACED are not defined anywhere...

and another thing, you're defining a variable titled C1
"Cn" is column notation for referencing fields. you're asking for trouble.

quote:

I'm not sure what you are asking

Can you provide a sample of what you want?

This should work but you need to have bar images. I am not sure, how I can put those?

DEFINE FILE CAR
UW/A25=IF CAR EQ 'ALFA ROMEO' THEN 'UW1'
ELSE IF CAR EQ 'AUDI' THEN 'UW2 '
ELSE IF CAR EQ 'BMW' THEN 'UW3'
ELSE IF CAR EQ 'DATSUN' THEN 'UW4'
ELSE IF CAR EQ 'JAGUAR' THEN 'UW5'
ELSE IF CAR EQ 'JENSEN' THEN 'UW6'
ELSE IF CAR EQ 'MASERATI' THEN 'UW7'
ELSE IF CAR EQ 'PEUGEOT' THEN 'UW8'
ELSE IF CAR EQ 'TOYOTA' THEN 'UW9'
ELSE IF CAR EQ 'TRIUMPH' THEN 'UW10'
ELSE '';

SDD50/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';

C1A/I3=IF CAR EQ 'ALFA ROMEO' THEN .5
ELSE IF CAR EQ 'AUDI' THEN 2
ELSE IF CAR EQ 'BMW' THEN .5
ELSE IF CAR EQ 'DATSUN' THEN .5
ELSE IF CAR EQ 'JAGUAR' THEN 1
ELSE IF CAR EQ 'JENSEN' THEN .5
ELSE IF CAR EQ 'MASERATI' THEN 3
ELSE IF CAR EQ 'PEUGEOT' THEN 3
ELSE IF CAR EQ 'TOYOTA' THEN 10
ELSE IF CAR EQ 'TRIUMPH' THEN .5
ELSE 0;
C1B/I5=C1A + 0;
C1/A5=EDIT(C1B);
C2A/I3=IF CAR EQ 'ALFA ROMEO' THEN 20
ELSE IF CAR EQ 'AUDI' THEN 15
ELSE IF CAR EQ 'BMW' THEN 14
ELSE IF CAR EQ 'DATSUN' THEN 10
ELSE IF CAR EQ 'JAGUAR' THEN 18
ELSE IF CAR EQ 'JENSEN' THEN 6
ELSE IF CAR EQ 'MASERATI' THEN 10
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 20
ELSE IF CAR EQ 'TRIUMPH' THEN 16
ELSE 0;
C2B/I5=C2A + 5 ;
C2/A5=EDIT(C2B);
C3A/I3=IF CAR EQ 'ALFA ROMEO' THEN 14
ELSE IF CAR EQ 'AUDI' THEN 16
ELSE IF CAR EQ 'BMW' THEN 17
ELSE IF CAR EQ 'DATSUN' THEN 14
ELSE IF CAR EQ 'JAGUAR' THEN 13
ELSE IF CAR EQ 'JENSEN' THEN 10
ELSE IF CAR EQ 'MASERATI' THEN 13
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 7
ELSE IF CAR EQ 'TRIUMPH' THEN 19
ELSE 0;
C3B/I5=C3A + 5;
C3/A5=EDIT(C3B);

DTP/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';
END

TABLE FILE CAR
SUM
SDD50
C1
C2
C3
DTP
BY UW
ON TABLE HOLD AS FOCCACHE/DISPDAT
END
-RUN

DEFINE FILE FOCCACHE/DISPDAT
IMG1/A300='<img src=/wfimages/hdrbg_p5.gif width=''' | C1 | ''' height=5></img><img src=/wfimages/togglebg.png width=''' | C2 | ''' height=5></img><img src=/wfimages/smoke.png width=''' | C3 | ''' height=5></img>';
SP1/A6='&'|'nbsp;';
SP5/A30=SP1|SP1|SP1|SP1|SP1;
SP2/A12=SP1 | SP1;
NP/A1='';
NP2/A2 = NP|NP;
END



TABLE FILE FOCCACHE/DISPDAT
SUM
UW AS 'Underwriter'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
-*BY CAR NOPRINT
BY UW NOPRINT
ON TABLE SET PAGE-NUM NOPAGE
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET SPACES 2
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,GRID=OFF,FONT=ARIAL,SIZE=9,$
TYPE=TITLE,JUSTIFY=CENTER,$
TYPE=TITLE,COLUMN=UW,JUSTIFY=LEFT,$
TYPE=TITLE,COLUMN=NP,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=NP2,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=IMG1,STYLE=-UNDERLINE,$
TYPE=DATA,JUSTIFY=RIGHT,$
ENDSTYLE
END
-RUN
-EXIT

look up GRAPHTYPE. that's what you want.
and forget using FOCCACHE, no reason to.

Thanks Susannah.

I am using FOCCACHE because I need to export the output to Excel.