Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Would anyone here know of poss. causes of this error?:

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] Would anyone here know of poss. causes of this error?:
 Login/Join
 
Virtuoso
posted
Hey all,

I've got a report I'm bringing over from 7.6.11 to our 8.1 environment. I've fixed all the links (I think) to full paths/new reqd. formats, and made sure all needed synonyms it requests data through are created and available via the app path. When I go to run it, I am given the autoprompt facility with default values supplied to each parameter needed to be resolved. I hit run after such and get the following error:

<ibfsrpc _jt="IBFSResponseObject" language="EN" localizeddesc="Abnormal termination of reporting server agent (Crashed or extreme operator kill)" name="runAdHocFex" returncode="32027" returndesc="IBFSException 32027: local error" subreturncode="0" subsystem="SSYS" type="simple">
+ <ibfsparams size="7">
- <ibfserrorvalues size="3">
  <entry key="appName" value="server1 server2 server3 images ibisamp baseapp" /> 
  <entry key="edaNode" value="EDASERVE" /> 
  <entry key="MSG" value="local error" /> 
  </ibfserrorvalues>
  </ibfsrpc>


Does anyone here on the forums know what this error refers to or what would cause this kind of error to occur?

Thanks in advance!

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


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Virtuoso
posted Hide Post
That could be several things. The real error was probably hidden by setting SET ERROROUT = ON (No, I really didn't mean OFF):

  • The process tried to create a FOCUS file larger than the maximam supported size (~2GB, IIRC)
  • The agent ran out of memory
  • The agent crashed for some other reason (probably a bug)


In the last two cases, there should be some evidence of what happened in the server's EDAPRINT.LOG file.

If this is reproducible, your best bet is to create a savediag and open a case with IBI.

For ways to debug this, start with SET ERROROUT = OFF. Then place -EXIT's (or -QUIT if you're in a subroutine) until you find at which point your procedure crashes.

Most efficient is to apply the principle of a binary search here; place the first -EXIT halfway in your fex (between statements of course). Do you get the crash? Place it halfway the first half. Didn't crash? Place it halfway the second half. Repeat.


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 :
 
Posts: 1669 | Location: Enschede, Netherlands | Registered: August 12, 2010Report This Post
Virtuoso
posted Hide Post
Wep5622,

Thanks for your insights and tips. I will try your troubleshooting method and see what goes down.

What directory is the EDAPRINT.LOG file in? Or where would I find it? Is it different for every site? Or does it have a default location? Thanks!


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Expert
posted Hide Post
quote:
returncode="32027"

This is the important piece of information.

T



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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Expert
posted Hide Post
Emily Max posted this in the early part of last year, which may be useful for you.

T



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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Virtuoso
posted Hide Post
Tony,

quote:
Originally posted by Tony A:
quote:
returncode="32027"

This is the important piece of information.


Is there somewhere where these return codes are documented?

Also, thanks for the link! Way helpful! Appreciate it!


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Expert
posted Hide Post
I don't know if there is written documentation, but we can get online documentation. Simply run the command question-mark error-number:

? 1001

This returns:
 (FOC1001) ACCESS NOT SUPPORTED. CHECK SUFFIX IN THE MASTER %1%2%3%4
 The ACCESS method for the file is not
 supported by FOCUS. The SUFFIX parameter in
 the Master File Description must specify
 VSAM, ISAM, FIX ,COM, OR XFOC.

Unfortunately, the newer numbers (generally 5-digit numbers) don't usually have an explanation (I'm not sure why):

? 32027
 (FOC32027) CONSOLE CONNECT TO %1 FAILED

This message has been edited. Last edited by: Francis Mariani,


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
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Virtuoso
posted Hide Post
Thanks Francis! Hopefully they will add some additional explanation here soon or docs for the various error codes.


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Virtuoso
posted Hide Post
Hey all,

So, after attempting to place -EXIT at various places to figure out where it crashes, I found that I get what follows after placing the -EXIT where it finally doesn't crash (which makes little sense to me as to why it doesn't based on where I put it).

For some reason it's saying it doesn't recognize a DEFINE field/word used in a WHERE clause within the code (SELL). Or at least that is what it claims it can't. Not sure why it had issue with SELL and not COST. Just above the WHERE line in question is an IF phrase line with unfamiliar syntax that when processes doesn't show a complete statement. I'm wondering if that is the real issue. Does it look like legit syntax to any of you? --> IF STRMEMBR EQ &MEMBR.(OR()).

Code in question (the WHERE is at the bottom of this snippet):
DEFINE FILE HOLD
COST/D14.4=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S2;
-* Here's where SELL is defined:
SELL/D14.4=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S1;
-*CE/D14=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S4;
QTY/D14=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S3;
-*DRPCE/D14=IF &B3 EQ 3190 THEN &S4 ELSE 0;
DRPQTY/D14=IF &B3 EQ 3190 THEN &S3 ELSE 0;
ADJ/D14.4=IF &B3 EQ 3330 THEN -&S2 ELSE 0;
DRPCOST/D14.4=IF &B3 EQ 3190 THEN &S2 ELSE 0;
DRPSELL/D14.4=IF &B3 EQ 3190 THEN &S1 ELSE 0;
Division/A10=DECODE DIV ( 1 'city 1' 3 city2 6 city3 0 'Adj' ELSE 'Bad Code' );
Mbr/A3='Mbr';
END

TABLE FILE HOLD
SUM
  &S2
  &S1
  SELL
  COST
  ADJ
  DRPCOST
  DRPSELL
  QTY
DRPQTY
BY DIV
BY STR
BY Division
BY Mbr
ON TABLE HOLD AS ATHLD FORMAT FOCUS INDEX DIV STR
END

JOIN
 ATHLD.SEG01.DIV AND ATHLD.SEG01.STR IN ATHLD
 TO UNIQUE STORE.STORE.STRDIVNO AND STORE.STORE.STRSTOREID IN STORE AS J0
 END

TABLE FILE ATHLD
SUM
     SELL/P15C AS 'Reg,Sales'
     COST/P15C AS 'CostOf,Sales'
     COMPUTE RegMarginPct/D7.1% = ( (SELL - COST ) / SELL ) * 100; AS 'Reg,Margin'
     DRPSELL/P15C AS 'Drop,Sales'
     DRPCOST/P15C AS 'CostOf,DropSales'
     COMPUTE DropMarginPct/D7.1% = ( (DRPSELL - DRPCOST) / DRPSELL ) * 100; AS 'Drop,Margin'
     ADJ/P15C AS 'Inv,Adj'
     COMPUTE NetMargin/D12 = (SELL + DRPSELL); AS 'Net,Sales'
     COMPUTE MarginPct/D7.1% = ( (SELL + DRPSELL + ADJ - COST - DRPCOST) / &S1 ) * 100; AS 'Net,Margin'
     PCT.&S1/P12.2% AS 'Mix'
  QTY/P15C AS 'InvUnits'
  DRPQTY/P15C AS 'Drop,InvUnits'
BY Mbr AS ''
BY DIV NOPRINT AS 'Division'
BY Division
IF STRMEMBR EQ &MEMBR.(OR()).
WHERE STRMEMBR NE '8' &AFM;
WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;


Output of the IF and WHERE statements in question:
  
BY Division
 IF STRMEMBR EQ
 WHERE STRMEMBR NE '8' FOC_NONE;
 WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;


Here's the entirety of the code for the procedure if this helps:
  
-INCLUDE IBFS:/EDA/EDASERVE/baseapp/getdatescal.fex
-INCLUDE IBFS:/EDA/EDASERVE/baseapp/sql_trace.fex

SET BYDISPLAY = ON

-DEFAULT &Rec_Code    = 'K'
-DEFAULT &Nat_Code    = 'E'
-DEFAULT &DIV         = 'FOC_NONE'
-DEFAULT &DIV_TEXT    = 'All'
-DEFAULT &MEMBR       = 'FOC_NONE'
-DEFAULT &MEMBR_TEXT  = 'All'
-DEFAULT &DTFMT       = 'Default'
-DEFAULT &ARS         = 'FOC_NONE'
-DEFAULT &AFM         = 'FOC_NONE'

-DEFAULT &T_DATE_STR  = &YESTERDAY
-DEFAULT &T_DATE_END  = &YESTERDAY

-DEFAULT &T_DATE_STR2 = 'X'
-DEFAULT &T_DATE_END2 = 'X'
-DEFAULT &T_DATE_STR2_TEXT = 'X'
-DEFAULT &T_DATE_END2_TEXT = 'X'

-SET &Rec_Filter   = DECODE &Rec_Code ( 'A' 'S' 'B' 'A' 'C' 'J' 'D' 'I' 'E' 'W' 'F' 'T' 'G' 'S OR A OR J' 'H' 'S OR T' 'I' 'S OR A OR I OR J' 'J' 'B' 'K' 'S OR A OR I OR J OR X' 'FOC_NONE' 'FOC_NONE' ELSE 'X');
-SET &XRec_Code    = IF &Rec_Code EQ 'FOC_NONE' THEN 'X' ELSE &Rec_Code;

-SET &Rec_Descript = DECODE &Rec_Code ( 'A' 'Sales' 'B' 'Adjustments' 'C' 'J Entries' 'D' 'Interbranch' 'E' 'brand' 'F' 'Taxes' 'G' 'Sales, Adj, and J' 'H' 'Sales and Taxes' 'I' 'Sales, Adj, branch, and J' 'J' 'Trans' 'K' 'Sales, Adj, branch, Journal and P' 'X' 'FOC_NONE' 'FOC_NONE' 'FOC_NONE' ELSE 'Error');

-SET &Nat_Filter   = DECODE &Nat_Code ( 'A' 31000 'B' 31900 'C' 33300 'D' '31000 OR 31900' 'E' '31000 OR 31900 OR 33300' 'F' 32000 'X' 'FOC_NONE' 'FOC_NONE' 'FOC_NONE' ELSE 'X');
-SET &XNat_Code    = IF &Nat_Code EQ 'FOC_NONE' THEN 'X' ELSE &Nat_Code;

-SET &Nat_Descript = DECODE &Nat_Code ( 'A' Sales 'B' Drops 'C' Adj 'D' 'Sales and Drops' 'E' 'Sales, Drops, and Adj' 'F' 'Purchases' 'X' 'FOC_NONE' 'FOC_NONE' 'FOC_NONE' ELSE 'Error');

-SET &MEMBR        = IF &MEMBR NE 'FOC_NONE' THEN STRREP(&MEMBR.LENGTH, &MEMBR, 1, '''', 0, 'X', &MEMBR.LENGTH, '&MEMBR') ELSE 'FOC_NONE';

-SET &XMEMBR       = IF &MEMBR EQ 'FOC_NONE' THEN 'X' ELSE &MEMBR;

-SET &ARS          = IF &ARS EQ 'Y' THEN '' ELSE 'FOC_NONE';
-SET &AFM          = IF &AFM EQ 'Y' THEN '' ELSE 'FOC_NONE';
-SET &ARSTEXT      = IF &ARS NE 'FOC_NONE' THEN 'Only y Stores' ELSE 'FOC_NONE';
-SET &AFMTEXT      = IF &AFM NE 'FOC_NONE' THEN 'Excluding x Stores' ELSE 'FOC_NONE';

-SET &XARS         = IF &ARS EQ 'FOC_NONE' THEN 'X' ELSE &ARS;
-SET &XAFM         = IF &AFM EQ 'FOC_NONE' THEN 'X' ELSE &AFM;

-SET &Division     = IF &DIV EQ 1 THEN 'city 1' ELSE IF &DIV EQ 3 THEN 'city 2' ELSE IF &DIV EQ 6 THEN 'city 3' ELSE 'FOC_NONE';

-GOTO &DTFMT;

-Default
-SET &TRANS_DATE_START = &YESTERDAY;
-SET &TRANS_DATE_END   = &TRANS_DATE_START;

-GOTO Daily2;

-Daily
-SET &TRANS_DATE_START = EDIT(&T_DATE_STR,'99/') | EDIT(&T_DATE_STR,'$$99/') | EDIT(&T_DATE_STR,'$$$$9999');
-SET &TRANS_DATE_END   = EDIT(&T_DATE_END,'99/') | EDIT(&T_DATE_END,'$$99/') | EDIT(&T_DATE_END,'$$$$9999');

-Daily2
-SET &ISWK   = 'N';
-SET &TAB    = 'ACTTRANS';
-SET &B1     = 'ATSTOREDIVNO';
-SET &B2     = 'ATALTSTOREID';
-SET &B3     = 'ATGLNATURALACCT';
-SET &W1     = 'ATRECORDTYPE';
-SET &W2     = 'ATTRANSDATE';
-SET &W3     = 'ATTRANSDATE';
-SET &W4     = 'ATGLDEPTCODE';
-SET &S1     = 'ATSELLAMT';
-SET &S2     = 'ATCOSTAMT';
-SET &S3     = 'ATQUANTITY';

-GOTO StartFex;

-Weekly
-IF &T_DATE_STR2 GT &T_DATE_END2 THEN GOTO WeekErr;

-SET &TRANS_DATE_START = EDIT(&T_DATE_STR2,'$$$$99/') | EDIT(&T_DATE_STR2,'$$$$$$99/') | EDIT(&T_DATE_STR2,'9999');
-SET &TRANS_DATE_END   = EDIT(&T_DATE_END2,'$$$$99/') | EDIT(&T_DATE_END2,'$$$$$$99/') | EDIT(&T_DATE_END2,'9999');

-SET &ISWK   = 'Y';
-SET &TAB    = 'ACTTRANSW';
-SET &B1     = 'ATWSTOREDIVNO';
-SET &B2     = 'ATWALTSTORENO';
-SET &B3     = 'ATWGLNATURALACCT';
-SET &W1     = 'ATWRECORDTYPE';
-SET &W2     = 'ATWBEGDATE';
-SET &W3     = 'ATWENDDATE';
-SET &W4     = 'ATWGLDEPTCODE';
-SET &S1     = 'ATWSELLAMT';
-SET &S2     = 'ATWCOSTAMT';
-SET &S3     = 'ATWQUANTITY';

-StartFex
SET ASNAMES = ON
TABLE FILE &TAB
SUM
     &S1
     &S2
  &S3
BY &B1 AS DIV
BY &B2 AS STR
BY &B3
IF &W1 EQ &Rec_Filter
WHERE &B1 EQ &DIV;
WHERE &B1 EQ 1 AND &B2 IN (55,57,83,85,86,84,87,94,91,97,98,99,998,101,105,104,102,109,130,147,142,174,176,14) &ARS;
WHERE &B3 EQ &Nat_Filter;
WHERE &W2 GE DT('&TRANS_DATE_START');
WHERE &W3 LE DT('&TRANS_DATE_END');
WHERE &W4 NE 500;
ON TABLE HOLD
END

-RUN

DEFINE FILE HOLD
COST/D14.4=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S2;
SELL/D14.4=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S1;
QTY/D14=IF &B3 EQ 3330 OR &B3 EQ 3190 THEN 0 ELSE &S3;
DRPQTY/D14=IF &B3 EQ 3190 THEN &S3 ELSE 0;
ADJ/D14.4=IF &B3 EQ 3330 THEN -&S2 ELSE 0;
DRPCOST/D14.4=IF &B3 EQ 3190 THEN &S2 ELSE 0;
DRPSELL/D14.4=IF &B3 EQ 3190 THEN &S1 ELSE 0;
Division/A10=DECODE DIV ( 1 'city 1' 3 city2 6 city3 0 'Adj' ELSE 'Bad Code' );
Mbr/A3='Mbr';
END

TABLE FILE HOLD
SUM
  &S2
  &S1
  SELL
  COST
  ADJ
  DRPCOST
  DRPSELL
  QTY
DRPQTY
BY DIV
BY STR
BY Division
BY Mbr
ON TABLE HOLD AS ATHLD FORMAT FOCUS INDEX DIV STR
END

JOIN
 ATHLD.SEG01.DIV AND ATHLD.SEG01.STR IN ATHLD
 TO UNIQUE STORE.STORE.STRDIVNO AND STORE.STORE.STRSTOREID IN STORE AS J0
 END

TABLE FILE ATHLD
SUM
     SELL/P15C AS 'Reg,Sales'
     COST/P15C AS 'CostOf,Sales'
     COMPUTE RegMarginPct/D7.1% = ( (SELL - COST ) / SELL ) * 100; AS 'Reg,Margin'
     DRPSELL/P15C AS 'Drop,Sales'
     DRPCOST/P15C AS 'CostOf,DropSales'
     COMPUTE DropMarginPct/D7.1% = ( (DRPSELL - DRPCOST) / DRPSELL ) * 100; AS 'Drop,Margin'
     ADJ/P15C AS 'Inv,Adj'
     COMPUTE NetMargin/D12 = (SELL + DRPSELL); AS 'Net,Sales'
     COMPUTE MarginPct/D7.1% = ( (SELL + DRPSELL + ADJ - COST - DRPCOST) / &S1 ) * 100; AS 'Net,Margin'
     PCT.&S1/P12.2% AS 'Mix'
  QTY/P15C AS 'InvUnits'
  DRPQTY/P15C AS 'Drop,InvUnits'
BY Mbr AS ''
BY DIV NOPRINT AS 'Division'
BY Division
IF STRMEMBR EQ &MEMBR.(OR()).
WHERE STRMEMBR NE '8' &AFM;
WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;
HEADING
"Summary"
FOOTING
"&FOCFEXNAME - Ran on <+0>&DATEtMDYY <+0> at: &TOD"
ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE AS 'Totals'
ON TABLE PCHOLD FORMAT HTML
-* &WFFMT.(<HTML,HTML>,<Excel 2000,EXL2K>).Select type of display output.
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     FONT='ARIAL',
     SIZE=9,
     COLOR='BLACK',
     BACKCOLOR='NONE',
     STYLE=NORMAL,
     TITLETEXT='Division',
$
TYPE=DATA,
     SIZE=8,
     BACKCOLOR=( RGB(234 234 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=Division,
     FOCEXEC=IBFS:/WFC/Repository/f/d/dsdep.fex(ISWK='&ISWK' MEMBR='&XMEMBR' MEMBR_TEXT='&MEMBR_TEXT' ARS='&XARS' AFM='&XAFM' DIV=DIV Division=Division TRANS_DATE_START='&TRANS_DATE_START' TRANS_DATE_END='&TRANS_DATE_END' WFFMT='HTML' Rec_Code='&XRec_Code' Nat_Code='&XNat_Code'),
$
TYPE=DATA,
     COLUMN=DRPSELL,
     FOCEXEC=IBFS:/WFC/Repository/f/d/dsdrp.fex(MEMBR='&XMEMBR' MEMBR_TEXT='&MEMBR_TEXT' ARS='&XARS' AFM='&XAFM' DIV=DIV Division=Division TRANS_DATE_START='&TRANS_DATE_START' TRANS_DATE_END='&TRANS_DATE_END' WFFMT='HTML' Rec_Code='&XRec_Code'),
     WHEN=Division NE 'Adj',
$
TYPE=DATA,
     COLUMN=ADJ,
     FOCEXEC=IBFS:/WFC/Repository/f/d/dsadj.fex(MEMBR='&XMEMBR' MEMBR_TEXT='&MEMBR_TEXT' ARS='&XARS' AFM='&XAFM' DIV=DIV Division=Division TRANS_DATE_START='&TRANS_DATE_START' TRANS_DATE_END='&TRANS_DATE_END' WFFMT='HTML' Rec_Code='&XRec_Code'),
$
TYPE=DATA,
     COLUMN=Mbr,
     TARGET='_blank',
     FOCEXEC=IBFS:/WFC/Repository/f/d/dsmbr.fex(ISWK='&ISWK' MEMBR='&XMEMBR' MEMBR_TEXT='&MEMBR_TEXT' ARS='&XARS' AFM='&XAFM' DIV=DIV Division=Division TRANS_DATE_START='&TRANS_DATE_START' TRANS_DATE_END='&TRANS_DATE_END' WFFMT='HTML' Rec_Code='&XRec_Code' Nat_Code='&XNat_Code'),
$
TYPE=TITLE,
     BORDER=LIGHT,
     BORDER-STYLE=RIDGE,
     BORDER-COLOR=RGB(51 51 153),
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=TABHEADING,
     STYLE=BOLD,
$
TYPE=TABFOOTING,
     STYLE=BOLD,
$
TYPE=HEADING,
     BORDER=LIGHT,
     BORDER-STYLE=RIDGE,
     BORDER-COLOR=RGB(51 51 153),
     SIZE=10,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     JUSTIFY=CENTER,
$
TYPE=HEADING,
     LINE=1,
     SIZE=14,
     STYLE=BOLD,
$
TYPE=FOOTING,
     BORDER=LIGHT,
     BORDER-STYLE=RIDGE,
     BORDER-COLOR=RGB(51 51 153),
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     STYLE=BOLD,
$
TYPE=SUBFOOT,
     BORDER=LIGHT,
     BORDER-STYLE=RIDGE,
     BORDER-COLOR=RGB(51 51 153),
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=SUBTOTAL,
     SIZE=8,
     STYLE=BOLD,
$
TYPE=ACROSSVALUE,
     SIZE=8,
     STYLE=BOLD,
$
TYPE=ACROSSTITLE,
     SIZE=8,
     STYLE=BOLD,
$
TYPE=GRANDTOTAL,
     SIZE=9,
     STYLE=BOLD,
$
TYPE=REPORT,
     IMAGE=IBFS:/EDA/EDASERVE/images/logo.gif,
     POSITION=(+0 +0),
$
ENDSTYLE
END

-* Where I am able to place a -EXIT without it crashing...
-EXIT

-SET &ERR = &FOCERRNUM;
-IF &ERR NE 0 GOTO FOCERROR;

-IF &LINES GT 0 THEN GOTO The_End;
EX IBFS:/EDA/EDASERVE/baseapp/message.fex MESSAGE=Your selection criteria failed to select any records.
-GOTO The_End;

-WeekErr
EX IBFS:/EDA/EDASERVE/baseapp/message.fex MESSAGE='Start week must be prior or equal to end week.'
-GOTO The_End;

-FOCERROR
EX IBFS:/EDA/EDASERVE/baseapp/message.fex MESSAGE=An error occurred in &FOCFEXNAME ( &ERR)
-The_End


Any ideas on what could be the issue?


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Expert
posted Hide Post
Sometimes, when you post code, you ned to post the result of the execution, which includes the translated Dialogue Manager variables.

IF STRMEMBR EQ &MEMBR.(OR()).
WHERE STRMEMBR NE '8' &AFM;


I don't know what the first statement above means.

I don't know what would happen if &AFM equals FOC_NONE.


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
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Virtuoso
posted Hide Post
quote:
Originally posted by CoolGuy:
Output of the IF and WHERE statements in question:
  
BY Division
 IF STRMEMBR EQ
 WHERE STRMEMBR NE '8' FOC_NONE;
 WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;



I'm pretty sure that IF statement isn't valid the way it ended up after parsing by DM. What that line was supposed to do was to prompt with a multi-select list of values in autoprompt, or something like that. We use neither IF clauses nor autoprompt hints, so I'm not 100% on that.

The next line contains FOC_NONE, so that line gets ignored.

So I think that the result is:
 IF STRMEMBR EQ WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;


The parser probably gets as far as IF STRMEMBR EQ WHERE and then trips over the next "statement", SELL: Syntax error. If it would have been able to carry on, the next problem would have been that the field WHERE does not exist.


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 :
 
Posts: 1669 | Location: Enschede, Netherlands | Registered: August 12, 2010Report This Post
Virtuoso
posted Hide Post
Thanks Wep5622,

Yeah, I'm not sure what the original coder was trying to do here, but your guesses are probably close to spot on.

Are WHERE statements allowed in an IF statement? Never seen that used that way before.


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
Virtuoso
posted Hide Post
Just add something to catch the situation where &MEMBR is blank:
After your "-DEFAULT" statements, add
-SET &MEMBR = IF &MEMBR EQ '' THEN 'FOC_NONE' ELSE &MEMBR;


- Jack Gross
WF through 8.1.05
 
Posts: 1925 | Location: NYC | In FOCUS since 1983 | Registered: January 11, 2005Report This Post
Virtuoso
posted Hide Post
Thanks Jack!

That's what we ended up similarly doing with:

-SET &MEMBR='FOC_NONE';


Once we placed that in there, the report ran without issue. This report relies on a set of filters and params being passed to it. It doesn't operate correctly without certain correct params being passed to it. That was the issue. &MEMBR wasn't getting what it needed. Once we can run the report from the filters html we should be good I believe.

Thanks!


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
 
Posts: 1113 | Location: USA | Registered: January 27, 2015Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Would anyone here know of poss. causes of this error?:

Copyright © 1996-2020 Information Builders