I have created a prototype exl2k report and I am having a problem with styling the heading to sit over specific columns.
I would like the string 'AVERAGE SETS PER CASE' to center over columns MODEL DEALER RETAIL and I would like the string 'PAGE 1' TO START IN COLUMN MARKUP (LEFT JUSTIFIED),
The code is captioned below:
-** CALC HEADER TODAY'S DATE
-SET &TODAY = 20130702;
-SET &HRDATE1 = CHGDAT('YYMD','MDYY',20130702,'A8MDYY');
-SET &HDRDAT = EDIT(07022013,'99/99/9999');
-** CALC HEADER TIME
-SET &THR = EDIT(16.33.36,'99');
-SET &TMN = EDIT(16.33.36,'$$$99$$$');
-SET &XTOD = 16 |':'| 33;
-** CALC DATE RANGE
-SET &STRDTE = '06/01/2013';
-SET &ENDDTE = '06/30/2013';
DEFINE FILE CAR
HEADER1A/A50 = 'DATE:'|' 07/02/2013';
HEADER1B/A21 = 'AVERAGE SETS PER CASE';
HEADER1C/A15 = 'PAGE: '|' 1';
-*
HEADER2A/A16 = 'TIME:'|' 16:33';
HEADER2B/A50 = 'FROM'|' 06/01/2013 '|' TO '|' 06/30/2013 ';
HEADER2C/A50 = 'PGM: PIP97323';
END
TABLE FILE CAR
SUM
DEALER_COST AS 'DEALER'
RETAIL_COST AS 'RETAIL'
COMPUTE MARKUP/D10 = RETAIL_COST - DEALER_COST;
COMPUTE MARKUP_PCT/D6.2% = MARKUP/DEALER_COST * 100; AS 'MARKUP,PCT'
-*
BY COUNTRY
BY CAR
BY MODEL
-*
HEADING
"THIS IS A SAMPLE REPORT TO PROTOYYPE THAT REAL WORK PRODUCT THING"
" *** POLLY WALLY DOODLE DAY *** "
" "
"<HEADER1A<HEADER1B<HEADER1C"
" "
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
INCLUDE = ENDEFLT,
$
TYPE=REPORT,
FONT=ARIAL,
SIZE=9,
COLOR=BLACK,
BACKCOLOR=NONE,
STYLE=NORMAL,
$
TYPE=HEADING,
HEADALIGN=BODY,
BORDER-TOP=LIGHT,
BORDER-BOTTOM=LIGHT,
BORDER-LEFT=LIGHT,
BORDER-RIGHT=LIGHT,
-*
BORDER-TOP-STYLE=RIDGE,
BORDER-BOTTOM-STYLE=RIDGE,
BORDER-LEFT-STYLE=RIDGE,
BORDER-RIGHT-STYLE=RIDGE,
-*
BORDER-TOP-COLOR=RGB(51 51 153),
BORDER-BOTTOM-COLOR=RGB(51 51 153),
BORDER-LEFT-COLOR=RGB(51 51 153),
BORDER-RIGHT-COLOR=RGB(51 51 153),
-*
SIZE=9,
COLOR=BLACK,
STYLE=BOLD,
$
TYPE=HEADING, LINE=1, OBJECT=TEXT, COLSPAN=7, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=2, OBJECT=TEXT, COLSPAN=7, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=3, OBJECT=TEXT, COLSPAN=7, JUSTIFY=CENTER, $
-* LINE 4
TYPE=HEADING,
LINE=4,
ITEM=1,
OBJECT=TEXT,
COLSPAN=2,
JUSTIFY=LEFT,
$
TYPE=HEADING,
LINE=4,
ITEM=2,
OBJECT=TEXT,
COLSPAN=1,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=4,
ITEM=3,
COLSPAN=5,
JUSTIFY=RIGHT,
$
-GOTO XLN5
-XLN5
TYPE=FOOTING,
BACKCOLOR=SILVER,
SIZE=9,
STYLE=BOLD,
$
ENDSTYLE
END
-RUN
Thanks,This message has been edited. Last edited by: Tomsweb,