|
|
|
OCCURs are handled automatically by FairCom RTG when converting this table into SQL. FairCom RTG automatically expands every OCCURS into multiple fields, using numbered extensions such as "_1", "_2" and so on. Because we are not explicitly using the groups for field naming in this example, the final fields to be displayed in SQL will be the most internal ones. After sqlizing this table, you can view it in SQL Explorer to see the following fields:
CARD_LABEL_NUMBER_1
CARD_MAIN_NUMBER_1
CARD_NUMBER_CRC_1
CARD_LABEL_NUMBER_2...
This might cause some field name conflicts, depending on how your fields are named in COBOL. In this example, if we had named VALID-UNTIL-DATE-1X without the final X, a conflict would happen and you would not be able to sqlize.
10 GROUP-TITLE-INFO OCCURS 2 TIMES.
*>>XDD USE GROUP
*>>XDD NAME=CARD_FAMILY_NUMB
15 CARD-FAMILY-NUMBER.
20 CARD-LABEL-NUMBER PIC 9(4).
20 CARD-MAIN-NUMBER PIC 9(8).
20 CARD-NUMBER-CRC PIC 9(2).
*>>XDD USE GROUP
*>>XDD NAME=EMISSION
*>>XDD DATE = YYMMDD
15 EMISSION-DATE PIC 9(6) COMP-6.
*>>XDD USE GROUP
*>>XDD NAME=VALID_UNTIL
*>>XDD DATE=YYMMDD
15 VALID-UNTIL-DATE PIC 9(6) COMP-6.
