Below is the code. This was written by one of our users. I cut out hundreds of 2 repeating lines which I indicated in the code.
-* Begin MR Prefix -*
-SET &SECTION='PREFIX';
-INCLUDE mrv/new_reporting_object.fex
-* END MR Prefix -*
-* Begin MR Prefix -*
IN BETWEEN THESE 2 STATEMENTS ARE HUNDREDS OF THE SAME 2 END BEGIN STATEMENTS
-* Begin MR Suffix -*
-* END MR Suffix -*
-*INTERNAL_PROPERTIES$fieldDisplayMode=label;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$enablePreview=true;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$prefixDisplayMode=;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$FexState={"_arComponents":[]};OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$GlobalRecordLimit=2000;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$SampleData=false;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$LinkedSorts=;OBJECTID=GLOBAL
TABLE FILE F4801
-SET &SECTION='WHERE';
-INCLUDE mrv/new_reporting_object.fex
PRINT J0.F3112.A_2ND_ITEM_NUMBER AS 'Item #'
F4801.F4801.STATUS_CODE
J0.F3112.SETUP_LABOR NOPRINT
J0.F3112.ACTUAL_RUN_LABOR NOPRINT
J0.F3112.ACTUAL_RUN_MACHINE NOPRINT
J0.F3112.SETUP_LABOR___CURRENT AS 'Set'
J0.F3112.CURRENT_RUN_LABOR AS 'Labor Hrs'
J0.F3112.CURRENT_RUN_MACHINE AS 'Mach Hrs'
J0.F3112.QUANTITY AS 'WO Qty'
J0.F3112.OPERATION_STATUS_CODE NOPRINT
F4801.F4801.REQUESTED AS 'WO Req Date'
J0.F3112.QUANTITY_SHIPPED NOPRINT
J0.F3112.QUANTITY_AT_OPERATION AS 'Qty @ OP'
BY J0.F3112.A__BUISNESS_UNIT AS 'Work Center'
BY J0.F3112.DESCRIPTION AS 'Work Center Desc'
BY J0.F3112.REQUESTED AS 'Seq Req Date'
BY J0.F3112.OPERATIONS_SEQUENCE_NUMBER
BY F4801.F4801.STATUS_WAWR06_CODE AS 'Code'
BY F4801.F4801.ORDER_NUMBER AS 'WO #'
WHERE J0.F3112.OPERATIONS_SEQUENCE_NUMBER NE 1 OR 9;
WHERE J0.F3112.OPERATIONS_SEQUENCE_NUMBER LT 500;
WHERE F4801.F4801.ORDER_TYPE_CODE EQ 'WO' OR 'WX';
WHERE J0.F3112.A__BUISNESS_UNIT EQ '&A__BUISNESS_UNIT.(FIND J0.F3112.A__BUISNESS_UNIT IN J0).Select Work Center.';
ON TABLE PCHOLD FORMAT HTML
ON TABLE NOTOTAL
ON TABLE SET HTMLCSS ON
ON TABLE SET SQUEEZE ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET EMPTYREPORT ON
ON TABLE SET HTMLENCODE ON
ON TABLE SET STYLE *
INCLUDE=IBFS:/CFG/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,$
ENDSTYLE
END
-* Begin MR Suffix -*
-SET &SECTION='SUFFIX';
-INCLUDE mrv/new_reporting_object.fex
-* END MR Suffix -*
-RUN
Dennis Parish
WebFOCUS 7.6
Windows, All Outputs