Each 01-level record input to the Translator can contain up to 4,000 fields. Any number of 01-level entries can be input to the Translator as long as no individual record exceeds this limit. Each occurrence of an OCCURS structure counts in this limit. If the limit is exceeded, an error message is printed and program execution stops. Note that this limitation applies to the Translator and not the Master File generated.
Consider the following COBOL input description:
01 REC1.
02 FLD1 OCCURS 5000 TIMES PIC X(1).
This input causes the Translator to issue the following error message:
FR011E - INTERNAL TABLE OVERFLOW
To bypass this limitation, edit the COBOL FD and temporarily reduce the total number of OCCURS. After execution, edit the Master File and restore the original number of occurrences.
Consider the following COBOL input description:
01 REC1.
02 FLD1 OCCURS 2000 TIMES PIC X(1).
01 REC2.
02 FLD2 OCCURS 2000 TIMES PIC X(1).
The Translator creates this Master File with multiple segments from this input:
FILE=MAXRECS, SUFFIX=FIX, $
SEGNAME=DUMMY, SEGTYPE=S0, $
FIELD=, ALIAS=, USAGE=A1, ACTUAL=A1, $
SEGNAME=REC1SEG, SEGTYPE=S0, PARENT=DUMMY, $
$ GROUP=REC1, ALIAS=E01, USAGE=A2000, ACTUAL=A2000, $
FIELD=FLD1SEGPOSN, ALIAS=E02, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E03, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E04, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E05, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E06, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E07, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E08, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E09, USAGE=A208, ACTUAL=A208, $
SEGNAME=FLD1SEG, SEGTYPE=S0, PARENT=REC1SEG,
OCCURS=2000, POSITION=FLD1SEGPOSN, $
FIELD=FLD1, ALIAS=E10, USAGE=A1, ACTUAL=A1, $
SEGNAME=REC2SEG, SEGTYPE=S0, PARENT=DUMMY, $
$ GROUP=REC2, ALIAS=E11, USAGE=A2000, ACTUAL=A2000, $
FIELD=FLD2SEGPOSN, ALIAS=E12, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E13, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E14, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E15, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E16, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E17, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E18, USAGE=A256, ACTUAL=A256, $
FIELD=FILLER, ALIAS=E19, USAGE=A208, ACTUAL=A208, $
SEGNAME=FLD2SEG, SEGTYPE=S0, PARENT=REC2SEG,
OCCURS=2000, POSITION=FLD2SEGPOSN, $
FIELD=FLD2, ALIAS=E20, USAGE=A1, ACTUAL=A1, $
This description does not exceed the 4,000 field limit because each 01-level has fewer than 4,000 fields.
| Information Builders |