自己写的 ORACLE 函数的解读

DECLARE 
  MAXWRITNO 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 
 
      ----------获取最大的文书号，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;
END;