1

コンマ区切りの文字列に基づいて配列を作成したいと考えています。しかし、これ以上 mysref を hwlp することはできません。


DECLARE
type rol_type is record 
(role  MMSTROLEHDR.ROLECODE%TYPE) ;



array_rolecode  rol_type;
   vl_prmval        VARCHAR2 (4000) := '2,3,4';
   vl_pos           NUMBER;
BEGIN
   WHILE (INSTR (vl_prmval, ',') > 0)
   LOOP
      vl_pos := INSTR (vl_prmval, ',');



  --vl_cnt := vl_cnt + 1;
  array_rolecode.role := SUBSTR (vl_prmval, 1, vl_pos - 1);
  vl_prmval := SUBSTR (vl_prmval, vl_pos + 1);




END LOOP;



FOR j IN array_rolecode.first .. array_rolecode.last
   LOOP
      DBMS_OUTPUT.put_line (array_rolecode.role);
   END LOOP;
END;
END;

4

1 に答える 1

0

配列は、レコードとしてではなく、配列として宣言する必要があります。サイクルにエラーがあり、文字列の最後の部分が配列に挿入されていないようです。確認する必要があります。ただし、ここに作業スクリプトがあります：

DECLARE
type rol_type is record 
(role  MMSTROLEHDR.ROLECODE%TYPE) ;

type rol_arr is table of rol_type
index by binary_integer;

--array_rolecode  rol_type;
array_rolecode rol_arr;
   vl_prmval        VARCHAR2 (4000) := '2,3,4';
   vl_pos           NUMBER := 0;
BEGIN
   WHILE (INSTR (vl_prmval, ',') > 0)
   LOOP
      vl_pos := INSTR (vl_prmval, ',');

  --vl_cnt := vl_cnt + 1;
  array_rolecode(NVL(array_rolecode.last+1,1)).role := SUBSTR (vl_prmval, 1, vl_pos - 1);
  vl_prmval := SUBSTR (vl_prmval, vl_pos + 1);


END LOOP;

FOR j IN array_rolecode.first .. array_rolecode.last
   LOOP
      DBMS_OUTPUT.put_line (array_rolecode(j).role);
END LOOP;
END;
于 2013-10-04T08:12:34.257 に答える