File below has been running daily for months and now have this message. What can I do to have the file run to display the output again? Running Webfocus 765

No HTML Output!

--------------------------------------------------------------------------------


0 NUMBER OF RECORDS IN TABLE= 6482 LINES= 6482
0 NUMBER OF RECORDS IN TABLE= 3769638 LINES=3769638
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 17965 LINES= 17965
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 501702 LINES= 501702
(BEFORE TOTAL TESTS)
(FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED


This is the file.

JOIN
LEFT_OUTER F4801.F4801.WAANSA IN F4801 TO MULTIPLE F0101.F0101.ABAN8 IN F0101 TAG J001 AS J001
END
JOIN
LEFT_OUTER F4801.F4801.WADOCO IN F4801 TO UNIQUE F5540WZ.F5540WZ.PADOCO IN F5540WZ
AS J0
END
TABLE FILE F4801
PRINT
PAOPSQ AS 'OPER SEQ NWC < 20'
PAMCU0 AS 'NEXT WORK CENTER < 20'
PADSC1 AS 'NEXT WORK CENTER < 20 DESCRIPTION'
WADOCO
WALITM
WADL01
WADCTO_CODE
WAUORG
WASOQS
WASOCN
WAMCU
WAPRTS_CODE
WADRQJ/MDYY
WASTRT/MDYY
WASRST_CODE
ABALPH
WAANSA
WASTRX/MDYY
WAANPA
WAWR01_CODE
WAWR02_CODE
WAWR03_CODE
WAVR01
WAUNCD
WATYPS_CODE
WABREV
WALOTN
WASTCM
WARORN
WASUB
WATBM_CODE
WATRT_CODE
BY 'F4801.F4801.WADOCO'
WHERE ( F4801.F4801.WAMMCU EQ ' 4333' ) AND ( F4801.F4801.WASRST_CODE LE '92' );
ON TABLE HOLD AS WO1
ON TABLE SET BYDISPLAY ON
-*ON TABLE PCHOLD FORMAT EXL2K
END
-RUN
-*-EXIT
-************************************************************************
TABLE FILE F31122
-* WHERE (WTDOCO EQ '473975' OR '440628');
-* WHERE READLIMIT EQ 100
-* WHERE RECORDLIMIT EQ 100
SUM
'F31122.F31122.WTYST'
'F31122.F31122.WTDCTO_CODE'
PRINT
'F31122.F31122.WTKITL' AS 'PART NUMBER'
'F31122.F31122.WTMMCU' AS 'BRANCH'
'F31122.F31122.WTMCU' AS 'BUSINESS UNIT'
'F31122.F31122.WTOPSQ' AS 'OPERATOR SEQ'
'F31122.F31122.WTOPST_CODE' AS 'OPERATOR ST'
'F31122.F31122.WTEXR'
'F31122.F31122.WTUSER' AS 'OPERATOR'
'F31122.F31122.WTUPMJ' AS 'DATE UPDATED'
'F31122.F31122.WTTDAY' AS 'TIME OF DAY'
BY 'F31122.F31122.WTDOCO'
BY HIGHEST 1 'F31122.F31122.WTUKID'
WHERE ( WTKITL NE 'INDIRECT LABOR' OR 'LABOR LOSS' OR 'DCLINK TEST' );
WHERE ( WTDCTO_CODE EQ 'WO' OR 'WH');
WHERE ( WTMMCU EQ ' 4333');
-*WHERE ( WTUSER NE 'DCLINKI');
-*WHERE ( WTDOCO EQ '474526');
-*WHERE ( F31122.F31122.WTKITL EQ '3160436-01');
ON TABLE HOLD AS WO2
ON TABLE SET BYDISPLAY ON
-*ON TABLE PCHOLD FORMAT EXL2K
END
-RUN
-*-EXIT
-************************************************************************
TABLE FILE F3102
PRINT
IGITM
IGLITM
IGCOST_CODE
IGCLAT/D15M
IGJOBN
COMPUTE I/I2=IF IGDOCO EQ LAST IGDOCO THEN I + 1 ELSE 1;
COMPUTE TVALUE/D15M=IF I EQ 1 THEN IGCLAT ELSE TVALUE + IGCLAT; AS 'ACTUAL VALUE'
BY IGDOCO
BY HIGHEST 1 I AS 'LINE#'
WHERE IGJOBN EQ 'RBWIP_4333';
WHERE IGCOST_CODE NE ' ';
ON TABLE HOLD AS WO3
ON TABLE SET BYDISPLAY ON
END
-RUN
-*-EXIT
-************************************************************************
TABLE FILE F4802
PRINT
WBLINS NOPRINT AS 'LINE No.'
WBSRDS NOPRINT AS 'REMARK'
COMPUTE CONCAT1/A1500V=IF WBLINS EQ 1 THEN WBSRDS ELSE LAST CONCAT1||', '|WBSRDS; AS 'REMARKS'
COMPUTE I/I2=IF WBDOCO EQ LAST WBDOCO THEN I + 1 ELSE 1; NOPRINT
BY WBDOCO AS 'WO'
BY HIGHEST 1 I AS 'LINES'
WHERE WBDOCO GT '330000';
WHERE WBLINS LE 5;
ON TABLE HOLD AS WO4
ON TABLE SET BYDISPLAY ON
END
-RUN
-*-EXIT
-************************************************************************
JOIN LEFT_OUTER WO1.WO1.WADOCO IN WO1 TO MULTIPLE WO2.WO2.WTDOCO IN WO2 AS J3
JOIN
LEFT_OUTER WO1.WO1.WADOCO AND WO1.WO1.WALITM IN WO1 TO MULTIPLE WO3.WO3.IGDOCO
AND WO3.WO3.IGLITM IN WO3 AS J4
END
JOIN LEFT_OUTER WO1.WO1.WADOCO IN WO1 TO MULTIPLE WO4.WO4.WBDOCO IN WO4 AS J5 END
TABLE FILE WO1
PRINT
PAMCU0 AS 'NEXT WORK CENTER < 20'
PADSC1 AS 'OPERATION < 20 DESCRIPTION'
WTUPMJ/MDYY AS 'DATE UPDATED'
CONCAT1 AS 'REMARKS'
WADOCO AS 'WO NUMBER'
WALITM AS '2nd Item Number'
WADL01 AS 'Description
WADCTO_CODE AS 'Or Ty'
WAUORG AS 'Quantity Ordered'
WASOQS AS 'Quantity Shipped'
WASOCN AS 'Quantity Canceled'
WAMCU AS 'Business Unit'
WAPRTS_CODE AS 'Priority'
WADRQJ/MDYY AS 'Request Date'
WASTRT/MDYY AS 'Start Date'
WASRST_CODE AS 'WO St'
ABALPH AS 'Alpha Name'
WAANSA AS 'Manager'
WASTRX/MDYY AS 'Complete Date'
WAANPA AS 'Supervisor'
WAWR01_CODE AS 'Phase'
WAWR02_CODE AS 'CAT 02'
WAWR03_CODE AS 'CAT 03'
WAVR01 AS 'Reference'
WAUNCD AS 'FC'
WATYPS_CODE AS 'W.O. Type'
WABREV AS 'Rev Lev'
WALOTN AS 'Lot or Serial Number'
WASTCM AS 'Status Comment'
WARORN AS ' Related PO/SO No'
WASUB AS 'SUB'
WATBM_CODE AS 'Typ BOM'
WATRT_CODE AS 'Typ Rtg'
WTYST NOPRINT
WTDCTO_CODE NOPRINT AS 'WO TYPE'
WTDOCO NOPRINT
WTUKID NOPRINT
WTKITL NOPRINT
WTMMCU NOPRINT
PAOPSQ AS 'OPER SEQ NWC < 20'
WTOPSQ AS 'SEQUENCE'
WTMCU AS 'WORK CENTER'
WTOPST_CODE AS 'STATUS'
WTEXR AS 'OPERATION'
WTUSER AS 'OPERATOR'
WTTDAY
TVALUE/D15M AS 'ACTUAL VALUE'
WTUKID NOPRINT
BY ABALPH NOPRINT
BY WADRQJ NOPRINT
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT EXL2K
END
-* End Report Assistant

When sorting on a COMPUTEd field, the syntax, in your case, is:

BY TOTAL HIGHEST 1 I AS 'LINE#'
or
BY TOTAL HIGHEST 1 I AS 'LINES'

Once the warning has gone, then the rest should fall into place.

How do I get past this?

FOC1070) VALUE FOR JOIN 'FROM' FIELD OUT OF SEQUENCE. RETRIEVAL ENDED

Sort the FROM file first according to its key value.

rjg,

You say having been running this file for months with success and that suddenly it stopped working.
Am I right to assume that NO CHANGES have been made?
If so, the problem is with the data. The error implies that the files are not sorted in the same order.
Do you know what is the size in records of WO2, 3 & 4? You can check by inserting a simple
TABLE FILE WO2
COUNT WTDOCO
ON TABLE SAVE
END
If the numbers are not huge, say in the same order of magnitude as WO1, I would change your
ON TABLE HOLD AS WO2
to
ON TABLE HOLD AS WO2 FORMAT FOCUS INDEX WTDOCO

The alternative is to find out what happened to the data.

The alternative to that is maybe there was a change to the program.

Since you are JOINing to three different HOLD files, try using FORMAT FOCUS with an index for HOLD files W02, W03, and W04 and see if that gives you better results.

quote:

BY WBDOCO AS 'WO'
BY HIGHEST 1 I AS 'LINES'
WHERE WBDOCO GT '330000';
WHERE WBLINS LE 5;
ON TABLE HOLD AS WO4
ON TABLE SET BYDISPLAY ON
END
-RUN
-*-EXIT
-************************************************************************
JOIN LEFT_OUTER WO1.WO1.WADOCO IN WO1 TO MULTIPLE WO2.WO2.WTDOCO IN WO2 AS J3
JOIN
LEFT_OUTER WO1.WO1.WADOCO AND WO1.WO1.WALITM IN WO1 TO MULTIPLE WO3.WO3.IGDOCO
AND WO3.WO3.IGLITM IN WO3 AS J4
END
JOIN LEFT_OUTER WO1.WO1.WADOCO IN WO1 TO MULTIPLE WO4.WO4.WBDOCO IN WO4 AS J5 END

hmmm. your WO4 file doesn't seem to [italic]have[/italic] a WBDOCO field in it. it seems you've renamed this field as 'WO' before you saved the WO4 file. I don't see an explicit SET ASNAMES=ON statement in your fex. but try it by putting one in.

Danny I updated file to reflect:
ON TABLE HOLD AS WO2 FORMAT FOCUS INDEX WTDOCO
Here is the output:

0 NUMBER OF RECORDS IN TABLE= 6584 LINES= 6584
0 NUMBER OF RECORDS IN TABLE= 3792512 LINES=3792512
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 17847 LINES= 17847
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 503609 LINES= 503609
(BEFORE TOTAL TESTS)
(FOC236) LINKED FILE DOES NOT HAVE A MATCHING KEY FIELD OR SEGMENT:
WO2.WO2.WTDOCO
BYPASSING TO END OF COMMAND

Joni Campbell I updated file to reflect:
ON TABLE HOLD AS WO2 FORMAT FOCUS INDEX WTDOCO
ON TABLE HOLD AS WO3 FORMAT FOCUS INDEX IGDOCO
ON TABLE HOLD AS WO4 FORMAT FOCUS INDEX WBDOCO
Here is the output:

0 NUMBER OF RECORDS IN TABLE= 6584 LINES= 6584
0 NUMBER OF RECORDS IN TABLE= 3792512 LINES=3792512
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 17847 LINES= 17847
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 503609 LINES= 503609
(BEFORE TOTAL TESTS)
(FOC236) LINKED FILE DOES NOT HAVE A MATCHING KEY FIELD OR SEGMENT:
WO2.WO2.WTDOCO
BYPASSING TO END OF COMMAND

Sussannah I updated file to reflect:
Top of file I added
SET ASNAMES=ON
0 NUMBER OF RECORDS IN TABLE= 6584 LINES= 6584
0 NUMBER OF RECORDS IN TABLE= 3792512 LINES=3792512
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 17847 LINES= 17847
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 503609 LINES= 503609
(BEFORE TOTAL TESTS)
0 ERROR AT OR NEAR LINE 138 IN PROCEDURE wo_at_status_le_92
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: PAMCU0
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT

I also updated the file to reflect :
ON TABLE HOLD AS WO1 FORMAT FOCUS INDEX WADOCO
ON TABLE HOLD AS WO2 FORMAT FOCUS INDEX WTDOCO
ON TABLE HOLD AS WO3 FORMAT FOCUS INDEX IGDOCO
ON TABLE HOLD AS WO4 FORMAT FOCUS INDEX WBDOCO
Here is the output:
0 NUMBER OF RECORDS IN TABLE= 6584 LINES= 6584
0 NUMBER OF RECORDS IN TABLE= 3792576 LINES=3792576
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 17847 LINES= 17847
(BEFORE TOTAL TESTS)
(FOC32421) WARNING: SORTING ON A COMPUTED FIELD % I
0 NUMBER OF RECORDS IN TABLE= 503609 LINES= 503609
(BEFORE TOTAL TESTS)
(FOC370) THE FIELDNAME USED IN JOIN CANNOT BE FOUND IN THE FILE: WO1.WO1.WADOCO
BYPASSING TO END OF COMMAND

In your joins, take out the field qualifications. Like:

JOIN LEFT_OUTER WADOCO IN WO1 TO MULTIPLE WTDOCO IN WO2 AS J3
END
JOIN
LEFT_OUTER WADOCO AND WALITM IN WO1 TO MULTIPLE IGDOCO AND IGLITM IN WO3 AS J4
END
JOIN LEFT_OUTER WADOCO IN WO1 TO MULTIPLE WBDOCO IN WO4 AS J5
END

In A WebFOCUS data file (FOC or XFOC), you can only join to one field, which has to be indexed, unless the MDI is used (licensed option) whereby multi-field joins are allowed.
This can be overcome by using the GROUP definition, which would need manual MFD intervention, or by using DEFINEd fields to combine multiple fields into one.
Additionally you still have the warning about sorting on COMPUTED FIELDS. This does need to be addressed.