* *********************************************************
* *
* * 04/13/2011              MYDBC.DBC              22:03:26
* *
* *********************************************************
* *
* * Description:
* * This program was automatically generated by GENDBC
* * Version 2.26.67
* *
* *********************************************************


DisplayStatus([Creating database...])
CLOSE DATA ALL
CREATE DATABASE 'MYDBC.DBC'
DisplayStatus([Creating table MYTABLE...])
MakeTable_MYTABLE()
DisplayStatus([Creating table MYTABLENOMEMO...])
MakeTable_MYTABLENOMEMO()
DisplayStatus([Creating table MYTABLESIMPLECDX...])
MakeTable_MYTABLESIMPLECDX()
DisplayStatus([Creating table MYTABLECDXNODATE...])
MakeTable_MYTABLECDXNODATE()
DisplayStatus([Creating table MYTABLEIDDATE...])
MakeTable_MYTABLEIDDATE()
DisplayStatus([Creating table MYTABLEID...])
MakeTable_MYTABLEID()
DisplayStatus([Creating table MYTABLEINT...])
MakeTable_MYTABLEINT()
DisplayStatus([Creating table MYTABLEIDTTOC...])
MakeTable_MYTABLEIDTTOC()
DisplayStatus([Creating table MYTABLETTOC...])
MakeTable_MYTABLETTOC()
DisplayStatus([Creating table MYTABLEINTTTOC...])
MakeTable_MYTABLEINTTTOC()
DisplayStatus([Finished.])

FUNCTION MakeTable_MYTABLE
***** Table setup for MYTABLE *****
CREATE TABLE 'MYTABLE.DBF' NAME 'MYTABLE' (HE_NHEARING_ID N(8, 0) NOT NULL, ;
                      HE_TDTHEARING T NOT NULL, ;
                      HE_CLOCATION_ID C(3) NOT NULL, ;
                      HE_CJUDGE_ID C(3) NOT NULL, ;
                      HE_NACT_LENGTH N(4, 0) NOT NULL, ;
                      HE_IORDER I NOT NULL, ;
                      HE_NTYPE N(1, 0) NOT NULL, ;
                      HE_IROOMID I NOT NULL, ;
                      HE_MFTRLOGSHEETNAME M NOT NULL, ;
                      HE_CCALENDAR_NUM C(4) NOT NULL)

***** Create each index for MYTABLE *****
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+DTOS(HE_TDTHEARING) TAG CALELIST COLLATE 'MACHINE'
ALTER TABLE 'MYTABLE' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON TTOD(HE_TDTHEARING) TAG HEAR_DATE COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+TTOC(HE_TDTHEARING,1)+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'
INDEX ON HE_TDTHEARING TAG HE_TDTHEAR COLLATE 'MACHINE'

***** Change properties for MYTABLE *****
ENDFUNC

FUNCTION MakeTable_MYTABLENOMEMO
***** Table setup for MYTABLENOMEMO *****
CREATE TABLE 'MYTABLENOMEMO.DBF' NAME 'MYTABLENOMEMO' (HE_NHEARING_ID N(8, 0) NOT NULL, ;
                            HE_TDTHEARING T NOT NULL, ;
                            HE_CLOCATION_ID C(3) NOT NULL, ;
                            HE_CJUDGE_ID C(3) NOT NULL, ;
                            HE_NACT_LENGTH N(4, 0) NOT NULL, ;
                            HE_IORDER I NOT NULL, ;
                            HE_NTYPE N(1, 0) NOT NULL, ;
                            HE_IROOMID I NOT NULL, ;
                            HE_CCALENDAR_NUM C(4) NOT NULL)

***** Create each index for MYTABLENOMEMO *****
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+DTOS(HE_TDTHEARING) TAG CALELIST COLLATE 'MACHINE'
ALTER TABLE 'MYTABLENOMEMO' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON TTOD(HE_TDTHEARING) TAG HEAR_DATE COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+TTOC(HE_TDTHEARING,1)+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'
INDEX ON HE_TDTHEARING TAG HE_TDTHEAR COLLATE 'MACHINE'

***** Change properties for MYTABLENOMEMO *****
ENDFUNC

FUNCTION MakeTable_MYTABLESIMPLECDX
***** Table setup for MYTABLESIMPLECDX *****
CREATE TABLE 'MYTABLESIMPLECDX.DBF' NAME 'MYTABLESIMPLECDX' (HE_NHEARING_ID N(8, 0) NOT NULL, ;
                               HE_TDTHEARING T NOT NULL, ;
                               HE_CLOCATION_ID C(3) NOT NULL, ;
                               HE_CJUDGE_ID C(3) NOT NULL, ;
                               HE_NACT_LENGTH N(4, 0) NOT NULL, ;
                               HE_IORDER I NOT NULL, ;
                               HE_NTYPE N(1, 0) NOT NULL, ;
                               HE_IROOMID I NOT NULL, ;
                               HE_MFTRLOGSHEETNAME M NOT NULL, ;
                               HE_CCALENDAR_NUM C(4) NOT NULL)

***** Create each index for MYTABLESIMPLECDX *****
ALTER TABLE 'MYTABLESIMPLECDX' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'

***** Change properties for MYTABLESIMPLECDX *****
ENDFUNC

FUNCTION MakeTable_MYTABLECDXNODATE
***** Table setup for MYTABLECDXNODATE *****
CREATE TABLE 'MYTABLECDXNODATE.DBF' NAME 'MYTABLECDXNODATE' (HE_NHEARING_ID N(8, 0) NOT NULL, ;
                               HE_TDTHEARING T NOT NULL, ;
                               HE_CLOCATION_ID C(3) NOT NULL, ;
                               HE_CJUDGE_ID C(3) NOT NULL, ;
                               HE_NACT_LENGTH N(4, 0) NOT NULL, ;
                               HE_IORDER I NOT NULL, ;
                               HE_NTYPE N(1, 0) NOT NULL, ;
                               HE_IROOMID I NOT NULL, ;
                               HE_MFTRLOGSHEETNAME M NOT NULL, ;
                               HE_CCALENDAR_NUM C(4) NOT NULL)

***** Create each index for MYTABLECDXNODATE *****
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+DTOS(HE_TDTHEARING) TAG CALELIST COLLATE 'MACHINE'
ALTER TABLE 'MYTABLECDXNODATE' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+TTOC(HE_TDTHEARING,1)+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'

***** Change properties for MYTABLECDXNODATE *****
ENDFUNC

FUNCTION MakeTable_MYTABLEIDDATE
***** Table setup for MYTABLEIDDATE *****
CREATE TABLE 'MYTABLEIDDATE.DBF' NAME 'MYTABLEIDDATE' (ID I NOT NULL AUTOINC NEXTVALUE 247353 STEP 1, ;
                            CHDATE T NOT NULL)

***** Create each index for MYTABLEIDDATE *****
ALTER TABLE 'MYTABLEIDDATE' ADD PRIMARY KEY ID TAG ID COLLATE 'MACHINE'

***** Change properties for MYTABLEIDDATE *****
ENDFUNC

FUNCTION MakeTable_MYTABLEID
***** Table setup for MYTABLEID *****
CREATE TABLE 'MYTABLEID.DBF' NAME 'MYTABLEID' (ID I NOT NULL AUTOINC NEXTVALUE 247353 STEP 1)

***** Create each index for MYTABLEID *****
ALTER TABLE 'MYTABLEID' ADD PRIMARY KEY ID TAG ID COLLATE 'MACHINE'

***** Change properties for MYTABLEID *****
ENDFUNC

FUNCTION MakeTable_MYTABLEINT
***** Table setup for MYTABLEINT *****
CREATE TABLE 'MYTABLEINT.DBF' NAME 'MYTABLEINT' (HE_NHEARING_ID I NOT NULL, ;
                         HE_TDTHEARING T NOT NULL, ;
                         HE_CLOCATION_ID C(3) NOT NULL, ;
                         HE_CJUDGE_ID C(3) NOT NULL, ;
                         HE_NACT_LENGTH I NOT NULL, ;
                         HE_IORDER I NOT NULL, ;
                         HE_NTYPE I NOT NULL, ;
                         HE_IROOMID I NOT NULL, ;
                         HE_MFTRLOGSHEETNAME M NOT NULL, ;
                         HE_CCALENDAR_NUM C(4) NOT NULL)

***** Create each index for MYTABLEINT *****
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+DTOS(HE_TDTHEARING) TAG CALELIST COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON TTOD(HE_TDTHEARING) TAG HEAR_DATE COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+TTOC(HE_TDTHEARING,1)+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'
INDEX ON HE_TDTHEARING TAG HE_TDTHEAR COLLATE 'MACHINE'
ALTER TABLE 'MYTABLEINT' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'

***** Change properties for MYTABLEINT *****
ENDFUNC

FUNCTION MakeTable_MYTABLEIDTTOC
***** Table setup for MYTABLEIDTTOC *****
CREATE TABLE 'MYTABLEIDTTOC.DBF' NAME 'MYTABLEIDTTOC' (ID I NOT NULL AUTOINC NEXTVALUE 247353 STEP 1, ;
                            CHTTOC C(14) NOT NULL)

***** Create each index for MYTABLEIDTTOC *****
ALTER TABLE 'MYTABLEIDTTOC' ADD PRIMARY KEY ID TAG ID COLLATE 'MACHINE'

***** Change properties for MYTABLEIDTTOC *****
ENDFUNC

FUNCTION MakeTable_MYTABLETTOC
***** Table setup for MYTABLETTOC *****
CREATE TABLE 'MYTABLETTOC.DBF' NAME 'MYTABLETTOC' (HE_NHEARING_ID N(8, 0) NOT NULL, ;
                          HE_CLOCATION_ID C(3) NOT NULL, ;
                          HE_CJUDGE_ID C(3) NOT NULL, ;
                          HE_NACT_LENGTH N(4, 0) NOT NULL, ;
                          HE_IORDER I NOT NULL, ;
                          HE_NTYPE N(1, 0) NOT NULL, ;
                          HE_IROOMID I NOT NULL, ;
                          HE_MFTRLOGSHEETNAME M NOT NULL, ;
                          HE_CCALENDAR_NUM C(4) NOT NULL, ;
                          HE_TTOC C(14) NOT NULL)

***** Create each index for MYTABLETTOC *****
ALTER TABLE 'MYTABLETTOC' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'
INDEX ON HE_TTOC TAG HE_TTOC COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+HE_TTOC TAG CALELIST COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+HE_TTOC+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'

***** Change properties for MYTABLETTOC *****
ENDFUNC

FUNCTION MakeTable_MYTABLEINTTTOC
***** Table setup for MYTABLEINTTTOC *****
CREATE TABLE 'MYTABLEINTTTOC.DBF' NAME 'MYTABLEINTTTOC' (HE_NHEARING_ID I NOT NULL, ;
                             HE_CLOCATION_ID C(3) NOT NULL, ;
                             HE_CJUDGE_ID C(3) NOT NULL, ;
                             HE_NACT_LENGTH I NOT NULL, ;
                             HE_IORDER I NOT NULL, ;
                             HE_NTYPE I NOT NULL, ;
                             HE_IROOMID I NOT NULL, ;
                             HE_MFTRLOGSHEETNAME M NOT NULL, ;
                             HE_CCALENDAR_NUM C(4) NOT NULL, ;
                             HE_TTOC C(14) NOT NULL)

***** Create each index for MYTABLEINTTTOC *****
INDEX ON HE_CLOCATION_ID TAG LOCATION COLLATE 'MACHINE'
INDEX ON HE_CJUDGE_ID TAG JUDGE COLLATE 'MACHINE'
INDEX ON HE_IROOMID TAG HE_IROOMID COLLATE 'MACHINE'
INDEX ON HE_TTOC TAG HE_TTOC COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+HE_TTOC TAG CALELIST COLLATE 'MACHINE'
INDEX ON HE_CLOCATION_ID+HE_CJUDGE_ID+HE_TTOC+STR(HE_IORDER) TAG SUMMARY COLLATE 'MACHINE'
ALTER TABLE 'MYTABLEINTTTOC' ADD PRIMARY KEY HE_NHEARING_ID TAG HEARING_ID COLLATE 'MACHINE'

***** Change properties for MYTABLEINTTTOC *****
ENDFUNC


FUNCTION DisplayStatus(lcMessage)
WAIT WINDOW NOWAIT lcMessage
ENDFUNC