<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>
quote:returncode="32027"
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 |
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 |
quote:Originally posted by Tony A:quote:returncode="32027"
This is the important piece of information.
? 1001
(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.
? 32027 (FOC32027) CONSOLE CONNECT TO %1 FAILEDThis message has been edited. Last edited by: Francis Mariani,
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;
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;
-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
IF STRMEMBR EQ &MEMBR.(OR()). WHERE STRMEMBR NE '8' &AFM;
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;
IF STRMEMBR EQ WHERE SELL NE 0 OR COST NE 0 OR DRPSELL NE 0 OR DRPCOST NE 0 OR ADJ NE 0;
-SET &MEMBR='FOC_NONE';