SQL0117 Error on AS400

I am having trouble reading some data from a data file and writing it out to another file using SQL/400.  I am getting the following error message when I "RUNSQLSTM"

SQL0117 30 1  Statement contains wrong number of value

 where 30 is the severity level and 1 is the line number that the error usually occurs on  but line 1 is not helpful to debug this issue.

 The only thing that I can find when I google this error number is the idea that I am trying to insert X number of items into a table with Y columns defined - I have double checked and I don't think this is the case.   I would really appreciate help.  
The SQL reads as follows:  (and is also attached as a word document if you prefer that)


0001.00  CREATE PROCEDURE PDCMNTX                      
0002.00  LANGUAGE SQL                                  
0003.00  MODIFIES SQL DATA                              
0004.00  BEGIN                                          
0005.00  DECLARE HSPV DEC(3,0);                        
0006.00  DECLARE ACCTV DEC(7,0);                        
0007.00  DECLARE CDT DEC(6,0);                          
0008.00  DECLARE CTM DEC(4,0);                          
0009.00  DECLARE ACD CHAR(2);                          
0010.00  DECLARE SHORTTEXT CHAR(30);                    
0011.00  DECLARE SECURTYCD CHAR(4);                    
0012.00  DECLARE LOGNUMV DEC(7,0);                      
0013.00  DECLARE FLUPDT DEC(6,0);                      
0014.00  DECLARE LGNUM DEC(7,0);                        
0015.00  DECLARE CEN DEC(2,0);                          
0016.00  DECLARE CEN2V DEC(2,0);                        
0017.00  DECLARE LONGTXT CHAR(60);                      
0018.00  DECLARE PLANV DEC(2,0);                        
0019.00  DECLARE REPV  CHAR(2);                        
0020.00  DECLARE RQSV DEC(9,0);                                                      
0021.00  DECLARE EOF_COND CHAR(1) DEFAULT '0';                                      
0022.00  DECLARE NOT_FOUND CONDITION FOR SQLSTATE '02000';                          
0023.00  DECLARE SQLSTATE CHAR(5);                                                  
0024.00  DECLARE MSGTEXT CHAR(70);                                                  
0025.00  DECLARE APCEN DEC(2,0);                                                    
0026.00  DECLARE APCTXT CHAR(60);                                                    
0027.00  DECLARE APPLAN DEC(2,0);                                                    
0028.00  DECLARE APPREP CHAR(2);                                                    
0029.00  DECLARE APRQS DEC(9,0);                                                    
0030.00  DECLARE CEN2 DEC(2,0);                                                      
0031.00  DECLARE CSR1 CURSOR FOR                                                    
0032.00    SELECT HSP, ACCT, CMDT, CEN1,CMTM,AC,SHRTXT,FOLUPDT,CEN2,SECCD,LNGTXT,    
0033.00    LOGNUM,PLAN,PREP,RQS#                                                    
0034.00           FROM JEANNIE/COMNT;                                                
0035.00   DECLARE CONTINUE HANDLER FOR NOT_FOUND SET EOF_COND = '1';                
0036.00   OPEN CSR1;                                                                
0037.00   RPT: REPEAT                                                                
0038.00                                                                              
0039.00      FETCH CSR1 INTO HSPV, ACCTV, CDT,CEN,CTM,ACD,SHORTTEXT,FLUPDT,  
0040.00         CEN2V,SECURTYCD,LONGTXT,LOGNUMV,PLANV,REPV,RQSV;                          
0041.00     INSERT INTO TSTBSYDTAT/BSYTAPCN VALUES(HSPV, ACCTV, CDT,CEN,CTM,              
0042.00       ACD,SHORTTEXT,FLUPDT, CEN2V,SECURTYCD,LONGTXT,LOGNUMV,PLANV,REPV,RQSV);    
0043.00   UNTIL EOF_COND = '1'                                                            
0044.00   END REPEAT RPT;                                                                
0045.00                                                                                  
0046.00      CLOSE CSR1;                                                                  
0047.00      END;                                                                        
       

Start Free Trial