Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Printing 88 Columns in Webfocus

Status
Not open for further replies.

LeonelSanchezJr

Programmer
Jan 26, 2001
522
US
I need to be able to print 88 Columns of data, but
this is exceeding the 4096 byte limit (the TOTAL LENGTH of
each of the VERB OBJECTs added together plus 4 bytes for EACH VERB OBJECT used to store control information).

The only two workarounds that I've been given are:

1: Use the rest of the fields as BY fields, but that wouldn't work.

2: Use DEFINE fields to Concatenate some fields together, but that too would not work because this has to go to Excel.

Has anyone ever gone beyond this from Webfocus to Excel 2000?

Thanks,

Leo ;-)
 
Leo,

What release of WebFocus are you using? I tried the following in release 5.3.3, and had no problem with 88 column of 10 bytes each (I actaully tried 1000 columns, and EXCEL had a problem, not WebFocus):

Code:
TABLE FILE CAR
PRINT
-REPEAT ENDREP &LOOP TIMES
COUNTRY
-ENDREP
ON TABLE PCHOLD FORMAT EXL2K
END


 
Even with 5.3.2, the limit on columns seemed to be in Excel (256 columns max). If I change the output format to HTML, I can get up to 1000 columns.
 
The columns must be really short.
Some of our columns are probably wider than those in your test.

But you know, I tried to run my fex going to HTML and I still get an error saying that number of referenced objects exceeds the allowed limit.

Thanks,

Leo ;-)
 
What was the error message and number? Can you post some of the code, with the formats of the fields?
 
This is the error I get.
---RETURN_TYPE_VERSION---START
1
---RETURN_TYPE_VERSION---END
---COMMENT---START
-12: Pcb2.: java.net.SocketException: Connection reset
---COMMENT---END
---ERROR_CODE---START
2012
---ERROR_CODE---END


Thanks,

Leo ;-)
 
Leo,

Well, there does seem to be some limit, but I tried the following (250 columns of 20 bytes each) and it worked.

Code:
DEFINE FILE CAR
LCOUNTRY/A20=COUNTRY | '1234567890';
END
TABLE FILE CAR
"&FOCREL"
PRINT
-REPEAT ENDREP FOR &I FROM 1 TO 250
LCOUNTRY AS 'COUNTRY, &I'
-ENDREP
ON TABLE PCHOLD FORMAT HTML
END

The error you got indicates you've exceeded the limit, but, if you want to go to excel, you'll hit their 256 column limit first.

If you can provide some sample code, I'll see what can be done here.
 
Here is the code I use.
I call a Stored Procedure
Then, I try to produce the report to Excel 2000
The report prints up to the field before SN AS 'Shipper'
If I include from that field forward, I get an error that says I have exceeded the number of objects allowed.
I.E. too many fields.
-****************************
SQL SQLMSS SET SERVER SIGHT
SET SQLENGINE=SQLMSS
SQL SQLMSS
EX dbo.Data_Report_WF '12/26/2004','12/31/2005';
TABLE FILE SQLOUT
PRINT
HawbSource AS 'HAWB,Source'
Fwdr AS 'Forwarder'
HawbNo AS 'Forwarder,Hawb#'
Org AS 'Orig'
Des AS 'Dest'
M1 AS 'Missing,POD Entry'
M2 AS 'Missing,DOCS2B'
M3 AS 'Missing,Arrive Date'
M4 AS 'Missing,Depart Date'
M5 AS 'Missing,On Hand Orig'
M6 AS 'Missing,P/UP Date'
M7 AS 'Ship Date > 5 days,in Future'
M8 AS 'No Exchange,Rate Setup'
M9 AS 'No Currency,Code Setup'
M10 AS 'Charges Must,be > 0'
M11 AS 'Charges >,100$/Kilo'
M12 AS 'Charges >,500000$'
M13 AS 'Invalid,Service Level'
M14 AS 'Invalid,Delivery Terms'
M15 AS 'Invalid,Orig Zone'
M16 AS 'Invalid,Dest Zone'
M17 AS 'Invalid,Orig Region'
M18 AS 'Invalid,Dest Region'
M19 AS 'Invalid No TT,Setup for Point Pair'
M20 AS 'Invalid Ori GMT,or Bus. Hours Setup'
M21 AS 'Invalid Dest,GMT or Bus. Hours Setup'
M22 AS 'On Hand Orig,Before P/UP'
M23 AS 'Depart,Before P/UP'
M24 AS 'Arrival,Before P/UP'
M25 AS 'DOC2B,Before P/UP'
M26 AS 'Customs Release,Before P/UP'
M27 AS 'Delivered,Before P/UP'
M28 AS 'Arrival,Before Depart'
M29 AS 'DOCS2B,Before Depart'
M30 AS 'Customs Release,Before Depart'
M31 AS 'Delivered,Before Depart'
M32 AS 'Depat Before,On Hand Orig'
M33 AS 'Arrival Before,On Hand Orig'
M34 AS 'DOCS2B Before,On Hand Orig'
M35 AS 'Customs Release,Before On Hand Orig'
M36 AS 'Delivered Before,On Hand Orig'
M37 AS 'DOCS2B,Before Arrival'
M38 AS 'Delivered Before,Arrival'
M39 AS 'Delivered Before,Customs Release'
Mwb AS 'Mawb,No#'
Mnfst AS 'IBM,Manifest#'
SN AS 'Shipper'
OCity AS 'Origin'
CN AS 'Consignee'
CNA AS 'IBM STC,/Consignee Addr'
DCity AS 'Destin City'
Svc AS 'Service Level'
Trms AS 'Shipment Delivery Terms'
Pcs AS 'Number of Pieces'
AWt AS 'Acutal Weight (KGS#)'
CWt AS 'Charge Weight (KGS#)'
ExPlant AS 'Ex Plant Date'
OnHand AS 'On-Hand Origin Airport Date'
Dprt AS 'Origin Ex Airport Date'
Arrv AS 'Destination Airport Arvl Date'
DRel AS 'Document Release Date'
CtRel AS 'Customs Release Date'
POD AS 'To Door Delivery Date'
Expire AS 'Expiry Date'
TT AS 'Actual Transit Time'
CTT AS 'Contract Transit Time'
ATT AS 'Allowable Rollover Transit Time'
OL AS 'Shipment On Time/Late'
ACPT_LTVA AS 'Acceptable Late Variance'
HOURS_LATE AS 'Hours Late'
Delay_Code AS 'Delay Code'
Reason AS 'Delay Reason'
Curr AS 'Origin Currency'
Xchng AS 'Exchange'
InvAmt AS 'Invoice Amount'
OrgReg AS 'Origin Region'
DesReg AS 'Destination Region'
Start AS 'Starting Date Time'
OrgOff AS 'GMT Origin Offset'
GStart AS 'GMT Starting Date Time'
TEvent AS 'Terminating Event Date Time'
DesOff AS 'GMT Dest Offset'
GEnd AS 'GMT Terminating Event Date'
PExp AS 'PreExpiry Date'
ExpDT AS 'ExpiryDate'
OLN AS 'On-Time/Late Exempt/Non-Exempt'
TNT_NO AS 'TNT Tracking Hawb No.'
Excute_DATE AS 'Execute Date'
FOOTING
"End of Report"
ON TABLE SET PAGE-NUM OFF
ON TABLE COLUMN-TOTAL AS 'TOTAL'
ON TABLE SET ONLINE-FMT EXL2K
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Letter',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
TOPMARGIN=0.500000,
BOTTOMMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR=BLACK,
BACKCOLOR=NONE,
STYLE=NORMAL,
$
TYPE=TITLE,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=1,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=2,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=3,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=4,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=5,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
-*TYPE=TITLE,COLUMN=6,BACKCOLOR=RGB(0 0 255), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=7,BACKCOLOR=RGB(0 128 64), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=8,BACKCOLOR=RGB(0 128 64), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=9,BACKCOLOR=RGB(0 128 64), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=10,BACKCOLOR=RGB(128 0 0 ), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=11,BACKCOLOR=RGB(128 0 0 ), COLOR=WHITE, STYLE=BOLD,$
TYPE=TITLE,COLUMN=12,BACKCOLOR=RGB(128 0 0 ), COLOR=WHITE, STYLE=BOLD,$
ENDSTYLE
END
-RUN
-THEEND


Thanks,

Leo ;-)
 
Leo,

Can you also provide the Master file, so I can tell how wide each field is?

Art
 
Unfortunately, there is no master file.
I am executing a stored procedure from several tables which reside in MS SQL 2000.

Thanks,

Leo ;-)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top