LOP:
      LOOP
         IF (i_flag > 300)
         THEN
            LEAVE LOP;
         END IF;

         FOR lp AS SELECT AREA_CODE,
                          SUBS_AREA_CODE,
                          BLOCK_CODE,
                          STATION_CODE,
                          COMTY_CODE,
                          COMTY_TYPE
                     FROM DW.TB_COMTY_CODE
                    WHERE     LENGTH (block_code) <> 0
                          AND AREA_CODE=in_area
         DO
            SET tot_num = int (rand () * 100);
            SET add_num = int (rand () * 30);
            SET lst_num = int (rand () * 30);

            IF lst_num >= tot_num
            THEN
               SET lst_num = tot_num - 10;
            END IF;

            IF add_num >= tot_num
            THEN
               SET add_num = tot_num - 5;
            END IF;

            IF lst_num < 0
            THEN
               SET tot_num = 50;
               SET add_num = 10;
               SET lst_num = 10;
            END IF;

            SET i_date = DATE (TRIM (char (ii_year)) || '-01-01') + i_flag DAY;