DECLARE MAXWRITNO INTEGER ; <!--声明了2个变量，变量类型是INTEGER-->LINETY INTEGER;
BEGIN <!--表示进入方法体-->----------获取要循环的结果集，APPLINPER班线许可申请表FOR REC IN (select * from  $PRDLINE.APPLINPER a where (A.APPPERSTATUES='01' OR  A.APPPERSTATUES='02' OR  A.APPPERSTATUES='17')  AND A.ISEFFECT='0'  ) LOOP <!-- 这个LOOP表示循环开始，实际上会查询多条记录出来，那么第1次循环时REC
会获得第1条记录，第2次循环时再获取第2条记录，依此类推-->----------获取最大的文书号，PERNOTION案例审核意见表SELECT MAX(WRITNO) INTO MAXWRITNO FROM $PRDLINE.PERNOTION T WHERE   WRITTYPE='106' AND  LENGTH(WRITNO)=10 AND PERNOTIONYEAR=SUBSTR(TO_CHAR(SYSDATE,'YYYY-MM-DD'),0,4);---------查询对应班线类型SELECT L.LINTYPE INTO LINETY FROM $PRDLINE.LINE L WHERE L.LINID=REC.LINID;-----------添加数据到LINPERREG班线登记表，班线经营许可通过的才能往班线登记表插入数据insert into linperreg(linperregid, cmcltid, linid,     , lintype, regctctype, times, pervecnum, biscltid, biscltname, stadate, enddate, creusrcode, credate, cretime, ediusrcode, edidate, editime, remarkdoc, perstatus, iseffect, days, docdepcode, cyclefatban, passeanum, perid)values(sys_guid(), REC.CMCLTID, REC.LINID,'', LINETY ,REC.REGCTCTYPE ,REC.TIMES, REC.PERVECNUM, REC.BISCLTID, REC.BISCLTNAME, REC.STADATE, REC.ENDDATE, '$SYSUSERCODE', TO_CHAR(SYSDATE,'YYYY-MM-DD'),'', '', '', '', '', '','0', REC.DAYS, REC.DEPCODE, REC.CYCLEFATBAN, REC.PASSEANUM, REC.PERID);------------更新APPLINPER中对应的班线许可申请记录UPDATE $PRDLINE.APPLINPER SET PERDECNO=MAXWRITNO+1,APPPERSTATUES='22',PERDEP=$SYSDEPCODE WHERE PERID=REC.PERID;END LOOP;<!-- 这个LOOP表示循环结束-->
END; <!-- 表示结束方法的调用，或者说离开方法体-->