6
레코드를 Oracle에서 Cobol 배열로 옮기는 방법은 무엇입니까? 하나의 필드를 이동하면 모든 것이 예상대로 작동합니다. Oracle VARRAY에서 레코드를 이동하려고하면 작동하지 않습니다. .Oracle 배열에서 Cobol로 레코드 이동이 발생합니다.
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).