The Translator generates a new segment for each COBOL record description (01-level field) it receives as input. When multiple records are present, an additional DUMMY segment is created that is used as the common parent for the record descriptions. Whenever you submit more than one 01-level record as input to the Translator, you must manually add RECTYPE fields to identify the different record types.
Consider the following COBOL input description:
01 HDR-REC.
02 HDR-KEY PIC X(1).
88 HDR-VALUE VALUE 'H'.
02 HDR-DATA PIC X(10).
01 DET-REC.
02 DET-KEY PIC X(1).
88 DTL-VALUE VALUE 'D'.
02 DTL-DATA PIC X(10).
From this input, the Translator creates the following Master File with multiple segments:
FILE=MULT01, SUFFIX=FIX, $
SEGNAME=DUMMY, SEGTYPE=S0, $
FIELD=, ALIAS=, USAGE=A1, ACTUAL=A1, $
SEGNAME=HDRRESEG, SEGTYPE=S0, PARENT=DUMMY, $
GROUP=HDRREC, ALIAS=E01, USAGE=A11, ACTUAL=A11, $
FIELD=HDRKEY, ALIAS=E02, USAGE=A1, ACTUAL=A1, $
$ HDRVALUE, VALUE 'H'. $
FIELD=HDRDATA, ALIAS=E03, USAGE=A10, ACTUAL=A10, $
SEGNAME=DETRESEG, SEGTYPE=S0, PARENT=DUMMY, $
GROUP=DETREC, ALIAS=E04, USAGE=A11, ACTUAL=A11, $
FIELD=DETKEY, ALIAS=E05, USAGE=A1, ACTUAL=A1, $
$ DTLVALUE, VALUE 'D'. $
FIELD=DTLDATA, ALIAS=E06, USAGE=A10, ACTUAL=A10, $
After editing to add the RECTYPE information, the completed Master File is:
FILE=MULT01, SUFFIX=FIX, $
SEGNAME=DUMMY, SEGTYPE=S0, $
FIELD=, ALIAS=, USAGE=A1, ACTUAL=A1, $
SEGNAME=HDRRESEG, SEGTYPE=S0, PARENT=DUMMY, $
GROUP=HDRREC, ALIAS=E01, USAGE=A11, ACTUAL=A11, $
FIELD=RECTYPE, ALIAS=H, USAGE=A1, ACTUAL=A1, $
$ HDRVALUE, VALUE 'H'. $
FIELD=HDRDATA, ALIAS=E03, USAGE=A10, ACTUAL=A10, $
SEGNAME=DETRESEG, SEGTYPE=S0, PARENT=DUMMY, $
GROUP=DETREC, ALIAS=E04, USAGE=A11, ACTUAL=A11, $
FIELD=RECTYPE, ALIAS=D, USAGE=A1, ACTUAL=A1, $
$ DTLVALUE, VALUE 'D'. $
FIELD=DTLDATA, ALIAS=E06, USAGE=A10, ACTUAL=A10, $
| Information Builders |