-* I need something such as this TABLE FILE abc SUM sum BY row ACROSS across END -* That will create something such as this but with an increase space (blank row) between row and across across across row sum sum row
DEFINE FILE PMR_PROV_VAL_BASE_CLUSTER CLDR_DT/MDYY = DATECVT(ICURD_CLDR, 'I8YYMD', 'MDYY'); CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714' ELSE ''; END TABLE FILE PMR_PROV_VAL_BASE_CLUSTER SUM COMPUTE CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714' ELSE ''; -*ACROSS ICURD_CLDR AS '' ACROSS CLDR_DT AS '' BY VBR_PRCG_SCHD_NM AS '' WHERE VBR_PRCG_PCT_VAL NE 0; WHERE SPEC_CD EQ 'AC' OR 'PD' OR 'OB'; WHERE PRIM_LCTN_SW EQ 'Y' WHERE VBR_PRCG_SCHD_NM NE MISSING; WHERE ICURD_CLDR NE MISSING; WHERE PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.PROV_NPI EQ &NPI; -*WHERE RECORDLIMIT EQ 10000; -*-INCLUDE /WFC/Repository/PMR/common/fex/PMR_com_filter_include.fex ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON -*ON TABLE SET SPACES 1 -*ON TABLE SET STYLEMODE FIXED ON TABLE SET HTMLCSS ON ON TABLE SET STYLE *
quote:I noticed when I posted the last post I lost the spacing in the representation of the output.
TABLE FILE CAR SUM COMPUTE CHK/A10 = IF SEATS GT 2 THEN '&|#x2714' ELSE ''; AS '' BY CAR AS '' ACROSS COUNTRY AS '' ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * END
CLDR_DT CLDR_DT CLDR_DTVBR VBR_PRCG_SCHD_NM CHK CHK CHK
TABLE FILE CAR SUM COMPUTE CHK/A10 = IF SEATS GT 2 THEN '&|#x2714' ELSE ''; AS '' COMPUTE DUMMY/A1 = ''; AS '' BY CAR AS '' ACROSS COUNTRY AS '' ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * END
Expanding on MartinY's suggestion, there are a number of different check mark character codes that you could use: https://www.amp-what.com/unicode/search/check. You just need to make sure that you escape the & symbol with a pipe character when using these in IBI code, like MartinY did.
The table below shows the normal HTML codes that will produce the corresponding check marks:
HTML Entity | Decimal | Hexadecimal | |
---|---|---|---|
✓ | ✓ ✓ |
✓ | ✓ |
✔ | ✔ | ✔ | |
🗸 | 🗸 | 🗸 | |
🗹 | 🗹 | 🗹 | |
✔️ | ✔️ | ✔️ | |
✅ | ✅ | ✅ | |
☑️ | ☑️ | ☑️ |
DEFINE FILE car CHK/A150V=IF SEATS GT 2 THEN '&|#x2714;&|#xfe0f;' ELSE ''; END TABLE FILE car SUM CHK AS '' BY CAR ACROSS COUNTRY AS '' ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * TYPE=REPORT, BORDER-COLOR=RGB(#ffffff), $ TYPE=TITLE, ACROSSCOLUMN=N1, JUSTIFY=CENTER, STYLE=NORMAL, $ TYPE=DATA, ACROSSCOLUMN=N1, JUSTIFY=CENTER, $ TYPE=ACROSSTITLE, ACROSS=N1, JUSTIFY=CENTER, STYLE=NORMAL, $ TYPE=ACROSSVALUE, ACROSS=N1, JUSTIFY=CENTER, $ ENDSTYLE END -RUN
quote:Originally posted by AMC2:
Is the #xfe0f generating spaces after the checkmark? This is not working for my code. Is it spacing over the Country and CHK? It's hard to tell. That's what I need to do.
Without knowing the layout of the other report and where the columns are, it makes it impossible to align.
This sample code here shows that the check mark is in the middle of each column:
DEFINE FILE car CHK/A150V=IF SEATS GT 2 THEN '&|#x2714;&|#xfe0f;' ELSE ''; END TABLE FILE car SUM CHK AS '' BY CAR ACROSS COUNTRY AS '' ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * TYPE=TITLE, ACROSSCOLUMN=N1, JUSTIFY=CENTER, STYLE=NORMAL, $ TYPE=DATA, ACROSSCOLUMN=N1, JUSTIFY=CENTER, $ TYPE=ACROSSTITLE, ACROSS=N1, JUSTIFY=CENTER, STYLE=NORMAL, $ TYPE=ACROSSVALUE, ACROSS=N1, JUSTIFY=CENTER, $ TYPE=REPORT, BORDER-TOP=LIGHT, BORDER-TOP-STYLE=SOLID, BORDER-TOP-COLOR='GREY', BORDER-RIGHT=LIGHT, BORDER-RIGHT-STYLE=SOLID, BORDER-RIGHT-COLOR='GREY', BORDER-BOTTOM=LIGHT, BORDER-BOTTOM-STYLE=SOLID, BORDER-BOTTOM-COLOR='GREY', BORDER-LEFT=LIGHT, BORDER-LEFT-STYLE=SOLID, BORDER-LEFT-COLOR='GREY', $ ENDSTYLE END -RUN
It returns a table like this
ENGLAND | FRANCE | ITALY | JAPAN | W GERMANY | |
CAR | |||||
ALFA ROMEO | . | . | . | . | |
AUDI | . | . | . | . | ✔️ |
BMW | . | . | . | . | ✔️ |
DATSUN | . | . | . | ✔️ | . |
JAGUAR | ✔️ | . | . | . | . |
JENSEN | ✔️ | . | . | . | . |
MASERATI | . | . | . | . | |
PEUGEOT | . | ✔️ | . | . | . |
TOYOTA | . | . | . | ✔️ | . |
TRIUMPH | . | . | . | . | |
DEFAULTH &NPI = _FOC_NULL; -IF &NPI NE _FOC_NULL THEN GOTO CONTINUE; -INCLUDE IBFS:/WFC/Repository/PMR/common/fex/PMR_com_npi_inc.fex -CONTINUE -*************************************************** -*-GOTO 2ND_RPT -*TABLE FILE PMR_PROV_VAL_BASE_CLUSTER -*PRINT PROV_NPI -* VBR_PRCG_SCHD_NM -* COMPUTE CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714' ELSE ''; -*BY PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.LAST_NM -*BY PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.FST_NM -*BY ICURD_CLDR -*WHERE VBR_PRCG_PCT_VAL NE 0; -*WHERE SPEC_CD EQ 'AC' OR 'PD' OR 'OB'; -*WHERE PRIM_LCTN_SW EQ 'Y'; -*-*WHERE PROV_NPI EQ 1649227471; -*WHERE PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.PROV_NPI EQ &NPI; -*-*ON TABLE HOLD AS HOLD1 -*END -*-RUN -*-EXIT -*******1st Report SET ASNAMES = ON; SET COMPOUND = OPEN NOBREAK; SET ACROSSPRT = COMPRESS; DEFINE FILE PMR_PROV_VAL_BASE_CLUSTER CLDR_DT/MDYY = DATECVT(ICURD_CLDR, 'I8YYMD', 'MDYY'); CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714' ELSE ''; END TABLE FILE PMR_PROV_VAL_BASE_CLUSTER SUM COMPUTE CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714;&|#xfe0f;' ELSE ''; -*ACROSS ICURD_CLDR AS '' ACROSS CLDR_DT AS '' BY VBR_PRCG_SCHD_NM AS '' WHERE VBR_PRCG_PCT_VAL NE 0; WHERE SPEC_CD EQ 'AC' OR 'PD' OR 'OB'; WHERE PRIM_LCTN_SW EQ 'Y' WHERE VBR_PRCG_SCHD_NM NE MISSING; WHERE ICURD_CLDR NE MISSING; WHERE PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.PROV_NPI EQ &NPI; -*WHERE RECORDLIMIT EQ 10000; -*-INCLUDE /WFC/Repository/PMR/common/fex/PMR_com_filter_include.fex ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON -*ON TABLE SET SPACES 1 -*ON TABLE SET STYLEMODE FIXED ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * TYPE=REPORT, CSSURL=IBFS:/WFC/Repository/PMR/common/css/PMR_com_css_main_css.css, $ TYPE=REPORT, GRID=OFF , FONT='OpenSans', SIZE=11, STYLE=NORMAL, SQUEEZE=ON, JUSTIFY=CENTER, $ TYPE=ACROSSVALUE, STYLE=BOLD, WRAP=ON, $ TYPE=REPORT, ACROSSCOLUMN=CLDR_DT, SQUEEZE=4.0, WIDTH=0.1, $ -*TYPE=DATA, COLUMN=N4, COLOR=RED, STYLE=BOLD, $ ENDSTYLE END -RUN -2ND_RPT -*******2nd Report SET ACROSSLINE = OFF SET ACROSSTITLE = SIDE DEFINE FILE PMR_PROV_VAL_BASE_CLUSTER PRCG_SCHD/A5 = IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' THEN '5%' ELSE IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 10%' THEN '10%' ELSE IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 15%' THEN '15%' ELSE IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 20%' THEN '20%' ELSE IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 25%' THEN '25%' ELSE IF VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 30%' THEN '30%' ELSE ''; CLDR_DT/MDYY = DATECVT(ICURD_CLDR, 'I8YYMD', 'MDYY'); END TABLE FILE PMR_PROV_VAL_BASE_CLUSTER SUM VBR_GAIN_AMT/D12!d AS 'Estimated' OVER VBR_PD_ELG_AMT/D12!d AS 'Potential' OVER COMPUTE MISOPP/D12!d = VBR_PD_ELG_AMT - VBR_GAIN_AMT; AS 'Missed Opportunity' -*ACROSS ICURD_CLDR AS '' ACROSS CLDR_DT AS '' NOPRINT ACROSS PRCG_SCHD AS '' WHERE VBR_PRCG_PCT_VAL NE 0; WHERE SPEC_CD EQ 'AC' OR 'PD' OR 'OB'; WHERE PRIM_LCTN_SW EQ 'Y' WHERE VBR_PRCG_SCHD_NM NE MISSING; WHERE ICURD_CLDR NE MISSING; WHERE PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.PROV_NPI EQ &NPI; -*WHERE RECORDLIMIT EQ 10000; -*-INCLUDE /WFC/Repository/PMR/common/fex/PMR_com_filter_include.fex ON TABLE PCHOLD FORMAT HTML CLOSE ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * TYPE=REPORT, CSSURL=IBFS:/WFC/Repository/PMR/common/css/PMR_com_css_main_css.css, $ TYPE=REPORT, GRID=OFF , FONT='OpenSans', SIZE=11, STYLE=NORMAL, SQUEEZE=ON, JUSTIFY=CENTER, $ TYPE=ACROSSVALUE, STYLE=BOLD, WRAP=ON, $ TYPE=REPORT, ACROSSCOLUMN=PRCG_SCHD, SQUEEZE=2, WIDTH=3.0, $ -* style Potential using bottom border TYPE=DATA, COLUMN=VBR_PD_ELG_AMT, BORDER-BOTTOM=LIGHT, $ TYPE=DATA, ACROSSCOLUMN=VBR_PD_ELG_AMT, BORDER-BOTTOM=LIGHT, $ TYPE=TITLE, COLUMN=VBR_PD_ELG_AMT, BORDER-BOTTOM=LIGHT, $ -* style Estimated using top border TYPE=DATA, COLUMN=VBR_GAIN_AMT, BORDER-TOP=LIGHT, $ TYPE=DATA, ACROSSCOLUMN=VBR_GAIN_AMT, BORDER-TOP=LIGHT, $ TYPE=TITLE, COLUMN=VBR_GAIN_AMT, BORDER-TOP=LIGHT, $
DEFINE FILE car CHK/A150V=IF SEATS GT 2 THEN '<span style="padding-left:40px;">&|check;</span>' ELSE ''; CNTRY/A50V = '<span style="padding-left:40px;">'|| COUNTRY || '</span>'; END TABLE FILE car SUM CHK AS '' BY CAR ACROSS CNTRY AS '' ON TABLE PCHOLD FORMAT HTML ON TABLE SET NODATA '' ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * TYPE=REPORT, BORDER-TOP=LIGHT, BORDER-TOP-STYLE=SOLID, BORDER-TOP-COLOR='GREY', BORDER-RIGHT=LIGHT, BORDER-RIGHT-STYLE=SOLID, BORDER-RIGHT-COLOR='GREY', BORDER-BOTTOM=LIGHT, BORDER-BOTTOM-STYLE=SOLID, BORDER-BOTTOM-COLOR='GREY', BORDER-LEFT=LIGHT, BORDER-LEFT-STYLE=SOLID, BORDER-LEFT-COLOR='GREY', $ ENDSTYLE END -RUN
DEFINE FILE PMR_PROV_VAL_BASE_CLUSTER CLDR_DT/MDYY = DATECVT(ICURD_CLDR, 'I8YYMD', 'MDYY'); CLDR_DT2/A20V = '<span style="padding-left:40px;">'|| CLDR_DT2 || '</span>'; CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '&|#x2714;' ELSE ''; END TABLE FILE PMR_PROV_VAL_BASE_CLUSTER SUM COMPUTE CHK/A10 = IF (VBR_PRCG_SCHD_NM EQ 'Select Provider Plus 5%' OR 'Select Provider Plus 10%' OR 'Select Provider Plus 15%' OR 'Select Provider Plus 20%' OR 'Select Provider Plus 25%' OR 'Select Provider Plus 30%') THEN '<span style="padding-left:40px;">&|#x2714 </span>' ELSE ''; -*ACROSS ICURD_CLDR AS '' ACROSS CLDR_DT2 AS '' BY VBR_PRCG_SCHD_NM AS '' WHERE VBR_PRCG_PCT_VAL NE 0; WHERE SPEC_CD EQ 'AC' OR 'PD' OR 'OB'; WHERE PRIM_LCTN_SW EQ 'Y' WHERE VBR_PRCG_SCHD_NM NE MISSING; WHERE ICURD_CLDR NE MISSING; WHERE PMR_PROV_VAL_BASE_CLUSTER.PROV_DMN.PROV_NPI EQ &NPI; -*WHERE RECORDLIMIT EQ 10000; -*-INCLUDE /WFC/Repository/PMR/common/fex/PMR_com_filter_include.fex ON TABLE PCHOLD FORMAT HTML ON TABLE SET PAGE-NUM NOPAGE ON TABLE SET AUTOFIT ON ON TABLE SET TITLELINE ON -*ON TABLE SET SPACES 1 -*ON TABLE SET STYLEMODE FIXED ON TABLE SET HTMLCSS ON ON TABLE SET STYLE *
quote:CSSURL=IBFS:/WFC/Repository/PMR/common/css/PMR_com_css_main_css.css
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |