DECLARE MAXWRITNO INTEGER ; <!--聲明了2個(gè)變量，變量類(lèi)型是INTEGER-->LINETY INTEGER; BEGIN <!--表示進(jìn)入方法體-->----------獲取要循環(huán)的結(jié)果集，APPLINPER班線許可申請(qǐng)表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 <!-- 這個(gè)LOOP表示循環(huán)開(kāi)始，實(shí)際上會(huì)查詢多條記錄出來(lái)，那么第1次循環(huán)時(shí)REC 會(huì)獲得第1條記錄，第2次循環(huán)時(shí)再獲取第2條記錄，依此類(lèi)推-->----------獲取最大的文書(shū)號(hào)，PERNOTION案例審核意見(jiàn)表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);---------查詢對(duì)應(yīng)班線類(lèi)型SELECT L.LINTYPE INTO LINETY FROM $PRDLINE.LINE L WHERE L.LINID=REC.LINID;-----------添加數(shù)據(jù)到LINPERREG班線登記表，班線經(jīng)營(yíng)許可通過(guò)的才能往班線登記表插入數(shù)據(jù)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中對(duì)應(yīng)的班線許可申請(qǐng)記錄UPDATE $PRDLINE.APPLINPER SET PERDECNO=MAXWRITNO+1,APPPERSTATUES='22',PERDEP=$SYSDEPCODE WHERE PERID=REC.PERID;END LOOP;<!-- 這個(gè)LOOP表示循環(huán)結(jié)束--> END; <!-- 表示結(jié)束方法的調(diào)用，或者說(shuō)離開(kāi)方法體-->

總結(jié)

以上是生活随笔為你收集整理的自己写的 ORACLE 函数的解读的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。