Hi,

I am getting (FOC026) THE REPORT IS NO LONGER AVAILABLE error in webfocus while creating reports. if someone can help me
code is as below

-SET EXT_NAME = FGETENV(19,'IR02_EXT_SHORT_NAME',14,'A14');
-SET LAY_NAME = FGETENV(21,'IR02DT_LAY_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change

-* Linux Migration Start Change
-SET EXT_FILE = (&WORKDIR || '/'||&EXT_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1721431 ;
-SET EXT_FILE = ('..' || '/'||&EXT_NAME);
-L1721431

-* Linux Migration End Change

-* Linux Migration Start Change
-SET &&REP_FILE = (&WORKDIR || '/'||&LAY_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1721511 ;
-SET &&REP_FILE = ('..' || '/'||&LAY_NAME);
-L1721511

-* Linux Migration End Change


-* 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;
-*

TABLE FILE ARIC01

-IF &NO_REPORT NE 0 GOTO ONLY_CSV;

-*
HEADING
-INCLUDE gnrphdr.fex
"Business Entity :"
"Sub-Market :"
"Account Type : "Charge Code :"
"Product Type : -*
PRINT BUS_ENTI NOPRINT
MKT_DESC NOPRINT
ACC_TYPE NOPRINT
CHG_CODE NOPRINT
PRO_DCD1 NOPRINT

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 "



ON BAN SUBFOOT
" "
ON LASTROW SUBFOOT

"Grand <38 Totals :<74 <90 "
-*
-GOTO TO_BOTTOM
-ONLY_CSV
-*
PRINT BUS_ENTI NOPRINT
MKT_DESC NOPRINT
ACC_TYPE NOPRINT
CHG_CODE NOPRINT
PRO_DCD1 NOPRINT
FULL_BAN NOPRINT
PHONE_NO NOPRINT
CNN_CD NOPRINT
SOC NOPRINT
OPER_ID NOPRINT
ACTV_AMT NOPRINT
TAXES NOPRINT
-*

-TO_BOTTOM

FOOTING BOTTOM
-IF &&NOCSV GOTO NO_CSV_SET;
-WRITE DDTTL "BUSINESS ENTITY","SUB-MARKET","ACCOUNT TYPE","CHARGE CODE",,
-"PRODUCT TYPE","BAN","SUBSCRIBER","SALES CHANNEL","SOC/PP","OPERATOR",,
-"CHARGE AMOUNT","TAX AMOUNT"
-SET &STOP_FIELD = 'TAXES';
-NO_CSV_SET

-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


thnaks

This message has been edited. Last edited by: FP Mod Chuck,

WebFOCUS, Linux
Excel, CSV

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.

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.

Can you simply this using a IBISMAP file so we don't need to debug your original fex?