t_c_b_s之存储过程plsql record类型小记_while loop
lvnIdx := in_BALCATCD.FIRST;--初始供值
WHILE lvnIdx IS NOT NULL LOOP --while loop cycle
lvsActvMsg := 'Getting BalAmt at idx ' || lvnIdx; --logging for debug
lvnBalAmt := in_BALAMT( lvnIdx );--plsql specific give value
IF lvnBalAmt <> 0 THEN --condition style
lvnAdjAmt := lvnBalAmt;
lvsActvMsg := 'Getting BalCat at idx ' || lvnIdx; --same as above the 3 line
lvsBalCatCd := in_BALCATCD( lvnIdx ); --plsql type var give value
lvsActvMsg := 'Getting BalTyp at idx ' || lvnIdx;
lvsBalTypCd := in_BALTYPCD( lvnIdx );
END IF;
lvnIdx := in_BALCATCD.NEXT( lvnIdx ); --cycle var add 1
END LOOP; --cycle endding
WHILE lvnIdx IS NOT NULL LOOP --while loop cycle
lvsActvMsg := 'Getting BalAmt at idx ' || lvnIdx; --logging for debug
lvnBalAmt := in_BALAMT( lvnIdx );--plsql specific give value
IF lvnBalAmt <> 0 THEN --condition style
lvnAdjAmt := lvnBalAmt;
lvsActvMsg := 'Getting BalCat at idx ' || lvnIdx; --same as above the 3 line
lvsBalCatCd := in_BALCATCD( lvnIdx ); --plsql type var give value
lvsActvMsg := 'Getting BalTyp at idx ' || lvnIdx;
lvsBalTypCd := in_BALTYPCD( lvnIdx );
END IF;
lvnIdx := in_BALCATCD.NEXT( lvnIdx ); --cycle var add 1
END LOOP; --cycle endding
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9240380/viewspace-702769/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
金融业务＿过账＿posting
请登录后发表评论
登录
全部评论
最新文章
- redhat要持续学习哟加加油
- 升级redhat 6.8 默认gdb 7.2到gdb 8.3.1操作指南
- redhat 6.8升级默认cmake 2.8到cmake 3.9
- mysql source code源代安装的前提条件requirement
- mysql handler语句之一
- mysql show open tables相关知识体系之一
- mysql snapshot read快照读及current read当前读与锁lock之一
- mysql 5.7 _rowid虚列之一
- mysql innodb lock锁之record lock之一
- mysql隐式提交事务transaction一点笔记
