This getting an error while running my report.
The error throws like this: CONTROL LINE NOT RECOGNIZED IN FOCEXEC: -REPEAT FCLTY_INFO FOR I FROM 1 TO &MAXFCTY;.

Below are my pieces of code:

quote:

CONTROL LINE NOT RECOGNIZED IN FOCEXEC: -REPEAT FCLTY_INFO FOR I FROM 1 TO &MAXFCTY;

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

Must be :

-REPEAT FCLTY_INFO FOR &I FROM 1 TO &MAXFCTY;

....your code...

-FCLTY_INFO

Note the end loop tag : -FCLTY_INFO

AND the variable : &I

What's your code?

One thing I notice is that you appear to be using a constant I for a variable.

Below is my code

quote:

-SET &FAC_ID = ' ';
-SET &FCTYLIST = ' ';
-SET &FCTYLIST1 = ' ';

-REPEAT FCLTY_INFO FOR &I FROM 1 TO &MAXFCTY;
-READFILE FCTYLIST

-SET &FAC_ID = TRUNCATE(&FAC_ID);
-SET &FCTYLIST = IF &I EQ 1 THEN &FAC_ID ELSE IF &I LT 3000 THEN &FCTYLIST|| ','|| &FAC_ID ELSE &FCTYLIST

-************
-FCLTY_INFO
-************
"Some SQL statement conditions"

You seem to be missing a ; at the end of code line 7.
Does &MAXFCTY have a value?

Hi Danny,

That was typo error. Semi colon is there. &MAXFCTY having value.

This worked for me:

  
-SET &FAC_ID = ' ';
-SET &FCTYLIST = ' ';
-SET &FCTYLIST1 = ' ';

DEFINE FILE CAR
FAC_ID/I5=SALES;
FCTYLIST/A30=MODEL;
END
TABLE FILE CAR
PRINT FAC_ID FCTYLIST
ON TABLE HOLD AS FCTYLIST
END
-RUN
-SET &MAXFCTY = &LINES;
-REPEAT FCLTY_INFO FOR &I FROM 1 TO &MAXFCTY;
-READFILE FCTYLIST

-SET &FAC_ID = TRUNCATE(&FAC_ID);
-SET &FCTYLIST = IF &I EQ 1 THEN &FAC_ID ELSE IF &I LT 3000 THEN &FCTYLIST || ','|| &FAC_ID ELSE &FCTYLIST;
-TYPE &FAC_ID : &FCTYLIST
-************
-FCLTY_INFO

This will probably not solve your problem, but it's a waste of cycles to keep looping through the file past that 3000 line limit you seem to impose.

Suggestion:

-SET &MAXFCTY = MIN(&MAXFCTY, 3000);
-REPEAT ...
-SET &FCTYLIST = IF &I EQ 1 THEN &FAC_ID ELSE &FCTYLIST|| ','|| &FAC_ID;

Hemin,

Please try the below code. I just added the sample code using CAR master file. I didn't get any error when I execute it.

-SET &FAC_ID = '';
-SET &FCTYLIST = '';
-SET &FCTYLIST1 = '';
-SET &SEATS = '';
-SET &CAR = '';


TABLE FILE CAR
SUM
SEATS
BY CAR
ON TABLE HOLD AS FCTYLIST
END
-RUN

-SET &MAXFCTY = &LINES;

-REPEAT FCLTY_INFO FOR &I FROM 1 TO &MAXFCTY;
-READFILE FCTYLIST

-SET &FAC_ID = TRUNCATE(&SEATS);
-SET &FCTYLIST = IF &I EQ 1 THEN &FAC_ID ELSE IF &I LT 3000 THEN &CAR|| ','|| &FAC_ID ELSE &CAR;
-TYPE FCTYLIST &FCTYLIST

-************
-FCLTY_INFO
-************
"Some SQL statement conditions"

Hi guys,

Problem got solved. Value for 'I' was not passed correctly.