Hi all,

I get FOC261 error for the below code, please can any one help me out to solve this problem.

//code-start

DEFINE FILE TBRMONTH
XDATE/A6=EDIT(YYMM,'9999') || EDIT(XORDER);
IDATE/I6YMD=EDIT(XDATE);
YDATE/YYMD =IDATE;
END




----------------------------------------------------------------------
FOCUS 7.6.4 15.02.13 06/03/2008 TBRAST12 LINE 25 8238.01

TABLE FILE TBRMONTH
SUM MAX.YDATE
IF MSECNR EQ 0
IF MOFCRS1 NE ' '
IF XORDER GT 26
IF RECORDLIMIT EQ 100
ON TABLE SAVE
END
NUMBER OF RECORDS IN TABLE= 100 LINES= 1


ALPHANUMERIC RECORD NAMED SAVE
FIELDNAME ALIAS FORMAT LENGTH

YDATE YYMD 8

TOTAL 8
DCB USED WITH FILE SAVE IS DCB=(RECFM=FB,LRECL=00008,BLKSIZE=00160)
SAVED...
20080531
ERROR AT OR NEAR LINE 38 IN PROCEDURE TBRAST12FOCEXEC
(FOC261) EXPRESSION IS INCOMPLETE BECAUSE AN OPERATION IS MISSING

//*code - ends

Thanks
revathi

You're showing us the execution of the fex, but not the actual fex. There may be some Dialogue Manager code that's in between the FOCUS code that may be causing the problem. Have you looked at line 38?

There is apparently nothing wrong with the code you've shown us so far. Notice that the SAVE file is created. What is happening in the focexec after those lines?

Hi Francis & Ginny,

Please see the Original code below and give me some suggestion to get out of this error.

-DEFAULTS &1=' '
-IF &1 NE ' ' GOTO SKIP;
DEFINE FILE TBRMONTH
XDATE/A6=EDIT(YYMM,'9999') || EDIT(XORDER);
IDATE/I6YMD=EDIT(XDATE);
YDATE/YYMD =IDATE;
END
TABLE FILE TBRMONTH
SUM MAX.YDATE
IF MSECNR EQ 0
IF MOFCRS1 NE ' '
IF XORDER GT 26
-* KEEP RECORDLIMIT STATEMENT BELOW
IF RECORDLIMIT EQ 100
ON TABLE SAVE
END
-RUN
-READ SAVE &EOM.A8.
-TYPE &EOM
-SET &EOMDD=' ';
-SET &XEOM 'X' | &EOM;
-SET &EOMDD= SUBSTR(9,&XEOM,8,9,2,&EOMDD);
-TYPE &EOMDD
-***********************************************************************
EX IC#DB2A
SET ALL=ON
SET NODATA= '.00'
JOIN CLEAR *
-*RETRIEVE FEE INFORMATION FROM THE FEP DATABASES
TABLE FILE ASM010TB
PRINT I_AC
BY I_CUST_FEE_RELAT
ON TABLE HOLD AS HOLDASM
END

Thanks
Revathi.

quote:

-SET &XEOM 'X' | &EOM;

You are missing an equal sign here.