Focal Point
[SOLVED] the parameter this control has been bound to doesn't support mulitiselect

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/4087043016

September 28, 2011, 06:51 AM
Susan Gullick
[SOLVED] the parameter this control has been bound to doesn't support mulitiselect
I get the following message "the parameter this control has been bound to doesn't support mulitiselect" when i select it as one of the properties of a list box in my html. The list box is populated by a .fex with xml output and is a list of branches. What i ultimately would like to do is select multiple branches and select a report which only produces results for the selected branches.

I also do not think i have the code correct in my reports to deal with multi select.

-DEFAULT &From_Period='201101';
-DEFAULT &To_Period='201109';
-DEFAULT &Measure='Sales';
-DEFAULT &Wffmt='HTML';
-DEFAULT &Branch='01';
-DEFAULT &Sequence='NAME';
-DEFAULT &Search=' ';
-DEFAULT ECHO=ALL
SET EMPTYREPORT = ON
SET MESSAGE = ON
SET ALL = ON
SET NODATA = 0
SET LINES = 42

TABLE FILE SALESSUM
SUM
'SALESSUM.SALESSUM.SALES'
'SALESSUM.SALESSUM.SALES' AS 'TSALES'
BY 'SALESSUM.SALESSUM.BRANCH'
BY 'SALESSUM.SALESSUM.ACCOUNT'
BY 'SALESSUM.SALESSUM.PERIOD'
HEADING
""
FOOTING
""
WHERE (PERIOD GE &From_Period) AND (PERIOD LE &To_Period);
WHERE (BRANCH EQ &Branch);

Can someone point in the right direction for reading and also example of code if possible.

Also as an aside is there a hints and tips type book on webfocus. (not a manual)


Thank you in antisipation

Susan

This message has been edited. Last edited by: Kerry,


Webfocus 7.6.11
Platform: AS400 V5R4M0
Output: PDF, XML, Excel, HTML, AHTML
September 28, 2011, 09:14 AM
Todd_Wallace
I did a search for multiselect in Developer Studio and picking the selecting data link this info was displayed. These steps are for Developer Studio if you are hand coding I have some code at the bottom.

<<
Procedure: How to Create a List of Acceptable Values for a Parameter
Choose Where/If from the Report menu to open the Report Options dialog box at the Where/If tab.
or

Click the Where/If button on the Columns toolbar.

Click Assist in the Where tab to open the Expression Builder.
Double-click a field name from the list on the left side of the window to add it to the Column to filter column.
If you want to change the field name in the Column to filter column, click the down arrow and select a different field name from the list.

Click the down arrow in the Logical Relations column to select a relation from the drop-down list.
Click the down arrow in the Compare Type column and select Parameter from the drop-down list.
Double-click the Compare Value column. The Variable Editor opens.
In the Name input box, type a name for the variable. This name will appear as the Column title if the field is added to the report.
Optionally, enter text in the Prompt input box to prompt a user to supply a value for the variable.
If no Prompt text is entered, the Name entered in the preceding step is used.

From the Variable Type drop-down list, select Multiselect OR to add values for fields you want to include in your list of valid values.
In the Data source area, select Values for field.
Click the Select a field ellipsis button to get values for a field. The Value Retrieval dialog box opens.
The Value Retrieval list provides a list of available fields in your data source. Double-click a field, select Get Data, or click OK to close the Value Retrieval field list and return to the Variable Editor. The available values are listed.

Double-click values to add them to the Accept List.
Click OK to close the Variable Editor.
Click OK to close the Expression Builder.
Click OK to close the Report Options dialog box. >>

Here is some sample code with 4 static values from my data. You could use as many or as few values as you want to put in there.
  WHERE F4211.F4211.HEADER_BUSINESS_UNIT CONTAINS &BISUNIT.(OR(<Ferromatik - 10010,10010>,<Extrusion - 10020,10020>,<Uniloy - 10030,10030>,<Injection - 10040,10040>)).BISUNIT.;


Your code could be changed to:
 WHERE BRANCH EQ &Branch.(OR(<None, FOC_NULL>,<Sample 1 Display value,Sample 1>,<Sample 2 Display value,Sample 2>).Branch.;

This message has been edited. Last edited by: Todd_Wallace,


WebFOCUS 8.1.05
Windows-iSeries DB2, All Outputs
HTML
September 28, 2011, 10:53 AM
Wep5622
Please put your sample code between [ code ] tags.


WebFOCUS 8.1.03, Windows 7-64/2008-64, IBM DB2/400, Oracle 11g & RDB, MS SQL-Server 2005, SAP, PostgreSQL 11, Output: HTML, PDF, Excel 2010
: Member of User Group Benelux :
September 28, 2011, 11:01 AM
Francis Mariani
Besides any problem with your code, I've discovered that the message "the parameter this control has been bound to doesn't support mulitiselect" is misleading. Right-click on the list box and select "Set Control Type" - if it is of type "List box" then it can handle multiselect. Then check the Properties window for this select list - the Multiple property should be set to "Multiple". I would make the Size property a minimum of 3 so that the user can easily scroll to multi-select.


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
September 28, 2011, 03:40 PM
Doug
How much of the code was developed in the GUI ( Composer (Layout) ) or whatever they call it in your version?
September 29, 2011, 08:24 AM
gregv
In my experience with 7.7.02 & .03 I just ignore this message and do what I was planning to do. This has worked for me in every case (that I can remember. Confused).



Greg



current client: WF 8.1.05 & 8.2 - Windows 7 64bit - Tomcat 7 - MRE / BID - IE11

local: WF 8.2 - Windows 7 64bit - Tomcat 6 - MRE / BID - FOCUS - IE11

PMF 8
September 29, 2011, 12:32 PM
dbeagan
Be mindful that the WHERE clause in the fex needs to be consistent with the values passed. For character fields this means you want to have the proper quotes.

Single select,for example, passes &STATE value:

MI

with fex coded as:

WHERE STATE EQ '&STATE'

But multiselect passes &STATE value like:

'MI' OR 'NY' OR 'TX'

so the fex is coded as:

WHERE STATE EQ &STATE

Looks like the HEADER_BUSINESS_UNIT field in the example above is numeric and so quotes were not an issue.

Then if you want to pass this &STATE in a subsequent drilldown use &STATE.QUOTEDSTRING


WebFOCUS 8.2.06
October 05, 2011, 09:24 AM
Susan Gullick
Can i say at the beginning because you may not want to deal with this problem. I have tried many options but nothing works, no one else in my company uses Webfocus as i do so i have no work collegues to sound off with. Any help or direction would be appreciated. I think i am close but i do not program in HTML or JAVA but i can usually work out what the code means. I do program in RPG on an AS400. The ability to multiselect branches within our reports has been highlighted as the most important requirements by the users. If anyone can recommend any good books/websites it would be appreciated.

Thanking you in Antisipation


Susan



I can now run a procedure with Mulitselect parms Below is the source after it has run... i did a view source and copied and pasted, included are the defined &variable

CURRENTLY DEFINED & VARIABLES:
&ACCEPTS = 0
&APPROOT = /wfdev/ibi/apps
&AUTOINDEX = NO
&Branch = '1' OR '4' OR '12'
&Branch_TEXT = Bristol, Smethwick, Newcastle
&BASEIO = 0
&Cat1 =
&CHNGD = 0
&CUSER =
&DATE = 10/05/11
&DBMSERR = 0
&DELTD = 0
&DMY = 051011
&DMYY = 05102011
&DUPLS = 0
&ECHO = ALL
&EXITRC = 0
&From_Period = 201101
&FOCEXURL = /ibi_apps/WFServlet?IBIF_webapp=/ibi_apps&IBIC_server=EDASERV
&FOCFEXNAME = PRODGRPENQ_SALES
&FOCFOCEXEC = _prodgrpenq
&FOCGRAPHCNT = 0
&FOCHTMLURL = /ibi_html
&FOCINCLUDE = PRODGRPENQ_SALES
&FOCNEXTPAGE = 0
&FORMAT = 0
&INDEXIO = 0
&INPUT = 0
&INVALID = 0
&LINES = 0
&Measure = Sales
&Mode = Period
&MDY = 100511
&MDYY = 10052011
&NOMATCH = 0
&Pgmnum = 4
&Prdd =
&READS = 0
&RECORDS = 0
&REJECTS = 0
&RETCODE = 0
&Search =
&Sequence = NAME
&SETFILE =
&SORTIO = 0
&To_Period = 201110
&TOD = 13.34.44
&TRANS = 0
&Var_From_Per>= 201001
&Var_To_Perio>= 201010
&Wffmt = HTML
&WFDESCRIBE = OFF
&YMD = 111005
&YYMD = 20111005
-? &
[ -DEFAULT &Branch_TEXT=' ';
-DEFAULT &From_Period='201101';
-DEFAULT &To_Period='201101';
-DEFAULT &Measure='Sales';
-DEFAULT &Wffmt='HTML';
-DEFAULT &Branch='FOC_NONE';
-DEFAULT &Catd=' * * * cat code description * * *'
-DEFAULT &Prdd=' * * * product group description prodgrpenq * * *';
-DEFAULT &Sequence='NAME';
-DEFAULT &Search=' ';
-DEFAULT ECHO=ALL
SET EMPTYREPORT = ON
SET MESSAGE = ON
SET ALL = ON
SET NODATA = 0
TABLE FILE CATPF
PRINT
CATDES
BY CAT1
WHERE CAT2 = 'HD';
ON TABLE HOLD AS CATRECS FORMAT FOCUS INDEX 'CAT1'
END
JOIN
SALESSUM.SALESSUM.CAT1 IN SALESSUM TO UNIQUE CATRECS.SEG01.CAT1 IN CATRECS
AS J1
END
TABLE FILE SALESSUM
SUM
'SALESSUM.SALESSUM.SALES'
'SALESSUM.SALESSUM.SALES' AS 'TSALES'
BY 'SALESSUM.SALESSUM.CAT1'
BY 'CATRECS.SEG01.CATDES'
BY 'SALESSUM.SALESSUM.PERIOD'
BY 'SALESSUM.SALESSUM.BRANCH'
WHERE BRANCH EQ '1' OR '4' OR '12';
WHERE (PERIOD GE 201101) AND (PERIOD LE 201110);
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS PRODUCTS FORMAT FOCUS INDEX 'SALESSUM.SALESSUM.CAT1'
ON TABLE SET HTMLCSS ON
END
DEFINE FILE PRODUCTS ADD
blank/A2=' ';
-* set variable to selected sequence field
-SET &SEQ = DECODE NAME(NAME CATDES CODE CAT1 );
-SET &C_SEQ = DECODE NAME(NAME CATDES CODE CAT1 );
-SET &SEQTITLE = DECODE NAME(NAME Description CODE Group );
-* convert field contents to upper case
-SET &Srchfmt ='A'||01;
-SET &UpSrch=UPCASE(01, ,'A01');
-SET &Srch = IF EQ ' ' THEN 'FOC_NONE' ELSE ( );
-* convert decimal to char
P_BRC/F2=INT(BRANCH);
B_BRC/A2=EDIT(P_BRC);
a/I6YYM=PERIOD;
Mon_Yer/MtYY=a;
-INCLUDE branchname
-* File branchname.fex
-SET &BRANCHD=DECODE '1' OR '4' OR '12' ( 1 Bristol 01 Bristol 2 Southampton 02 Southampton 3 Plymouth 03 Plymouth 4 Smethwick 04 Smethwick 8 Fixcentre 08 Fixcentre 10 Preston 12 Newcastle 15 Coatbridge 17 Elgin 19 Cyclone 24 McArthur_Fencing 28 OakTree_Packaging 29 Reynolds 33 Galvanising 39 Leeds 41 Manufacturing 44 Forfar ELSE All );
-* convert field to uppercase, ready to compare against requested search details
Up_SeqSrch/A25=UPCASE(25, CATDES, 'A25');
END
TABLE FILE PRODUCTS
SUM
COMPUTE CNTR/I4 = CNTR + 1; AS 'Rank'
'PRODUCTS.SEG01.TSALES' AS 'Total'
BY CATDES NOPRINT
BY 'PRODUCTS.SEG01.CAT1' AS 'Group'
BY CATDES AS 'Description'
BY 'PRODUCTS.SEG01.CATDES' AS 'Description'
SUM
'PRODUCTS.SEG01.SALES' AS ' '
BY CATDES NOPRINT
BY 'PRODUCTS.SEG01.CAT1' AS 'Group'
BY CATDES AS 'Description'
BY 'PRODUCTS.SEG01.CATDES' AS 'Description'
ACROSS 'PRODUCTS.SEG01.PERIOD' NOPRINT
ACROSS 'PRODUCTS.SEG01.Mon_Yer' AS ' '
HEADING
"Product Group - SALES"
" "
"Branch: <+0>Bristol, Smethwick, Newcastle<+0> "
" "
FOOTING
"Date: <+0>Oct 5, 2011 <+0> "
"Page ON TABLE SUBFOOT
"WHERE Up_SeqSrch LIKE 'FOC_NONE';
ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE PRODUCTS.SEG01.TSALES PRODUCTS.SEG01.SALES AS 'Total'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
DEFMACRO=COND0001,
MACTYPE=RULE,
WHEN=N7 EQ 0,
$
DEFMACRO=COND0002,
MACTYPE=RULE,
WHEN=N7 LT 0,
$
DEFMACRO=COND0003,
MACTYPE=RULE,
WHEN=N6 EQ 0,
$
DEFMACRO=COND0004,
MACTYPE=RULE,
WHEN=N6 LT 0,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
$
TYPE=DATA,
COLUMN=N2,
DRILLMENUITEM='Branches',
FOCEXEC=Prodgrpbrchs_sales_drill( \
From_Period='201101' \
To_Period='201110' \
Wffmt='HTML' \
Branch='''1'' OR ''4'' OR ''12''' \
Cat1=N2 \
Prdd=N4 \
),
TARGET='iframe2',
DRILLMENUITEM='Customers',
FOCEXEC=cusgrpitm_sales_drill( \
From_Period='201101' \
To_Period='201110' \
Wffmt='HTML' \
Branch='''1'' OR ''4'' OR ''12''' \
Cat1=N2 \
Prdd=N4 \
),
TARGET='iframe2',
DRILLMENUITEM='Cat Codes',
FOCEXEC=prodgrpcat_sales_drill( \
From_Period='201101' \
To_Period='201110' \
Wffmt='HTML' \
Cat1=N2 \
Prdd=N4 \
Branch='''1'' OR ''4'' OR ''12''' \
),
TARGET='iframe2',
DRILLMENUITEM='Items',
FOCEXEC=prodgrpitm_sales( \
From_Period='201101' \
To_Period='201110' \
Wffmt='HTML' \
Cat1=N2 \
Prdd=N4 \
Branch='''1'' OR ''4'' OR ''12''' \
),
TARGET='iframe2',
$
TYPE=DATA,
COLUMN=N6,
COLOR=RGB(51 102 255),
STYLE=BOLD,
MACRO=COND0003,
$
TYPE=DATA,
COLUMN=N6,
COLOR='RED',
STYLE=BOLD,
MACRO=COND0004,
$
TYPE=DATA,
ACROSSCOLUMN=N1,
DRILLMENUITEM='Branches',
FOCEXEC=Prodcatbrchs_sales_drill( \
From_Period=A1 \
To_Period=A1 \
Wffmt='HTML' \
Branch='''1'' OR ''4'' OR ''12''' \
Cat1=N2 \
Prdd=N4 \
),
TARGET='iframe2',
DRILLMENUITEM='Customers',
FOCEXEC=cusgrpitm_sales_drill( \
From_Period=A1 \
To_Period=A1 \
Wffmt='HTML' \
Branch='''1'' OR ''4'' OR ''12''' \
Cat1=N2 \
Prdd=N4 \
),
TARGET='iframe2',
DRILLMENUITEM='Cat Codes',
FOCEXEC=prodgrpcat_sales_drill( \
From_Period=A1 \
To_Period=A1 \
Wffmt='HTML' \
Cat1=N2 \
Prdd=N4 \
Branch='''1'' OR ''4'' OR ''12''' \
),
TARGET='iframe2',
DRILLMENUITEM='Items',
FOCEXEC=prodgrpitm_sales( \
From_Period=A1 \
To_Period=A1 \
Wffmt='HTML' \
Cat1=N2 \
Prdd=N4 \
Branch='''1'' OR ''4'' OR ''12''' \
),
TARGET='iframe2',
$
TYPE=DATA,
ACROSSCOLUMN=N1,
COLOR=RGB(51 102 255),
STYLE=BOLD,
MACRO=COND0001,
$
TYPE=DATA,
ACROSSCOLUMN=N1,
COLOR='RED',
STYLE=BOLD,
MACRO=COND0002,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=3,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=4,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
JUSTIFY=RIGHT,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=FIELD,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=FIELD,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSVALUE,
ACROSS=2,
STYLE=BOLD,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=ACROSSTITLE,
ACROSS=2,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END
-EXIT ]
0 NUMBER OF RECORDS IN TABLE= 99 LINES= 99
0 NUMBER OF RECORDS IN TABLE= 135201 LINES= 1762
0 NUMBER OF RECORDS IN TABLE= 1762 LINES= 81



records are displayed as expected.


Initially the drilldown didn't work but on reading the forums and experimenting the drilldown list displays (before just got the yellow triangle) when i select a drill down it fails. Below is the code detailing the failure reason



CURRENTLY DEFINED & VARIABLES:
&ACCEPTS = 0
&APPROOT = /wfdev/ibi/apps
&AUTOINDEX = NO
&Branch = ''1'' OR ''4'' OR ''12''
&BASEIO = 0
&Cat1 = 64
&CHNGD = 0
&CUSER =
&DATE = 10/05/11
&DBMSERR = 0
&DELTD = 0
&DMY = 051011
&DMYY = 05102011
&DUPLS = 0
&ECHO = OFF
&EXITRC = 0
&From_Period = 201101
&FOCEXURL = /ibi_apps/WFServlet?IBIF_webapp=/ibi_apps&IBIC_server=EDASERV
&FOCFEXNAME = cusgrpitm_sales_drill
&FOCFOCEXEC = _cusgrpitm_sales_drill
&FOCGRAPHCNT = 0
&FOCHTMLURL = /ibi_html
&FOCINCLUDE = cusgrpitm_sales_drill
&FOCNEXTPAGE = 0
&FORMAT = 0
&INDEXIO = 0
&INPUT = 0
&INVALID = 0
&LINES = 0
&MDY = 100511
&MDYY = 10052011
&NOMATCH = 0
&Prdd = ANTI-VANDAL BARRIERS
&READS = 0
&RECORDS = 0
&REJECTS = 0
&RETCODE = 0
&SETFILE =
&SORTIO = 0
&To_Period = 201110
&TOD = 13.39.26
&TRANS = 0
&Wffmt = HTML
&WFDESCRIBE = OFF
&YMD = 111005
&YYMD = 20111005


[ -DEFAULT ECHO=ALL
SET EMPTYREPORT = ON
SET MESSAGE = ON
SET ALL = ON
SET NODATA = 0
DEFINE FILE SALESSUM
Branch_chr/A3=EDIT(SALESSUM.SALESSUM.BRANCH);
END
TABLE FILE SALESSUM
SUM
'SALESSUM.SALESSUM.SALES'
'SALESSUM.SALESSUM.SALES' AS 'TSALES'
BY 'SALESSUM.SALESSUM.CAT1'
BY 'SALESSUM.SALESSUM.PERIOD'
BY 'SALESSUM.SALESSUM.BRANCH'
BY 'SALESSUM.SALESSUM.Branch_chr'
BY 'SALESSUM.SALESSUM.ACCOUNT'
WHERE (PERIOD GE '201101') AND (PERIOD LE '201110');
WHERE CAT1 EQ '64';
WHERE BRANCH EQ '''1'' OR ''4'' OR ''12''';
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS CUSGRP FORMAT FOCUS
END
JOIN
CUSGRP.SEG01.BRANCH AND CUSGRP.SEG01.ACCOUNT IN CUSGRP TO UNIQUE
FOCUSTPF.FOCUSTPF.FCBRCH AND FOCUSTPF.FOCUSTPF.FCACNO IN FOCUSTPF AS J1
END
DEFINE FILE CUSGRP ADD
a/I6YYM=PERIOD;
Mon_Yer/MtYY=a;
-INCLUDE branchname
-* File branchname.fex
-SET &BRANCHD=DECODE ''1'' OR ''4'' OR ''12'' ( 1 Bristol 01 Bristol 2 Southampton 02 Southampton 3 Plymouth 03 Plymouth 4 Smethwick 04 Smethwick 8 Fixcentre 08 Fixcentre 10 Preston 12 Newcastle 15 Coatbridge 17 Elgin 19 Cyclone 24 McArthur_Fencing 28 OakTree_Packaging 29 Reynolds 33 Galvanising 39 Leeds 41 Manufacturing 44 Forfar ELSE All );
P_BRC/F2=INT(FCBRCH);
B_BRC/A2=EDIT(P_BRC);
I_FCACNO/F6=INT(FCACNO);
C_FCACNO/A6=EDIT(I_FCACNO);
END
TABLE FILE CUSGRP
SUM
'CUSGRP.SEG01.Branch_chr'
'FOCUSTPF.FOCUSTPF.FCNAME' AS 'Customer Name'
COMPUTE CNTR/I4 = CNTR + 1; AS 'Rank'
'CUSGRP.SEG01.TSALES' AS 'Total'
BY 'FOCUSTPF.FOCUSTPF.FCNAME' NOPRINT AS 'Customer Name'
BY 'CUSGRP.SEG01.BRANCH' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.B_BRC' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.C_FCACNO' NOPRINT
BY 'CUSGRP.SEG01.ACCOUNT' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.FCBRAC'
SUM
'CUSGRP.SEG01.SALES' AS ' '
BY 'FOCUSTPF.FOCUSTPF.FCNAME' NOPRINT AS 'Customer Name'
BY 'CUSGRP.SEG01.BRANCH' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.B_BRC' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.C_FCACNO' NOPRINT
BY 'CUSGRP.SEG01.ACCOUNT' NOPRINT
BY 'FOCUSTPF.FOCUSTPF.FCBRAC'
ACROSS 'CUSGRP.SEG01.PERIOD' NOPRINT AS ''
ACROSS 'CUSGRP.SEG01.Mon_Yer' AS ' '
HEADING
" Product Group - SALES"
"Branch: <+0>''1'' OR ''4'' OR ''12'' - All<+0> "
" "
"Product Group: <+0>64<+0> - <+0>ANTI-VANDAL BARRIERS "
" "
FOOTING
"Date <+0> 5 Oct, 2011"
"Page ON TABLE SUBFOOT
"ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE CUSGRP.SEG01.TSALES CUSGRP.SEG01.SALES AS 'Total'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
TOPMARGIN=0.500000,
BOTTOMMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
DEFMACRO=COND0001,
MACTYPE=RULE,
WHEN=N11 EQ 0,
$
DEFMACRO=COND0002,
MACTYPE=RULE,
WHEN=N11 LT 0,
$
DEFMACRO=COND0003,
MACTYPE=RULE,
WHEN=N10 EQ 0,
$
DEFMACRO=COND0004,
MACTYPE=RULE,
WHEN=N10 LT 0,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
$
TYPE=DATA,
COLUMN=N6,
TARGET='iframe2',
DRILLMENUITEM='Items',
FOCEXEC=cusprditm_sales_drill( \
From_Period='201101' \
To_Period='201110' \
Wffmt='HTML' \
Branch=N3 \
Account=N5 \
Cat2='FOC_NONE' \
Cat3='FOC_NONE' \
Prdd='ANTI-VANDAL BARRIERS' \
Cat1='64' \
),
DRILLMENUITEM='Properties',
FOCEXEC=properties.fex( \
Branch=N3 \
AccountNo=N4 \
),
$
TYPE=DATA,
COLUMN=N5,
SIZE=9,
$
TYPE=DATA,
COLUMN=N10,
COLOR=RGB(51 102 255),
STYLE=BOLD,
MACRO=COND0003,
$
TYPE=DATA,
COLUMN=N10,
COLOR='RED',
STYLE=BOLD,
MACRO=COND0004,
$
TYPE=DATA,
ACROSSCOLUMN=N1,
COLOR=RGB(51 102 255),
STYLE=BOLD,
MACRO=COND0001,
$
TYPE=DATA,
ACROSSCOLUMN=N1,
COLOR='RED',
STYLE=BOLD,
MACRO=COND0002,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N5,
SIZE=9,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
BACKCOLOR='WHITE',
$
TYPE=HEADING,
LINE=1,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=1,
OBJECT=TEXT,
ITEM=3,
SIZE=10,
$
TYPE=HEADING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
$
TYPE=HEADING,
LINE=1,
OBJECT=FIELD,
ITEM=2,
SIZE=10,
$
TYPE=HEADING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=2,
OBJECT=TEXT,
ITEM=3,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=2,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
$
TYPE=HEADING,
LINE=2,
OBJECT=FIELD,
ITEM=2,
SIZE=10,
$
TYPE=HEADING,
LINE=3,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=3,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=4,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=5,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=FIELD,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=HEADING,
LINE=4,
OBJECT=FIELD,
ITEM=2,
SIZE=10,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
JUSTIFY=RIGHT,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=FIELD,
ITEM=1,
FONT='TIMES NEW ROMAN',
$
TYPE=FOOTING,
LINE=2,
OBJECT=FIELD,
ITEM=2,
FONT='TIMES NEW ROMAN',
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSVALUE,
ACROSS=1,
SIZE=8,
$
TYPE=ACROSSVALUE,
ACROSS=2,
SIZE=9,
STYLE=BOLD,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=ACROSSTITLE,
ACROSS=1,
SIZE=8,
STYLE=BOLD,
$
TYPE=ACROSSTITLE,
ACROSS=2,
SIZE=9,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
SIZE=10,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END ]

(FOC1517) UNRECOGNIZED COMMAND -* FILE CUSGRPITM_SALES_DRILL.FEX
0 ERROR AT OR NEAR LINE 33 IN PROCEDURE cusgrpitm_sales_dr
(FOC006) THE FORMAT OF THE TEST VALUE IS INCONSISTENT WITH FIELD FORMAT: '1' OR
'4' OR '12'
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
0 ERROR AT OR NEAR LINE 41 IN PROCEDURE cusgrpitm_sales_dr
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CUSGRP
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CUSGRP
BYPASSING TO END OF COMMAND
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CUSGRP
BYPASSING TO END OF COMMAND

Webfocus 7.6.11
Platform: AS400 V5R4M0
Output: PDF, XML, Excel, HTML, AHTML


Webfocus 7.6.11
Platform: AS400 V5R4M0
Output: PDF, XML, Excel, HTML, AHTML