|
|
|
A directive is used here to force c-treeRTG to use the name of the group CARD-TITLE-NUMBER instead of the subfields when building the SQL table. By default, xddgen always expands the field belonging to groups and shows them in the SQL structure. However, there are cases where this is not the desired behavior.
*>>XDD USE GROUP
10 CARD-TITLE-NUMBER.
15 CARD-TITLE-NUMBER-1 PIC 9(4).
15 CARD-TITLE-NUMBER-2 PIC 9(6).
10 CARD-TITLE-NUMBER-X REDEFINES CARD-TITLE-NUMBER
PIC 9(10).
10 CUSTOMER-NUMBER PIC 9(4).
10 ELITE-MEMBER-TYPE PIC X.
88 CARD-GOLD VALUE "G".
88 CARD-PLATINUM VALUE "P".
88 CARD-SILVER VALUE "S".
