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.

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.

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.

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, $

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?

We have Focus 7.0.9

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.

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.

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!