setup.4gl

来自「开发工具 Informix-4gl」· 4GL 代码 · 共 1,786 行 · 第 1/5 页

                 and b.colname = "identifytype"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured add
                         (identifytype char(2) before identifynumber);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "relateserialno"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured add
                        (relateserialno SMALLINT before identifytype);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "insuredidentity"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured add
                        (insuredidentity char(2) before relateserialno);
           END IF

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

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "benefitrate"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured add
                        (benefitrate decimal(5,2) before flag);
           END IF

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

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "possessnature"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssource"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssort"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "occupationcode"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "educationcode"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "mobile"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured 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 = "prpcinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "email"
           IF lv_col_count = 0 THEN
               Alter table prpcinsured add
                        (email VARCHAR(60) before benefitflag);
           END IF

           #--prppinsured

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "identifytype"
           IF lv_col_count = 0 THEN
               Alter table PrpPinsured add
                        (identifytype char(2) before  identifynumber);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "relateserialno"
           IF lv_col_count = 0 THEN
               Alter table PrpPinsured add
                        (relateserialno SMALLINT before  identifytype);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "insuredidentity"
           IF lv_col_count = 0 THEN
               Alter table PrpPinsured add
                        (insuredidentity char(2) before  relateserialno);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "accountname"
           IF lv_col_count = 0 THEN
               Alter table PrpPinsured add
                        (accountname varchar(60,0) before  account);
           END IF

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "benefitrate"
           IF lv_col_count = 0 THEN
               Alter table PrpPinsured add
                        (benefitrate decimal(5,2) before flag);
           END IF

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

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "possessnature"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssource"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "businesssort"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "occupationcode"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "educationcode"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "mobile"
           IF lv_col_count = 0 THEN
               Alter table prppinsured 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 = "prppinsured"
                 AND a.tabid = b.tabid
                 and b.colname = "email"
           IF lv_col_count = 0 THEN
               Alter table prppinsured add
                        (email VARCHAR(60) before benefitflag);
           END IF


           #--PRPTINSURED表
           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 = "identifytype"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (identifytype char(2) before  identifynumber);
           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 = "relateserialno"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (relateserialno SMALLINT before  identifytype);
           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 = "insuredidentity"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (insuredidentity char(2) before  relateserialno);
           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 = "accountname"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (accountname varchar(60,0) before  account);
           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 = "benefitrate"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (benefitrate decimal(5,2) before flag);
           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 = "creditlevel"
           IF lv_col_count = 0 THEN
               Alter table prptinsured add
                        (CreditLevel CHAR(1) 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 = "possessnature"
           IF lv_col_count = 0 THEN