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     OCCURS in WebFocus vs Focus

Read-Only Read-Only Topic
Go
Search
Notify
Tools
OCCURS in WebFocus vs Focus
 Login/Join
 
Silver Member
posted
Does anybody know why the following masterfile description works in WebFocus, but not in Focus?

FILE=dumpv330, SUFFIX=FIX
SEGNAME=ROOT_SEG, SEGTYPE=S1, $
FIELD=LAST_UPD_PGM, ALIAS=LAST_UPD_PGM, USAGE=A8, ACTUAL=A8, $
FIELD=FILL1, ALIAS=FILL1, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_DATE, ALIAS=LAST_UPD_DATE, USAGE=I8, ACTUAL=A8, $
FIELD=FILL2, ALIAS=FILL2, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_TIME, ALIAS=LAST_UPD_TIME, USAGE=I6, ACTUAL=A6, $
FIELD=FILL3, ALIAS=FILL3, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_TSO_ID,ALIAS=LAST_UPD_TSO_ID, USAGE=A8, ACTUAL=A8, $
FIELD=FILL4, ALIAS=FILL4, USAGE=A1, ACTUAL=A1, $
FIELD=TABLE_KEY, ALIAS=TABLE_KEY, USAGE=A10, ACTUAL=A10, $
FIELD=FROM_EMAIL, ALIAS=FROM_EMAIL, USAGE=A35, ACTUAL=A35, $
FIELD=TO_EMAIL_DATA, ALIAS=TO_EMAIL_DATA, USAGE=A3315, ACTUAL=A3315, $
FIELD=EMAIL_SUBJ, ALIAS=EMAIL_SUBJ, USAGE=A50, ACTUAL=A50, $
FIELD=BODY1, ALIAS=BODY1, USAGE=A40, ACTUAL=A40, $
FIELD=BODY2, ALIAS=BODY2, USAGE=A40, ACTUAL=A40, $
FIELD=BODY3, ALIAS=BODY3, USAGE=A40, ACTUAL=A40, $
FIELD=BODY4, ALIAS=BODY4, USAGE=A40, ACTUAL=A40, $
FIELD=BODY5, ALIAS=BODY5, USAGE=A40, ACTUAL=A40, $
FIELD=FILE_NAME1, ALIAS=FILE_NAME1, USAGE=A35, ACTUAL=A35, $
FIELD=ZIP_FILE_FLAG, ALIAS=ZIP_FILE_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FOLDER, ALIAS=FOLDER, USAGE=A40, ACTUAL=A40, $
FIELD=FILE_NAME2, ALIAS=FILE_NAME2, USAGE=A35, ACTUAL=A35, $
FIELD=FILE_NAME3, ALIAS=FILE_NAME3, USAGE=A35, ACTUAL=A35, $
FIELD=FILL5, ALIAS=FILL5, USAGE=A39, ACTUAL=A39, $
SEGNAME=ARRAY1, PARENT=ROOT_SEG, OCCURS=65, SEGTYPE=S0, POSITION=TO_EMAIL_DATA, $
FIELD=ALL_FLAG, ALIAS=ALL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=REG_FLAG, ALIAS=REG_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=LOAD_FLAG, ALIAS=LOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=ULOAD_FLAG, ALIAS=UNLOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FINAL_FLAG, ALIAS=FINAL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=CANCEL_FLAG, ALIAS=CANCEL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=TO_EMAIL, ALIAS=TO_EMAIL, USAGE=A45, ACTUAL=A45, $


It's the OCCURS segment that is giving me a
"(FOC207) ERROR IN THE FORMAT DEFINITION OF FIELD: TO_EMAIL_DATA"



I also tried the following layout, but it gives me an "(FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: TO_EMAIL_SEG"

FILE=dumpv330, SUFFIX=FIX
SEGNAME=ROOT_SEG, SEGTYPE=S1, $
FIELD=LAST_UPD_PGM, ALIAS=LAST_UPD_PGM, USAGE=A8, ACTUAL=A8, $
FIELD=FILL1, ALIAS=FILL1, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_DATE, ALIAS=LAST_UPD_DATE, USAGE=I8, ACTUAL=A8, $
FIELD=FILL2, ALIAS=FILL2, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_TIME, ALIAS=LAST_UPD_TIME, USAGE=I6, ACTUAL=A6, $
FIELD=FILL3, ALIAS=FILL3, USAGE=A1, ACTUAL=A1, $
FIELD=LAST_UPD_TSO_ID,ALIAS=LAST_UPD_TSO_ID, USAGE=A8, ACTUAL=A8, $
FIELD=FILL4, ALIAS=FILL4, USAGE=A1, ACTUAL=A1, $
FIELD=TABLE_KEY, ALIAS=TABLE_KEY, USAGE=A10, ACTUAL=A10, $
FIELD=FROM_EMAIL, ALIAS=FROM_EMAIL, USAGE=A35, ACTUAL=A35, $
SEGNAME=TO_EMAIL_SEG, PARENT=ROOT_SEG, SEGTYPE=S0, OCCURS=65, $
FIELD=ALL_FLAG, ALIAS=ALL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=REG_FLAG, ALIAS=REG_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=LOAD_FLAG, ALIAS=LOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=ULOAD_FLAG, ALIAS=UNLOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FINAL_FLAG, ALIAS=FINAL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=CANCEL_FLAG, ALIAS=CANCEL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=TO_EMAIL, ALIAS=TO_EMAIL, USAGE=A45, ACTUAL=A45, $
SEGNAME=THE_REST, PARENT=ROOT_SEG, SEGTYPE=S0, $
FIELD=EMAIL_SUBJ, ALIAS=EMAIL_SUBJ, USAGE=A50, ACTUAL=A50, $
FIELD=BODY1, ALIAS=BODY1, USAGE=A40, ACTUAL=A40, $
FIELD=BODY2, ALIAS=BODY2, USAGE=A40, ACTUAL=A40, $
FIELD=BODY3, ALIAS=BODY3, USAGE=A40, ACTUAL=A40, $
FIELD=BODY4, ALIAS=BODY4, USAGE=A40, ACTUAL=A40, $
FIELD=BODY5, ALIAS=BODY5, USAGE=A40, ACTUAL=A40, $
FIELD=FILE_NAME1, ALIAS=FILE_NAME1, USAGE=A35, ACTUAL=A35, $
FIELD=ZIP_FILE_FLAG, ALIAS=ZIP_FILE_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FOLDER, ALIAS=FOLDER, USAGE=A40, ACTUAL=A40, $
FIELD=FILE_NAME2, ALIAS=FILE_NAME2, USAGE=A35, ACTUAL=A35, $
FIELD=FILE_NAME3, ALIAS=FILE_NAME3, USAGE=A35, ACTUAL=A35, $
FIELD=FILL5, ALIAS=FILL5, USAGE=A39, ACTUAL=A39, $

I've been looking at samples on the online book, and nothing seems to work.

Is A3315 too long for Focus but not for WebFocus?

When I change the USAGE and ACTUAL to 51, it works, but the data is being truncated in the report, which makes me think that A3315 is too long for Focus.


Thanks,
Ronnel C
WebFocus 7.1.5
IBM ZOS 1.6
 
Posts: 44 | Location: Fort Wayne, IN | Registered: February 07, 2007Report This Post
Virtuoso
posted Hide Post
From what you are saying Ronnel, I would agree with your diagnosis.

It may be worth while trying SET MAXLRECL larger and SET MASTER=OLD/NEW..

Otherwise I suspect you may have to ask IB.


Alan.
WF 7.705/8.007
 
Posts: 1451 | Location: Portugal | Registered: February 07, 2007Report This Post
Master
posted Hide Post
A256 was traditionally the wf limit

FIELD=TO_EMAIL_DATA01, ALIAS=TO_EMAIL_DATA01, USAGE=A51, ACTUAL=A51, $

...

FIELD=TO_EMAIL_DATA65, ALIAS=TO_EMAIL_DATA01, USAGE=A51, ACTUAL=A51, $

...

SEGNAME=ARRAY1, PARENT=ROOT_SEG, OCCURS=65, SEGTYPE=S0, POSITION=TO_EMAIL_DATA01, $

Will work in both FOCUS and wf.



Server: WF 7.6.2 ( BID/Rcaster) Platform: W2003Server/IIS6/Tomcat/SQL Server repository Adapters: SQL Server 2000/Oracle 9.2
Desktop: Dev Studio 765/XP/Office 2003 Applications: IFS/Jobscope/Maximo
 
Posts: 888 | Location: Airstrip One | Registered: October 06, 2006Report This Post
Virtuoso
posted Hide Post
John

Forgotten about that technique. Would it be possible, to reduce the mfd, to use:

FIELD=TO_EMAIL_DATA01, ALIAS=TO_EMAIL_DATA01, USAGE=A255, ACTUAL=A255, $
.
.
FIELD=TO_EMAIL_DATA13, ALIAS=TO_EMAIL_DATA01, USAGE=A255, ACTUAL=A255, $


Alan.
WF 7.705/8.007
 
Posts: 1451 | Location: Portugal | Registered: February 07, 2007Report This Post
Virtuoso
posted Hide Post
Your signature shows you have WF 7.1.5 but it does not show the version of FOCUS. What version of FOCUS are you trying to use this MFD on?


Thanks!

Mickey

FOCUS/WebFOCUS 1990 - 2011
 
Posts: 995 | Location: Gaithersburg, MD, USA | Registered: May 07, 2003Report This Post
Silver Member
posted Hide Post
We have Focus 7.0.9


Thanks,
Ronnel C
WebFocus 7.1.5
IBM ZOS 1.6
 
Posts: 44 | Location: Fort Wayne, IN | Registered: February 07, 2007Report This Post
Silver Member
posted Hide Post
I set the SET MAXLRECL = 32768 (max length) in the focexec. My SYSOUT shows that there's no problem with this SET command.

When I use the ff in the msd, I still get a "(FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: TO_EMAIL_SEG":

SEGNAME=TO_EMAIL_SEG, PARENT=ROOT_SEG, SEGTYPE=S0, OCCURS=65, $
FIELD=ALL_FLAG, ALIAS=ALL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=REG_FLAG, ALIAS=REG_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=LOAD_FLAG, ALIAS=LOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=ULOAD_FLAG, ALIAS=UNLOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FINAL_FLAG, ALIAS=FINAL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=CANCEL_FLAG, ALIAS=CANCEL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=TO_EMAIL, ALIAS=TO_EMAIL, USAGE=A45, ACTUAL=A45, $



When I use the following msd, I get a "(FOC207) ERROR IN THE FORMAT DEFINITION OF FIELD: TO_EMAIL_DATA"

FIELD=TO_EMAIL_DATA, ALIAS=TO_EMAIL_DATA, USAGE=A3315, ACTUAL=A3315, $
. . .
SEGNAME=ARRAY1, PARENT=ROOT_SEG, OCCURS=65, SEGTYPE=S0, POSITION=TO_EMAIL_DATA, $
FIELD=ALL_FLAG, ALIAS=ALL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=REG_FLAG, ALIAS=REG_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=LOAD_FLAG, ALIAS=LOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=ULOAD_FLAG, ALIAS=UNLOAD_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=FINAL_FLAG, ALIAS=FINAL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=CANCEL_FLAG, ALIAS=CANCEL_FLAG, USAGE=A1, ACTUAL=A1, $
FIELD=TO_EMAIL, ALIAS=TO_EMAIL, USAGE=A45, ACTUAL=A45, $


Am I missing something here?
Setting the MAXLENGTH at exactly 3315 showed the exact same error message for both types of msd.


Thanks,
Ronnel C
WebFocus 7.1.5
IBM ZOS 1.6
 
Posts: 44 | Location: Fort Wayne, IN | Registered: February 07, 2007Report This Post
Virtuoso
posted Hide Post
Try using the technique John gave above, splitting the TO_EMAIL_DATA field into multiple fields, all with the same alias.

John was using 65 fields, but I think this can be reduced to 13 x A255.

Worth a try, don't you think.


Alan.
WF 7.705/8.007
 
Posts: 1451 | Location: Portugal | Registered: February 07, 2007Report This Post
Silver Member
posted Hide Post
That worked!
Thanks again everybody!

If any of you happen to be in Fort Wayne, Indiana, lookup STI and look for Ronnel Costanilla (x2114) and I'll buy you all lunch!
Smiler Smiler Smiler


Thanks,
Ronnel C
WebFocus 7.1.5
IBM ZOS 1.6
 
Posts: 44 | Location: Fort Wayne, IN | Registered: February 07, 2007Report 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     OCCURS in WebFocus vs Focus

Copyright © 1996-2020 Information Builders