[SOLVED] &LINES is giving different answer in WF764 and WF8.06
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,
Webfocus 7.6.4 Windows, All Outputs
February 06, 2015, 02:12 AM
Tony A
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
In FOCUS since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2
WebFOCUS App Studio 8.2.06 standalone on Windows 10