工作存储过程编写问题

工作可能涉及到编写问题汇总（存储过程-COBOL）

-- 注：修改前可以先美化 SQL 
1.支持判断为''、' '、null 的场景
if(trim(i) is null)

2.主函数命名修改为：PROC_MAIN

3.存储过程命名需要确认（_D or _B...）

4.SQLCODE 不能在存储过程中使用
 （1）SQLCODE = NOT-FOUND 表示数据找不到，在存储过程中该场景需要写在 EXCEPTION 中
  如：
     WHEN NO_DATA_FOUND THEN 
     END_FLAG := 'T';
     
   游标中数据没有时写法：
   IF CUR_RTHFNJNL%NOTFOUND THEN
   END_OF_RTHFNJNL := 'T';
   
（2）SQLCODE NOT = 0 表示 查询失败（SQL-ERROR 程序中断），此时写在主程序下

（3）SQLCODE = 0 表示查询成功，该场景写在 
WHEN OTHERS THEN
PBCO.PCKG_PBCO__ERROR.RAISE_INFO('PROC_100_FETCH_RTHFNJNL_TABLE');

（4）存储过程中涉及到的 DML 语句 FETCH FIRST 1 ROW ONLY：
换行展示

（5）打印日志语句 DISPLAY 对应：
PBCO.PCKG_PBCO_B_PUBMODUL.WRITE_LOG('G_RTBRSSDD.AMT' ||· G_RTBRSSDD.AMT);

(6) 字符串截位：
SUBSTR(BK1,29,1) <> '1' 对应存储过程中可以改为：
SUBSTR(RPAD(NVL(BK1,''),30,''),29,1) <> '1';
1.NVL(BK1,'') 判断 BK1 是否为空 ，如果为空返回'';
2.NVL(BK1,'') 如果 BK1 不为空，进行后续处理；
3.RPAD(NVL(BK1,''),30,'') 从右边对BK1进行填充，填充长度为30，填充字符串为 ''
4.SUBSTR(RPAD(NVL(BK1,''),30,''),29,1):填充之后，对填充后的BK1 进行截位从

注:
LPAD 这一函数，LPAD 函数是从左边对字符串使用指定的字符进行填充，
L是left(左边)的简写，PAD是padded(填充)的简写，所以LPAD就是从左边填充的意思。语法格式：
LPAD(string, padded_length, [pad_string])
eg:
--返回值长度大于源字符串长度，将进行填充
select LPAD('123', 4, '0') from dual;
结果为:0123
--返回值长度小于源字符串长度，将进行截断
select LPAD('123', 2) from dual;
结果为:12
--返回值长度大于源字符串长度，没填写对应的填充字符串，将进行填充空格
select LPAD('123', 5) from dual;
结果为:'  123'



RPAD 函数从右边对字符串使用指定的字符进行填充，语法格式：
RPAD(string,padded_length,[pad_string])
eg:
--返回值长度大于源字符串长度，将进行填充
select RPAD('123', 5, '0') from dual;
结果为:12300
--返回值长度小于源字符串长度，将进行截断
select RPAD('123', 2, '0') from dual;
结果为:12
--返回值长度大于源字符串长度，没填写对应的填充字符串，将进行填充空格
select RPAD('123', 5) from dual;
结果为:'123 '



1、substr函数格式   (俗称：字符截取函数)
　　格式1： substr(string, int a, int b);
　　格式2：substr(string, int a) ;

解析：
    格式1：
        1、string 需要截取的字符串
        2、a 截取字符串的开始位置（注：当a等于0或1时，都是从第一位开始截取）
        3、b 要截取的字符串的长度

    格式2：
        1、string 需要截取的字符串
        2、a 可以理解为从第a个字符开始截取后面所有的字符串。
        
        
 1、select substr('HelloWorld',0,3) value from dual; //返回结果：Hel，截取从“H”开始3个字符
 2、select substr('HelloWorld',1,3) value from dual; //返回结果：Hel，截取从“H”开始3个字符
 3、select substr('HelloWorld',2,3) value from dual; //返回结果：ell，截取从“e”开始3个字符
 4、select substr('HelloWorld',0,100) value from dual; //返回结果：HelloWorld，100虽然超出预处理的字符串最长度，但不会影响返回结果，系统按预处理字符串最大数量返回。
 5、select substr('HelloWorld',5,3) value from dual; //返回结果：oWo
 6、select substr('Hello World',5,3) value from dual; //返回结果：o W (中间的空格也算一个字符串，结果是：o空格W)
 7、select substr('HelloWorld',-1,3) value from dual; //返回结果：d （从后面倒数第一位开始往后取1个字符，而不是3个。原因：下面红色 第三个注解）
 8、select substr('HelloWorld',-2,3) value from dual; //返回结果：ld （从后面倒数第二位开始往后取2个字符，而不是3个。原因：下面红色 第三个注解）
 9、select substr('HelloWorld',-3,3) value from dual; //返回结果：rld （从后面倒数第三位开始往后取3个字符）
10、select substr('HelloWorld',-4,3) value from dual; //返回结果：orl （从后面倒数第四位开始往后取3个字符）