setup.4gl

开发工具 Informix-4gl

               Alter table prptinsured add
                        (PossessNature CHAR(4) before Bank);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssource"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (BusinessSource CHAR(4) before Bank);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssort"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (BusinessSort CHAR(4) before Bank);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "occupationcode"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                       (OccupationCode CHAR(6) before Bank);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "educationcode"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (EducationCode CHAR(4) before Bank);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "mobile"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (mobile CHAR(15) before benefitflag);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "email"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (email VARCHAR(60) before benefitflag);
           END IF


           #--PrpLregist表

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prplregist"
                 AND a.tabid = b.tabid
                 and b.colname = "lflag"
           IF lv_col_count = 0 THEN
               Alter table PrpLregist add
                         (Lflag CHAR(2) BEFORE ClassCode);
               UPDATE PrpLregist SET Lflag = "L" WHERE 1=1;
               ALTER TABLE PrpLregist MODIFY
                         (Lflag CHAR(2) NOT NULL);
           END IF

           #--Prp*insuredExt

           alter table PrpTinsuredExt MODIFY
                                 (displayname varchar(60)  NOT NULL);
           alter table PrpCinsuredExt MODIFY
                                 (displayname varchar(60)  NOT NULL);
           alter table PrpPinsuredExt MODIFY
                                 (displayname varchar(60)  NOT NULL);

           #--Prp*main_credit

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "creditcardtype"
           IF lv_col_count = 0 THEN
               Alter table PrpTmain_credit add
                         (CreditCardType CHAR(1) BEFORE CreditCardName)
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "currency"
           IF lv_col_count = 0 THEN
               Alter table PrpTmain_credit add
                         (Currency CHAR(3) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "bankname"
           IF lv_col_count = 0 THEN
               Alter table PrpTmain_credit add
                        (BankName VARCHAR(60) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prptmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "usearea"
           IF lv_col_count = 0 THEN
               Alter table PrpTmain_credit add
                         (UseArea VARCHAR(60) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "creditcardtype"
           IF lv_col_count = 0 THEN
               Alter table PrpCmain_credit add
                         (CreditCardType CHAR(1) BEFORE CreditCardName)
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "currency"
           IF lv_col_count = 0 THEN
               Alter table PrpCmain_credit add
                         (Currency CHAR(3) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "bankname"
           IF lv_col_count = 0 THEN
               Alter table PrpCmain_credit add
                        (BankName VARCHAR(60) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "usearea"
           IF lv_col_count = 0 THEN
               Alter table PrpCmain_credit add
                         (UseArea VARCHAR(60) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "creditcardtype"
           IF lv_col_count = 0 THEN
               Alter table PrpPmain_credit add
                         (CreditCardType CHAR(1) BEFORE CreditCardName)
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "currency"
           IF lv_col_count = 0 THEN
               Alter table PrpPmain_credit add
                         (Currency CHAR(3) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "bankname"
           IF lv_col_count = 0 THEN
               Alter table PrpPmain_credit add
                        (BankName VARCHAR(60) BEFORE Remark);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppmain_credit"
                 AND a.tabid = b.tabid
                 and b.colname = "usearea"
           IF lv_col_count = 0 THEN
               Alter table PrpPmain_credit add
                         (UseArea VARCHAR(60) BEFORE Remark);
           END IF

           #--PrpUndoCancel
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpundocancel"
           IF lv_col_count > 0 THEN
                Drop table PrpUndoCancel
           END IF

           #--PrpUndoCancelFee
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpundocancelfee"
           IF lv_col_count > 0 THEN
                Drop table PrpUndoCancelFee
           END IF

           #--prptcardevice
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptcardevice"
            IF lv_col_count > 0 THEN
                Drop table PrpTcarDevice
            END IF

           #--PrpCcardecive
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpccardevice"
           IF lv_col_count > 0 THEN
                Drop table PrpCcarDevice
           END IF

           #--PrpPcarDevice
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppcardevice"
           IF lv_col_count > 0 THEN
                Drop table PrpPcarDevice
           END IF

           #--PrpTcarDriver
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptcardriver"
           IF lv_col_count > 0 THEN
                Drop table PrpTcarDriver
           END IF
           
           #--PrpCcarDriver
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpccardriver"
           IF lv_col_count > 0 THEN
                Drop table PrpCcarDriver
           END IF

           #--PrpPcarDriver
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppcardriver"
           IF lv_col_count > 0 THEN
                Drop table PrpPcarDriver
           END IF

           #--PrpLrepairFee
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplrepairfee"
           IF lv_col_count > 0 THEN
                Drop table PrpLrepairFee
           END IF

           #--PrpLcomponent
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcomponent"
           IF lv_col_count > 0 THEN
                Drop table PrpLcomponent
           END IF

           #--PrpLsalvation
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplsalvation"
           IF lv_col_count > 0 THEN
                Drop table PrpLsalvation
           END IF

           #--PrpLinvestigate
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplinvestigate"
           IF lv_col_count > 0 THEN
                Drop table PrpLinvestigate
           END IF

           #--PrpLcheckLoss
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcheckloss"
           IF lv_col_count > 0 THEN
                Drop table PrpLcheckLoss
           END IF

           #--PrpLcheckExt
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcheckext"
           IF lv_col_count > 0 THEN
                Drop table PrpLcheckExt
           END IF

           #--PrpMotorcade
           LET lv_col_count = 0