-* CR 1087: C.S.V. report must be always printed -* but the regular layout is only by request. -SET NO_REP = FGETENV(10,'REPORT_IND',1,'A1'); -SET NO_REPORT=IF &NO_REP EQ 'Y' THEN 0 ELSE 1;
-* -SET &REPCODE='ARIC-01-DET'; -SET &REPNAME='I M M E D I A T E C H A R G E S - D E T A I L E D R E P O R T'; -* FILEDEF OFFLINE DISK &&REP_FILE OFFLINE -INCLUDE gnrpdef.fex -* FILEDEF ARIC01 DISK &EXT_FILE (RECFM F LRECL 296 -* EX apcon -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -* DEFINE FILE M_PRODCT PRODSDESC/A10 = ''''|SHORT_DESC|''''; SPACE1/A2 = ' '; PRODTYPE/A3= ''''|PRODUCT_TYPE|''''; END -* TABLE FILE M_PRODCT PRINT PRODTYPE SPACE1 PRODSDESC ON TABLE SAVE AS PROSAVE END -* -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -* DEFINE FILE M_MARKET MKTNAME/A32 = ''''|MARKET_NAME|''''; SPACE2/A2 = ' '; MKTCODE/A5 = ''''|MARKET_CODE|''''; END -* TABLE FILE M_MARKET PRINT MKTCODE SPACE2 MKTNAME ON TABLE SAVE AS MKTSAVE END -* -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -* EX dbdis -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -* DEFINE FILE ARIC01 LASTROW/A1=' '; ACTV_AMT/P12.2CS = ACTV_AMT; PRO_DCD/A8=DECODE PRO_TYPE(PROSAVE); PRO_DCD1/A8=IF PRO_DCD EQ ' ' THEN PRO_TYPE ELSE PRO_DCD; RSUB_NO/A10=RJUST(10,SUB_NO,'A10'); PHONE_NO/A12 =IF EDIT (RSUB_NO,'9999999999') NE ' ' THEN RSUB_NO ELSE ' '; FULL_BAN/I9L=BAN; -*SET &DIVYABAN = &FULL_BAN; -*PRINT DIVYABAN111 AS &DIVYABAN TAXES/P12.2CS=FED_AMT+ROA_AMT+CIT_AMT+COU_AMT+STA_AMT+MIS_AMT +MIS_AMT1; CHG_CODE/A10 = IF FEA_CODE NE ' ' THEN FEA_CODE||'-'||REV_CODE ELSE REV_CODE; OPER_ID/I10S=OPE_ID;
MKT/A32=DECODE MAR_CD(MKTSAVE); MKT_DESC/A32=IF MKT EQ ' ' THEN MAR_CD ELSE MKT; -* CNN_CD/A4=CNN_CD; -* END -* -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -*
FULL_BAN AS 'BAN ' IN 1 PHONE_NO AS 'Subscriber,Number ' IN 19 CNN_CD AS 'Sales ,Channel' IN 36 SOC AS 'SOC/PP ' IN 50 OPER_ID AS 'Operator,ID ' IN 62 ACTV_AMT AS 'Charge,Amount ' IN 74 TAXES AS 'Taxes,Amount ' IN 90 BY LASTROW NOPRINT BY BUS_ENTI NOPRINT BY MKT_DESC NOPRINT BY ACC_TYPE NOPRINT BY FEA_CODE NOPRINT BY PRO_TYPE NOPRINT BY BAN NOPRINT BY SUB_NO NOPRINT BY SOC NOPRINT -* ON BUS_ENTI PAGE-BREAK ON BUS_ENTI SUBFOOT "Business Entity <38 Totals :<74 <90 "
ON MKT_DESC PAGE-BREAK ON MKT_DESC SUBFOOT
"Sub-Market <38 Totals :<74 <90 "
ON ACC_TYPE PAGE-BREAK ON ACC_TYPE SUBFOOT "Account Type <38 Totals :<74 <90 "
ON FEA_CODE PAGE-BREAK ON FEA_CODE SUBFOOT "Charge Code <38 Totals :<74 <90 "
ON PRO_TYPE PAGE-BREAK ON PRO_TYPE SUBFOOT " <76 ------------ <92 ------------" "Product Type <38 Totals :<74 <90 "
-INCLUDE gnrpftr.fex END -* -RUN -IF &FOCERRNUM NE 0 GOTO ERR; -* -INCLUDE gnrpempt.fex
-* Linux Migration Start Change -IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS; -QUIT FOCUS 0 -* Linux Migration End Change
-ERR -* Linux Migration Start Change -IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS; -QUIT FOCUS &FOCERRNUM -LINUX_OS -EXIT -* Linux Migration End ChangeEND
thnaksThis message has been edited. Last edited by: FP Mod Chuck,
WebFOCUS, Linux Excel, CSV
June 28, 2017, 01:20 PM
MartinY
You have several -INCLUDE and EX, test them individually and insure that the called item exist.
Add -EXIT after each and remove them one by one until you found from where the error is.
Also update your signature to add the Focus version you're working with.
WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF In Focus since 2007
June 28, 2017, 03:05 PM
BabakNYC
Has this ever worked? If yes, what changed?
Like MartinY says, you should try to find out what part of the code is triggering this by adding a -EXIT to the first portion, and run the code and move the -EXIT further down until you find what triggers the problem. Once you do, add
-SET &ECHO=ALL
to the beginning of the code and run it again. That will show you what WF is actually running with all the substitutions done. That should give you a pretty good idea of what's missing in the code that has to be fixed.
WebFOCUS 8206, Unix, Windows
July 05, 2017, 12:16 PM
Doug
Can you simply this using a IBISMAP file so we don't need to debug your original fex?
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206