|
|
|
* This file is intended to be used as a tutorial
* for c-treeRTG COBOL Edition developers to learn
* about the multiple ways that a file descriptor
* is mapped into a SQL table within FairCom DB SQL.
* All copyrights belong to FairCom, Corp.
SELECT CARDFILE
ASSIGN TO "CARDFILE"
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS
CARDRECORD-KEY
ALTERNATE RECORD KEY IS
SPLIT-KEY-NAME-1 =
CARD-CUSTOMER-NAME,
CARD-GROUP-NUMBER
WITH DUPLICATES
ALTERNATE RECORD KEY IS
SPLIT-KEY-NAME-2 =
CARD-GROUP-NUMBER,
CARD-TITLE-NUMBER,
CARD-FAMILY-NUMBER-1
WITH DUPLICATES
ALTERNATE RECORD KEY IS
CARD-EMBOSS-FLAG
WITH DUPLICATES
FILE STATUS IS WS_CARDFILE_STATUS_CODE.
