Oracle ´æ´¢¹ý³ÌµÄʹÓÃÀý×Ó

CREATE OR REPLACE Procedure PRCGETV6(
 inp_UserCD  IN VARCHAR2,
 inp_SEIHIN  IN VARCHAR2,
 inp_SOKOCD  IN VARCHAR2,
 inp_JITUZAI  IN VARCHAR2,
 inp_GYOSU  IN VARCHAR2,
 out_KOSHINYMD  OUT VARCHAR2,
 out_ERR   OUT VARCHAR2
) Is
 CONST_OPERATION_NAME  CONSTANT VARCHAR2(30):= 'PRCGETV6'; --²Ù×÷識別×Ó
-- out_KOSHINYMD VARCHAR2(14);
-- out_ERR  VARCHAR2(10);
 varUSERCD VARCHAR2(10);
 varSEIHIN VARCHAR2(11);
 varSOKOCD VARCHAR2(1);
 varKOSHINHI VARCHAR2(14);
 numJITUZAI NUMBER;
 numKEISANZAI NUMBER;
 numGYOSU NUMBER;
 numSEQ NUMBER;
 CURSOR CUR1 IS
 Select
  KBN,
  JUBI,
  YOBI,
  MENO,
  MNYUKO,
  DENPYONO,
  MSYUKO,
  EGYCD,
  ZAISU,
  KBN1,
  KBN2,
  TANMAILADD,
  IOKBN
 from
 (
  Select
   SH_SSTS As KBN,
   SH_DNPHKOB As JUBI,
   V6_IOYMD As YOBI,
--   SUBSTR(V6_MEMO,1,8)||DECODE(TRIM(SH_SSTS),NULL,'',';')||SH_SSTS||DECODE(TRIM(SH_RYCD),NULL,'',';')||SH_RYCD As MENO,
--   SUBSTR(V6_MEMO,1,8)||';'||SH_SSTS||';'||SH_RYCD As MENO,
   SUBSTR(V6_MEMO,1,8)||';'||SH_RYCD As MENO,
   V6_SU As MNYUKO,
   SUBSTR(V6_DENPYO,1,8) As DENPYONO,
   0 As MSYUKO,
   V6_BMN As EGYCD,
   0 As ZAISU,
   DECODE(V6_DATAKBN,'H','発','J','ÊÜ','ﾖ','Óè') As KBN1,
   RPAD(V6_R,1,' ')||RPAD(V6_DATAKBN,1,' ')||RPAD(V6_C,1,' ') As KBN2,
--   TRIM(NVL(NS.KNAME,NS.WEB))||'<'||TRIM(NS.WEB)||'@bac.jp>' As TANMAILADD,
   ' '  As TANMAILADD,
  &nb