Oracle 배열에서 Cobol로 레코드 이동이 발생합니다.

Question

레코드를 Oracle에서 Cobol 배열로 옮기는 방법은 무엇입니까? 하나의 필드를 이동하면 모든 것이 예상대로 작동합니다. Oracle VARRAY에서 레코드를 이동하려고하면 작동하지 않습니다. .

Error at line 137, column 12 in file ESF3.ordbso07.PCO 
      EXEC SQL EXECUTE  
...........1 
PCB-S-00576, PLS-382: expression is of wrong type 
Error at line 137, column 12 in file ESF3.ordbso07.PCO 
      EXEC SQL EXECUTE  
...........1 
PCB-S-00576, PLS-0: Statement ignored 

오라클 유형 :

TYPE QDELSSRD_arr IS VARRAY(30) OF QDELSSRD_typ; 

TYPE SODLSSRD_typ IS RECORD (-- DBSO07 SOK 
    QDELSSRD    QDELSSRD_arr -- 30 x QDELSSRD_typ 

OC is SODLSSRD_typ; 
TYPE QDELSSRD_typ IS RECORD (
    ENAMN    arbetssokande.efternamn%type, -- VARCHAR2(30 CHAR) 
    FNAMN    arbetssokande.fornamn%type, -- VARCHAR2(20 CHAR) 
); 

발췌문 COBOL의 ESQL 익명 PL/SQL 블록 :

FOR LV IN 1..:RC-ZHITS 
LOOP 
    :QDELSSRD(LV) := OC.QDELSSRD(LV); 
END LOOP; 

COBOL 변수 선언 :

프로 * COBOL 프리 D 파일러는 다음과 같은 오류 메시지를 제공합니다

 15  QSODLSSRD. 
      18  QDELSSRD      OCCURS 30. 
        21  ENAMN       PIC X(030). 
        21  FNAMN       PIC X(020). 

Answer 1

나는 예를 들어 ... 당신이 VARYING를 사용할 필요가 있다고 생각 :

18  QDELSSRD      VARYING OCCURS 20 TIMES. 
21  ENAMN       PIC X(030).  
21  FNAMN       PIC X(020). 

http://www.pitt.edu/~hoffman/oradoc/server.804/a58232/ch04.htm