FETCH 表1 INTO 表2;
      EXIT WHEN 表1%NOTFOUND OR 表1%NOTFOUND IS NULL;
      SELECT SUBSTR(LTRIM(TO_CHAR(SYSDATE,'YYYYMM')),4)||字段A||LTRIM(TO_CHAR(seqno,'0000000'))
        INTO lo_A
        FROM 表3
       WHERE para='dd';
       UPDATE 表3
          SET seqno = seqno + 1