Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     7.6.5 Broke My *Broken*-Report

Read-Only Read-Only Topic
Go
Search
Notify
Tools
7.6.5 Broke My *Broken*-Report
 Login/Join
 
Gold member
posted
The latest release has broken my compound excel reports. The file output is unknown, and I have 3 compound reports (mis)behaving the same. The report below basically loops a report placing the output on separate excel tabs.

Any ideas?

TABLE FILE HOLDTEMP_MANAGED_STOCK_DETAIL_ITEM
BY DRDL01_10 NOPRINT
BY IMPRP0
BY DRDL01_10
ON TABLE HOLD AS HOLDTEMP_MANAGED_STOCK_DETAIL_GROUPS_ALPHA FORMAT ALPHA
END
-SET &GROUP_CNT = &LINES;

-REPEAT :GROUPLOOP FOR &CNT FROM 1 TO &GROUP_CNT;
-READ HOLDTEMP_MANAGED_STOCK_DETAIL_GROUPS_ALPHA &IMPRP0.A6 &DRDL01_10.A30 NOCLOSE
-SET &GROUPLIST.&CNT = &IMPRP0;

USE
-SET &GROUPNO = TRIM('B',&IMPRP0,6,' ',6,'A6');
-SET &GROUPNAME = TRIM('B',&DRDL01_10,30,' ',30,'A30');
-SET &GROUPNAME_SHORT = GETTOK(&GROUPNAME, 30, 1, ' ', 30, GROUPNAME_SHORT);
END

SET COMPOUND = OPEN
TABLE FILE HOLDTEMP_MANAGED_STOCK_DETAIL_SALESHISTORY_DETAIL
SUM
     COMPUTE TOT_SDUORG/P16C = SDUORG; NOPRINT
     COMPUTE WEEK_AVG_SDUORG/P16C = ( SDUORG / 52 ); NOPRINT
     COMPUTE 8_WK_SDUORG/P16C = LAST_8_WEEKS; NOPRINT
     COMPUTE 8_WK_AVG_SDUORG/P16C = ( LAST_8_WEEKS / 8 ); NOPRINT
BY DRDL01_10 NOPRINT
BY IMDSC1 NOPRINT
BY SDITM NOPRINT
BY ITEM_NUMNAME NOPRINT
BY WAREHOUSE NOPRINT
BY J1ABALPH AS ''
BY SHIPTO_STATE AS ''
SUM
     SDUORG/P16C AS ''
BY DRDL01_10 NOPRINT
BY IMDSC1 NOPRINT
BY SDITM NOPRINT
BY ITEM_NUMNAME NOPRINT
BY WAREHOUSE NOPRINT
BY J1ABALPH AS ''
BY SHIPTO_STATE AS ''
ACROSS SDIVD_tMY AS ''
     COMPUTE TOT_SDUORG/P16C = TOT_SDUORG; AS '12 Mo.Total'
     COMPUTE WEEK_AVG_SDUORG/P16C = WEEK_AVG_SDUORG; AS 'Weekly Avg.'
     COMPUTE 8_WK_SDUORG/P16C = 8_WK_SDUORG; AS 'Last 8 Weeks'
     COMPUTE 8_WK_AVG_SDUORG/P16C = 8_WK_AVG_SDUORG; AS '8 Wk.Weekly Avg.'
ON TABLE SUBHEAD
" "
"&GROUPNAME 12 MONTH SHIPPING HISTORY"
" "
ON DRDL01_10 SUBHEAD
" "
ON WAREHOUSE SUBTOTAL AS ' '
ON ITEM_NUMNAME SUBTOTAL AS ' '
ON DRDL01_10 SUBTOTAL AS ' '
ON ITEM_NUMNAME SUBFOOT
" "
ON WAREHOUSE SUBFOOT
 " "

WHERE IMPRP0 LIKE '&GROUPNO';
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT EXL2K OPEN
ON TABLE SET STYLE *
     SQUEEZE=ON,
     TITLETEXT='&GROUPNAME_SHORT',
$
TYPE=REPORT,
     GRID=OFF,
     FONT='ARIAL',
     SIZE=9,
     COLOR='BLACK',
     BACKCOLOR='NONE',
     STYLE=NORMAL,
$
TYPE=DATA,
     SIZE=8,
$
TYPE=TITLE,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=TITLE,
     ACROSSCOLUMN=N1,
     JUSTIFY=RIGHT,
$
TYPE=TABHEADING,
     SIZE=14,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=TABHEADING,
     LINE=1,
     JUSTIFY=CENTER,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=2,
     JUSTIFY=CENTER,
$
TYPE=TABHEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=1,
     SIZE=12,
$
TYPE=TABFOOTING,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=HEADING,
     SIZE=12,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=FOOTING,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     SIZE=9,
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     BY=3,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=SUBHEAD,
     BY=3,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=SUBHEAD,
     BY=3,
     LINE=1,
     OBJECT=TEXT,
     ITEM=3,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=SUBFOOT,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=SUBFOOT,
     BY=4,
     BACKCOLOR='NONE',
$
TYPE=SUBFOOT,
     BY=5,
     BACKCOLOR='NONE',
$
TYPE=SUBTOTAL,
     BY=ITEM_NUMNAME,
  SIZE=8,
     STYLE=BOLD,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=SUBTOTAL,
     BY=WAREHOUSE,
  SIZE=8,
     STYLE=BOLD,
$
TYPE=SUBTOTAL,
     BY=DRDL01_10,
     SIZE=9,
     STYLE=BOLD,
     BACKCOLOR=RGB(147 172 219),
$
TYPE=ACROSSVALUE,
     SIZE=8,
     STYLE=BOLD,
$
TYPE=ACROSSVALUE,
     ACROSS=1,
     JUSTIFY=RIGHT,
$
TYPE=ACROSSVALUE,
     COLUMN=ROWTOTAL(1),
$
TYPE=ACROSSVALUE,
     COLUMN=ROWTOTAL(2),
$
TYPE=REPORT,
     COLUMN=N35,
     SQUEEZE=0.650000,
$
TYPE=ACROSSTITLE,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
$
TYPE=ACROSSTITLE,
     ACROSS=1,
     JUSTIFY=RIGHT,
$
ENDSTYLE
END

-:GROUPLOOP

SET COMPOUND = CLOSE
TABLE FILE HOLDDATA_NULL
PRINT
     NULL NOPRINT
ON TABLE PCHOLD FORMAT EXL2K OPEN
ON TABLE SET STYLE *
     ORIENTATION=LANDSCAPE,
     TITLETEXT='.',
$
ENDSTYLE
END

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


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Gold member
posted Hide Post
My output:
 
MIME-Version: 1.0X-Document-Type: WorkbookContent-Type: multipart/related; boundary="====Boundary===="
--====Boundary====Content-Location: file:///C:/HOLD.XHTContent-Transfer-Encoding: 8bitContent-Type: text/html; charset="us-ascii"
<html xmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office"xmlns:x="urn:schemas-microsoft-com:office:excel"xmlns="http://www.w3.org/TR/REC-html40">  <HEAD><meta name="Excel Workbook Frameset">  <xml> <x:ExcelWorkbook>  <x:ExcelWorksheets>   <x:ExcelWorksheet>
 

Data in the rest of the output.

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


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Gold member
posted Hide Post
My output before upgrade:
MIME-Version: 1.0
X-Document-Type: Workbook
Content-Type: multipart/related; boundary="====Boundary===="

--====Boundary====
Content-Location: file:///C:/HOLD.XHT
Content-Transfer-Encoding: 8bit
Content-Type: text/html; charset="us-ascii"


<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
  
<HEAD>
<meta name="Excel Workbook Frameset">
  
<xml>

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


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Platinum Member
posted Hide Post
You have SET COMPOUND = CLOSE and PCHOLD FORMAT EXL2K OPEN - that doesn't look right.

SET COMPOUND = CLOSE
TABLE FILE HOLDDATA_NULL
PRINT
NULL NOPRINT
ON TABLE PCHOLD FORMAT EXL2K OPEN
ON TABLE SET STYLE *
ORIENTATION=LANDSCAPE,
TITLETEXT='.',


WebFOCUS 7.6.6/TomCat/Win2003,SQL Server 2005,Oracle
 
Posts: 125 | Location: New England | Registered: February 20, 2007Report This Post
Expert
posted Hide Post
Trob,

Also looks as though you have broken your post as well Smiler

First obvious mistake is your use statement, totally incorrect, suggest a glance in the manual on the use of USE.

Second thing is that you have SET COMPOUND = OPEN and also ON TABLE PCHOLD FORMAT EXL2K OPEN - these are not normally used together. Again it might be a suggestion to visit the old manual.

I think the main thing to be said on this is that 7.6.5 didn't break your report, you did it yourself in an earlier version Wink Sort out your code and let us know where you get to then.

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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Gold member
posted Hide Post
Well after testing my code still works on the old version. I don't know why it stopped in the new yet. I know the set compounds don't look right but they work. This is the only way they work right. I have had to do this with several reports in order to place multiple reports on one excel tab then repeat the same tab for different criteria in one excel file.

I'm sorry about the use but I copied it from Focal Point. How would you suggest me coding that section?


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Gold member
posted Hide Post
Here is another that broke.

-* File highvolume_stock.fex
-SET ECHO = ALL;
 
-SET &DATE_MOVE = IF DATECVT(&YYMD,'I8YYMD','W') GT 3 THEN 6 ELSE -1;
-SET &DATE_DATA_END = DATECVT(DATEADD(DATEMOV(DATECVT(&YYMD,'I8YYMD','YYMD'), 'BOW'),'D',&DATE_MOVE),'YYMD','I8YYMD');
-SET &DATE_DATA_END_JDE = JULDAT(&DATE_DATA_END,'I8YYMD') - 1900000;
-SET &DATE_DATA_BEG = DATECVT(DATEADD(DATEMOV(DATECVT(&YYMD,'I8YYMD','YYMD'), 'BOW'),'D',(-84 + &DATE_MOVE)),'YYMD','I8YYMD');
-SET &DATE_DATA_BEG_JDE = JULDAT(&DATE_DATA_BEG,'I8YYMD') - 1900000;
-SET &DATE_8WK_BEG = DATECVT(DATEADD(DATECVT(&DATE_DATA_END,'I8YYMD','YYMD'),'D',-56),'YYMD','I8YYMD');
-SET &DATE_8WK_BEG_JDE = JULDAT(&DATE_8WK_BEG,'I8YYMD') - 1900000;
-*-SET &ITEMNO = '79638';
-*-SET &ITEMNOL = 'TYNBIRCH043';
-*-SET &ITEMNAME = 'NATRUAL BIRCH TEST';
 
SET WEEKFIRST = 2
 
TABLE FILE HOLDDATA_ITEM
PRINT
     IMLITM
     IMDSC1
     DRDL01_10
BY IMITM
WHERE IMPRP0 EQ '000005';
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_ITEM FORMAT FOCUS INDEX 'IMITM'
END
 
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_ITEM
PRINT
     IMITM
     IMLITM
     IMDSC1
BY IMLITM NOPRINT
ON TABLE NOTOTAL
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_ITEM_ALPHA FORMAT ALPHA
END
-SET &ITEM_CNT = &LINES;
 
-REPEAT :ITEMLOOP FOR &CNT FROM 1 TO &ITEM_CNT;
-READ HOLDTEMP_HIGHVOLUME_STOCK_ITEM_ALPHA &ITEMNO_ALPHA.A9 &ITEMNOL_ALPHA.A25 &ITEMNAME_ALPHA.A30 NOCLOSE
-SET &ITEMLIST.&CNT = &ITEMNO_ALPHA;
 
USE
-SET &ITEMNO = TRIM('B',&ITEMNO_ALPHA,9,' ',9,'A9');
-SET &ITEMNOL = TRIM('B',&ITEMNOL_ALPHA,25,' ',25,'A25');
-SET &ITEMNAME = TRIM('B',&ITEMNAME_ALPHA,30,' ',30,'A30');
END
 
TABLE FILE HOLDDATA_SALESHISTORY
PRINT
     SDUORG
     COMPUTE DATE_FINAL/A10 = WEEK_NUM(SDIVD);
     COMPUTE LAST_8_WEEKS/D12 = IF SDIVD GE &DATE_8WK_BEG_JDE THEN SDUORG ELSE 0;
     COMPUTE CNT/I8=LAST CNT + 1;
BY SDIVD
BY SDITM
WHERE ( SDITM EQ &ITEMNO );
WHERE ( SDIVD GE &DATE_DATA_BEG_JDE ) AND ( SDIVD LE &DATE_DATA_END_JDE);
WHERE ( SDDCTO EQ 'SO' ) OR (( SDDCTO EQ 'CO' ) AND ( SDLNTY EQ 'CR' ) ) OR ( ( SDDCTO EQ 'CO' ) AND ( SDLNTY EQ 'C' ) );
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY FORMAT FOCUS
END
 
TABLE FILE HOLDDATA_INVENTORY
SUM
     LIPQOH
BY LIITM
WHERE ( LIITM EQ &ITEMNO ) AND ( LIPQOH GT 0 ) AND ( LIGLPT EQ 'FG10' OR 'FG20' OR 'FG30' OR 'FG40' OR 'FG60' OR 'FG70' OR 'FG80' OR 'FG85' OR 'FG89' OR 'FG90' ) AND ( LIMCU NOT LIKE '         941' );
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY FORMAT FOCUS INDEX 'LIITM'
END
 
TABLE FILE HOLDDATA_SALESORDERS
PRINT
     SDDOCO
     SDDCTO
     SDSHAN
     SDDRQJ
     SDRSDJ
     SDUORG
     SDVR01
     SDURRF
     COMPUTE SD_SDDRQJ/YYMD = JDETOSD(SDDRQJ);
     COMPUTE SD_SDRSDJ/YYMD = JDETOSD(SDRSDJ);
     COMPUTE SD_SDDRQJ_WK/YYMD = DATEADD(DATEMOV(JDETOSD(SDDRQJ), 'BOW'), 'D', 6);
BY SDRORN
WHERE ( SDITM EQ &ITEMNO );
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS FORMAT FOCUS INDEX 'SDRORN'
END
 
TABLE FILE HOLDDATA_OPENORDERS
SUM
     COMPUTE OORD_QTY/P16C = ORD_QTY;
BY DOCO_A8
WHERE ( ITM EQ &ITEMNO );
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_OPENORDERS FORMAT FOCUS INDEX 'DOCO_A8'
END
 
TABLE FILE HOLDDATA_INVENTORY
SUM
     COMPUTE LIPQOH_TRAN/P16C = LIPQOH;
BY LIURRF
WHERE ( LIITM EQ &ITEMNO ) AND ( LIPQOH GT 0 ) AND ( LIGLPT EQ 'FG10' OR 'FG20' OR 'FG30' OR 'FG40' OR 'FG60' OR 'FG70' OR 'FG80' OR 'FG85' OR 'FG89' OR 'FG90' ) AND ( LIMCU LIKE '         941' );
ON TABLE NOTOTAL
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_TRANSIT FORMAT FOCUS INDEX 'LIURRF'
END
 
JOIN CLEAR *
JOIN
 LEFT_OUTER HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY.SEG01.SDITM IN
HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY TO UNIQUE
 HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY.SEG01.LIITM
 IN HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY AS J0
 END
 
JOIN
 LEFT_OUTER HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS.SEG01.SDURRF IN
HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS TO UNIQUE
 HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_TRANSIT.SEG01.LIURRF
 IN HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_TRANSIT AS J1
 END
 
JOIN
 LEFT_OUTER HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS.SEG01.SDRORN IN
HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS TO UNIQUE
 HOLDTEMP_HIGHVOLUME_STOCK_OPENORDERS.SEG01.DOCO_A8
 IN HOLDTEMP_HIGHVOLUME_STOCK_OPENORDERS AS J2
 END
 
DEFINE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY
TOT_LIPQOH/P16C = IF CNT EQ 1 THEN LIPQOH ELSE 0;
END
 
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY
SUM
     SDUORG
     LAST_8_WEEKS
     TOT_LIPQOH
     COMPUTE LAST_8_WK_AVG/P16C = ( LAST_8_WEEKS / 8 ) ;
     COMPUTE SAFETY_STOCK/P16C = ( LAST_8_WK_AVG * 6 ) ;
     COMPUTE END_DATE/YYMD = DATECVT(&DATE_DATA_END, 'I8YYMD', 'YYMD') ;
     COMPUTE TOT_LIPQOH_SAFE/P16C = ( TOT_LIPQOH - SAFETY_STOCK ) ;
BY SDITM
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_SUM FORMAT FOCUS
END
 
SET COMPOUND = 'OPEN NOBREAK'
TABLE FILE HOLDDATA_NULL
PRINT
     NULL NOPRINT
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
HEADING
" "
"High Volume  Report for &ITEMNAME"
" "
ON TABLE PCHOLD FORMAT EXL2K OPEN
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='Legal',
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=OFF,
     ORIENTATION=LANDSCAPE,
     TITLETEXT='&ITEMNOL',
$
TYPE=HEADING,
     SIZE=12,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=REPORT,
     COLUMN=N1,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N2,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N3,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N4,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N5,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N6,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N7,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N8,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N9,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N10,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N11,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N12,
     WRAP=.8500000,
$
TYPE=REPORT,
     COLUMN=N13,
     WRAP=.8500000,
$
ENDSTYLE
END
 
SET COMPOUND = NOBREAK
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_SUM
PRINT
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
     COMPUTE COM_NULL/A1 = ' '; AS ''
BY SDITM NOPRINT
HEADING
"Last 8 Weeks <LAST_8_WEEKS"
"8 Week Weekly Average <LAST_8_WK_AVG"
""
"Quantity on Hand <TOT_LIPQOH"
"Safety Stock<SAFETY_STOCK"
"Safety Quantity on Hand <TOT_LIPQOH_SAFE"
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
$
TYPE=HEADING,
     STYLE=BOLD,
$
ENDSTYLE
END
 
TABLE FILE HOLDDATA_INVENTORY_FG
SUM
     LIPQOH_LBS_GOOD_FG
     LIPQOH_LBS_HOLD_FG
BY LIITM_FG
BY MCMCU_DESC_FG
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_FG_LIMCU_SUM FORMAT FOCUS INDEX 'LIITM_FG'
END
 
JOIN
 LEFT_OUTER HOLDTEMP_HIGHVOLUME_STOCK_ITEM.SEG01.IMITM IN
HOLDTEMP_HIGHVOLUME_STOCK_ITEM TO MULTIPLE
 HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_FG_LIMCU_SUM.SEG01.LIITM_FG
 IN HOLDTEMP_HIGHVOLUME_STOCK_INVENTORY_FG_LIMCU_SUM AS J3
 END
 
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_ITEM
PRINT *
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_ITEM_INVENTORY FORMAT FOCUS
END
 
SET COMPOUND = NOBREAK
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_ITEM_INVENTORY
SUM
     COMPUTE TOT_LIPQOH_LBS_GOOD_FG/P16C = LIPQOH_LBS_GOOD_FG; NOPRINT
     COMPUTE TOT_LIPQOH_LBS_HOLD_FG/P16C = LIPQOH_LBS_HOLD_FG; NOPRINT
BY IMITM NOPRINT
SUM
     LIPQOH_LBS_GOOD_FG/P16C AS ''
BY IMITM NOPRINT
ACROSS MCMCU_DESC_FG AS ''
COMPUTE TOT_LIPQOH_LBS_GOOD_FG/P16C = TOT_LIPQOH_LBS_GOOD_FG; AS 'Total Good'
COMPUTE TOT_LIPQOH_LBS_HOLD_FG/P16C = TOT_LIPQOH_LBS_HOLD_FG; AS 'On Hold'
WHERE IMITM EQ &ITEMNO;
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
$
TYPE=REPORT,
     COLUMN=N4,
     SQUEEZE=0.8000000,
$
TYPE=REPORT,
     COLUMN=N5,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N6,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N7,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N8,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N9,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N10,
     SQUEEZE=0.800000,
$
TYPE=ACROSSVALUE,
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
ENDSTYLE
END
 
JOIN BLANK WITH SDITM IN HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_SUM TO BLANK IN FSEQ AS J4
 
DEFINE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_SUM
BLANK/A1 WITH SDITM = ' ' ;
DAYS_TO_ADD/I3 = (COUNTER - 1 ) * 7 ;
FUTURE_WEEK/YYMD = END_DATE + DAYS_TO_ADD ;
END
 
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_SUM
PRINT
     FUTURE_WEEK
     TOT_LIPQOH
     TOT_LIPQOH_SAFE
     LAST_8_WK_AVG
BY COUNTER
WHERE COUNTER LE 24;
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_INV_FORCAST FORMAT FOCUS
END
 
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS
SUM
     OORD_QTY
     LIPQOH_TRAN
     COMPUTE ORDER_QTY/P16C = IF OORD_QTY GT 0 THEN OORD_QTY ELSE LIPQOH_TRAN;
BY SD_SDDRQJ_WK
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS_FORCAST FORMAT FOCUS INDEX 'SD_SDDRQJ_WK'
END
 
JOIN
 LEFT_OUTER HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_INV_FORCAST.SEG01.FUTURE_WEEK IN
HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_INV_FORCAST TO UNIQUE
 HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS_FORCAST.SEG01.SD_SDDRQJ_WK
 IN HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS_FORCAST AS J5
 END
 
SET COMPOUND = NOBREAK
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY
SUM
     SDUORG/P16C AS ''
ACROSS DATE_FINAL AS ''
HEADING
""
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
$
TYPE=ACROSSVALUE,
     STYLE=BOLD,
     JUSTIFY=RIGHT,
$
ENDSTYLE
END
 
SET COMPOUND = NOBREAK
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESORDERS
PRINT
     SDDOCO
     SDDCTO
     SDSHAN
     SDVR01
     SD_SDDRQJ AS 'ETA Date'
     SD_SDRSDJ AS 'Print Date'
     COMPUTE ORDER_QTY/P16C = IF ORD_QTY GT 0 THEN OORD_QTY ELSE LIPQOH_TRAN; AS 'Quantity'
     COMPUTE ORDER_STS/A10 = IF ORD_QTY GT 0 THEN 'OPEN' ELSE 'TRANSIT'; AS 'Status'
     COMPUTE BATCH_NO/A15 = IF ORD_QTY GT 0 THEN '' ELSE SDURRF; AS ''
HEADING
""
FOOTING
""
WHERE ( LIPQOH GT 0 ) OR ( ORD_QTY GT 0 );
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
$
TYPE=TITLE,
     COLUMN=N1,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N2,
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N3,
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N4,
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N5,
     STYLE=BOLD,
     JUSTIFY=RIGHT,
$
TYPE=TITLE,
     COLUMN=N6,
     STYLE=BOLD,
     JUSTIFY=RIGHT,
$
TYPE=TITLE,
     COLUMN=N7,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N8,
     STYLE=BOLD,
     JUSTIFY=RIGHT,
$
TYPE=REPORT,
     COLUMN=N2,
     JUSTIFY=CENTER,
$
TYPE=REPORT,
     COLUMN=N3,
     JUSTIFY=CENTER,
$
TYPE=REPORT,
     COLUMN=N8,
     JUSTIFY=RIGHT,
$
TYPE=REPORT,
     COLUMN=N9,
     JUSTIFY=RIGHT,
$
ENDSTYLE
END
 
SET COMPOUND = NOBREAK
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_SALESHISTORY_INV_FORCAST
PRINT
     COUNTER AS 'Week'
     FUTURE_WEEK AS 'Forcast,Date'
     LIPQOH_TRAN AS 'In,Transit'
     OORD_QTY AS 'Open,Order'
     COMPUTE RUNNING_LIPQOH/P16C = IF COUNT EQ 1 THEN TOT_LIPQOH_SAFE ELSE ( LAST RUNNING_LIPQOH - LAST_8_WK_AVG + LIPQOH_TRAN + OORD_QTY ); AS 'Forcasted,Inventory'
HEADING
" "
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
$
TYPE=TITLE,
     COLUMN=N1,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N2,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N3,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N4,
     STYLE=BOLD,
$
TYPE=TITLE,
     COLUMN=N5,
     STYLE=BOLD,
$
ENDSTYLE
END
 
TABLE FILE HOLDDATA_NULL
PRINT
     NULL NOPRINT
HEADING
""
ON TABLE PCHOLD FORMAT EXL2K
END
 
-:ITEMLOOP
 
SET COMPOUND = CLOSE
TABLE FILE HOLDTEMP_HIGHVOLUME_STOCK_ITEM_INVENTORY
SUM
     COMPUTE TOT_LIPQOH_LBS_GOOD_FG/P16C = LIPQOH_LBS_GOOD_FG; NOPRINT
     COMPUTE TOT_LIPQOH_LBS_HOLD_FG/P16C = LIPQOH_LBS_HOLD_FG; NOPRINT
BY DRDL01_10 NOPRINT
BY IMDSC1 NOPRINT
BY IMLITM AS ''
BY IMITM NOPRINT
BY IMDSC1 AS ''
SUM
     LIPQOH_LBS_GOOD_FG/P16C AS ''
BY DRDL01_10 NOPRINT
BY IMDSC1 NOPRINT
BY IMLITM AS ''
BY IMITM NOPRINT
BY IMDSC1 AS ''
BY IMDSC1 AS ''
ACROSS MCMCU_DESC_FG AS ''
COMPUTE TOT_LIPQOH_LBS_GOOD_FG/P16C = TOT_LIPQOH_LBS_GOOD_FG; AS 'Total Good'
COMPUTE TOT_LIPQOH_LBS_HOLD_FG/P16C = TOT_LIPQOH_LBS_HOLD_FG; AS 'On Hold'
HEADING
" "
"Managed Stock High Volume Inventory"
" "
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='Legal',
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=ON,
     ORIENTATION=LANDSCAPE,
     SIZE=8,
     TITLETEXT='Inventory',
$
TYPE=REPORT,
     FONT='ARIAL',
     SIZE=8,
$
TYPE=DATA,
     SIZE=8,
$
TYPE=TABHEADING,
     SIZE=9,
     STYLE=BOLD,
$
TYPE=HEADING,
     BORDER-TOP=LIGHT,
     BORDER-BOTTOM=LIGHT,
     BORDER-LEFT=LIGHT,
     BORDER-RIGHT=LIGHT,
     BORDER-TOP-STYLE=RIDGE,
     BORDER-BOTTOM-STYLE=RIDGE,
     BORDER-LEFT-STYLE=RIDGE,
     BORDER-RIGHT-STYLE=RIDGE,
     BORDER-TOP-COLOR=RGB(51 51 153),
     BORDER-BOTTOM-COLOR=RGB(51 51 153),
     BORDER-LEFT-COLOR=RGB(51 51 153),
     BORDER-RIGHT-COLOR=RGB(51 51 153),
     SIZE=12,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=SUBHEAD,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     BY=1,
     LINE=1,
     OBJECT=FIELD,
     ITEM=1,
     STYLE=BOLD,
$
TYPE=ACROSSVALUE,
     SIZE=8,
     STYLE=BOLD,
     JUSTIFY=CENTER,
$
TYPE=REPORT,
     COLUMN=N9,
     SQUEEZE=0.8000000,
$
TYPE=REPORT,
     COLUMN=N10,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N11,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N12,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N13,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N14,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N15,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N16,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N17,
     SQUEEZE=0.800000,
$
TYPE=REPORT,
     COLUMN=N18,
     SQUEEZE=0.800000,
$
ENDSTYLE
END
-EXIT


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Expert
posted Hide Post
First obvious mistake is -
ON TABLE HOLD AS HOLDTEMP_HIGHVOLUME_STOCK_ITEM_ALPHA FORMAT ALPHA
END
-SET &ITEM_CNT = &LINES;

DM is executed before table requests so your &ITEM_CNT will not necessarily have the value you are expecting. Place a -RUN after END and before the -SET to ensure that it does have the correct value produced from the TABLE.

Another example of code that shouldn't have worked before .... and don't worry, it gets everyone at one time or another Frowner

T

p.s. well done for sorting your post Smiler



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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Gold member
posted Hide Post
Thanks for the RUN tip. I can't ever figure out when to use it. In the past it seems that my report always behaved the same so I just leave it out. I'll start working through the logic and placing it where it should be.

Can you give me an alternative to the USE command.


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Expert
posted Hide Post
You don't need the USE command for those items of dialogue manager, so just remove them, they are doing nothing anyway.

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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Expert
posted Hide Post
Trob,

If you have Dev Studio there is a good topic within help on -RUN. Search for RUN on the index tab and select '-RUN'. An equally good section on USE exists as well.

If you don't have Dev Studio then go to the Tech Document library where the same info exists in this ref.. You will require an Info Response userid and password to access it.

Happy reading Smiler

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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Gold member
posted Hide Post
I have removed the USE, added RUNs, and remove any excess compound commands. I am now just using SET COMPOUND = ... for all my compounding. The report still has the same problem.

It seems that one of my main problems is the hold type.
ON TABLE PCHOLD FORMAT EXL2K


PCHOLD causes the unknown file type. And when I try to save as .xht and open I get " filename is not a valid Single File Web Page"

Documentation:
File Names and Formats. The output file name (AS name, or HOLD by default) is obtained from the first report of the compound report (the report with the OPEN keyword). Output file names on subsequent reports are ignored.
The HOLD FORMAT syntax used in the first component report in a compound report applies to all subsequent reports in the compound report, regardless of their format.

More Documentation:
When used with the HOLD/PCHOLD syntax, the compound report keywords OPEN, CLOSE, and NOBREAK must appear immediately after FORMAT EXL2K, and before any additional keywords, such as FORMULA or PIVOT. For example, you can specify:
ON TABLE PCHOLD FORMAT EXL2K OPEN 
ON TABLE HOLD AS MYHOLD FORMAT EXL2K OPEN NOBREAK 
ON TABLE PCHOLD FORMAT EXL2K NOBREAK FORMULA 
ON TABLE HOLD FORMAT EXL2K CLOSE PIVOT PAGEFIELDS COUNTRY 


Ok, it use to work but now it doesn't like it shouldn't.?. I now scratch my head in order to keep from scratching other places.

But guess what, this works...sometimes.
ON TABLE SAVE FILENAME &SAVEFILE FORMAT EXL2K

Once again I can't get the documented syntax to work but I can get something that will break in the future to.

Any suggestions?


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Expert
posted Hide Post
Trob,

I'd be inclined to give Tech Support a bell and seek their assistance. They can connect remotely and see your report in action. It often expediates resolution, and as it is an upgrade issue I am sure they'll be keen to ensure this isn't a global one!

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 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Gold member
posted Hide Post
Well I have done a fresh install of 7.6.5 on a new PC and getting better results. It appears that the upgrade broke something. I have tried two upgrades (on separate machines) from 7.6.2 to 7.6.4 then 7.6.5 and both do not work. However the fresh 7.6.5 DevStudio works correctly without the "Unknown file type" problem. I'm going to uninstall everything from my development PC and try to do a fresh install on it now.

Stay tuned...


------------------------------------------
DevStudio 8.2.03
WFS 8.2.03
 
Posts: 86 | Location: Atlanta | Registered: May 10, 2007Report This Post
Virtuoso
posted Hide Post
"I now scratch my head in order to keep from scratching other places."

Just have to appreciate the sense of humor..some have here...to keep going. Wink


In Focus since 1993. WebFOCUS 7.7.03 Win 2003
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     7.6.5 Broke My *Broken*-Report

Copyright © 1996-2020 Information Builders