將記錄從Oracle數組移動到Cobol發生

Question

如何將記錄從Oracle移動到Cobol數組？ 當我移動單個字段時，一切都按預期工作。 當我嘗試在Oracle VARRAY中移動記錄時，我無法使用 使其工作。在PRO * 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 

Oracle類型：

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變量聲明：

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

Answer 1

我認爲你需要會使用不同...例如：

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