Hi,
Currently we are migrating from WF764 to WF8.06, during this process below is one issue we came across…
code:
[TABLE FILE CAR
PRINT
CAR_T
ON TABLE HOLD AS CAR1 FORMAT ALPHA
END
-RUN
-SET &CAR1 = &LINES;
-TYPE &CAR1
-*
TABLE FILE CAR
PRINT
COUNTRY
ON TABLE HOLD AS COUNTRY1 FORMAT ALPHA
END
-RUN
-SET &CAR2 = &LINES;
-TYPE &CAR2
-*
TABLE FILE CAR1
CAR
ON TABLE HOLD AS CARTEST FORMAT ALPHA
END
-RUN
-SET &CAR3 = &LINES;
-TYPE &CAR3
-EXIT]

Output FORM WF764:
0 ERROR AT OR NEAR LINE 39 IN PROCEDURE subfoot_test1
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: CAR_T
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
0
0 NUMBER OF RECORDS IN TABLE= 5 LINES= 5
5
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CAR1
BYPASSING TO END OF COMMAND
0

Output FROM WF8.06:
0 ERROR AT OR NEAR LINE 3 IN PROCEDURE cartest FOCEXEC *
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: CAR_T
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
0
0 NUMBER OF RECORDS IN TABLE= 5 LINES= 5
5
0 ERROR AT OR NEAR LINE 19 IN PROCEDURE cartest FOCEXEC *
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CAR1
BYPASSING TO END OF COMMAND
5

When we compare output of lines in both versions, if CAR1 hold file fails then &lines is giving “0” in WF764 whereas &lines is giving “5” in WF8.06. However we need to get &LINES as ”0” if CAR1 hold files fails.
Please help us.

This message has been edited. Last edited by: Raghavendra,

The same results as WF8 from WF7.7.03.

Check &FOCERRNUM EQ 0 and set &CARn accordingly -

TABLE FILE CAR
PRINT CAR_T
ON TABLE HOLD AS CAR1 FORMAT ALPHA
END
-RUN
-SET &CAR1 = IF &FOCERRNUM EQ 0 THEN &LINES ELSE 0;
-TYPE &|LINES after CAR1 &CAR1
-*
TABLE FILE CAR
PRINT COUNTRY
ON TABLE HOLD AS COUNTRY1 FORMAT ALPHA
END
-RUN
-SET &CAR2 = IF &FOCERRNUM EQ 0 THEN &LINES ELSE 0;
-TYPE &|LINES after CAR2 &CAR2
-*
TABLE FILE CAR1
PRINT CAR
ON TABLE HOLD AS CARTEST FORMAT ALPHA
END
-RUN
-SET &CAR3 = IF &FOCERRNUM EQ 0 THEN &LINES ELSE 0;
-TYPE &|LINES after CAR3 &CAR3
-EXIT

Gives -

 0 ERROR AT OR NEAR LINE      3  IN PROCEDURE _newfex FOCEXEC *
 (FOC003) THE FIELDNAME IS NOT RECOGNIZED: CAR_T
 BYPASSING TO END OF COMMAND
 (FOC009) INCOMPLETE REQUEST STATEMENT
 &LINES after CAR1 0
 0 NUMBER OF RECORDS IN TABLE=        5  LINES=      5
 &LINES after CAR2        5
 0 ERROR AT OR NEAR LINE     18  IN PROCEDURE _newfex FOCEXEC *
 (FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: CAR1
 BYPASSING TO END OF COMMAND
 &LINES after CAR3 0

T

Thanks a lot Tony.