SQLCBL INSERT时SQLCODE 00000700Q问题

apollo650

因SQLCBL  INSERT 无法插入数据  数据库定义是REUSE *YES    SQLCODE提示00000700Q   查询代码是无法确认输入数据

请各位达人大大提供个解决方法， 谢谢。


IDENTIFICATION          DIVISION.
PROGRAM-ID.             GUC012B.
ENVIRONMENT             DIVISION.                 
CONFIGURATION           SECTION.                  
SOURCE-COMPUTER.        IBM-AS400.               
OBJECT-COMPUTER.        IBM-AS400.               
SPECIAL-NAMES.          REQUESTOR  IS  CON        
                        LOCAL-DATA IS  LDA-AREA.  
         
**---------------------------------*                           
INPUT-OUTPUT            SECTION.                              
FILE-CONTROL.                                                  
* TEST                                                         
     SELECT TEST040-DB                                          
         ASSIGN          TO  DATABASE-TEST040                  
         ORGANIZATION    IS  INDEXED                           
         ACCESS MODE     IS  DYNAMIC                           
         RECORD KEY      IS  EXTERNALLY-DESCRIBED-KEY           
         FILE   STATUS   IS  FILE-STATUS.                       
****************************************************************
DATA                    DIVISION.                              
FILE                    SECTION.                              
**-------------------------------*                              
FD  TEST040-DB         LABEL RECORDS ARE STANDARD.              
01  TEST040R.                                                   
COPY DDSR-ALL-FORMAT     OF    TEST040.                        
*****************************************************************
WORKING-STORAGE         SECTION.                                
**---------------------------------*                             
COPY  COMMAREA          OF     QDDSSRC.                        
     EXEC  SQL   INCLUDE  SQLCA   END-EXEC.                     
                                                                 
01  WDEPT       PIC  X(04).                                    
01  WDEPTNM     PIC  X(20).                                    
01  II          PIC S9(11).                                    
**---------------------------------*                             
LINKAGE                 SECTION.                                
*****************************************************************
*PROCEDURE               DIVISION USING LINK-PARM.               
PROCEDURE               DIVISION.                              
**---------------------------------*                             
MAIN-OPEN.                                                      
     OPEN      I-O      TEST040-DB.                              
                                                                 
     PERFORM   INQUIRY-PROCESS     THRU   INQUIRY-PROCESS-EXIT.  
                                                                 
     GOBACK.                                                     
                                                                 

*****************************************************************
INQUIRY-PROCESS.                                                
*-----------------------------*                                   
     INITIALIZE  SQLCA                                            
     DISPLAY SQLCODE "*0*"                                       
     MOVE  "1111"    TO  WDEPT                                    
     MOVE  "1111"    TO  WDEPTNM                                 
     EXEC  SQL                                                   
                SELECT DEPT                                       
                  INTO :WDEPT                                    
                  FROM KNYLRN/TEST040                             
     END-EXEC.                                                   
     DISPLAY SQLCODE "*1*".                                       
     INITIALIZE  SQLCA                                            
     EXEC  SQL                                                   
                INSERT INTO                                       
        KNYLRN/TEST040  ( DEPT,DEPTNM )   
                VALUES  ( :WDEPT,:WDEPTNM )
     END-EXEC.                             
     DISPLAY SQLCODE "*2*".               
INQUIRY-PROCESS-EXIT.
    EXIT.