Sqlcode +326

[rckass]

Re: Sqlcode +326

Here's before the change (getting 326):

 * SQL Data Structures                                   
d echds           e ds                  extname(ech)       
d eclds            e ds                  extname(ecl)       
d w7zp1          e ds                  extname(zp1)       
d a63007fads  e ds                  extname(a63007fa)  

c/exec sql                                                     
c+ declare a63007facursor cursor for select * from a63007fa    
c+ where s1user = :wsuser and (s1prt = ' ' or s1prt = :pxeprt) 
c+ and s1effdt between :pxefdte and :pxetdte                   
                                                               
c/end-exec                                                     
                                                               
c/exec sql                                                     
c+ open a63007facursor                                         
c/end-exec                                                     
 * if cursor is already open, close it and re-open it          
c                   If        sqlcod = -502                    
c/exec sql                
c+ close a63007facursor                 
c/end-exec                              
c/exec sql                              
c+ open a63007facursor                  
c/end-exec                              
c                   endif               
                                        
c/exec sql                              
c+ fetch a63007facursor into :a63007fads
                                               
c                   dow       sqlcod = *zero

MADE THIS CHANGE (moved the DS to the top) and program functions correctly, w/o +326 SQLCODE. Go Figure:

 * SQL Data Structures                                   
d a63007fads  e ds                  extname(a63007fa)  
d echds           e ds                  extname(ech)       
d eclds            e ds                  extname(ecl)       
d w7zp1          e ds                  extname(zp1)       


c/exec sql                                                     
c+ declare a63007facursor cursor for select * from a63007fa    
c+ where s1user = :wsuser and (s1prt = ' ' or s1prt = :pxeprt) 
c+ and s1effdt between :pxefdte and :pxetdte                   
                                                               
c/end-exec                                                     
                                                               
c/exec sql                                                     
c+ open a63007facursor                                         
c/end-exec                                                     
 * if cursor is already open, close it and re-open it          
c                   If        sqlcod = -502                    
c/exec sql                
c+ close a63007facursor                 
c/end-exec                              
c/exec sql                              
c+ open a63007facursor                  
c/end-exec                              
c                   endif               
                                        
c/exec sql                              
c+ fetch a63007facursor into :a63007fads
                                               
c                   dow       sqlcod = *zero

[kausix777]

Re: Sqlcode +326

Check your D specs again, please.

Since it worked by moving its position, it probably means a field was defined AFTER your DS without the "S". That made the field a part of your DS.

Now, you've moved it and the "SQL" is working but is your program working correctly? That field is probably a part of the last defined DS now.

[K2r400]

Re: Sqlcode +326

I'm agree with kausix777 !
Moving the DS resolve the problem, No, it's impossible !
you have another problem.

[tomholden]

Re: Sqlcode +326

Check your D specs again, please.

Since it worked by moving its position, it probably means a field was defined AFTER your DS without the "S". That made the field a part of your DS.

Now, you've moved it and the "SQL" is working but is your program working correctly? That field is probably a part of the last defined DS now.

if you're correct (i suspect you are) then yes the w7zp1 DS will now not be defined as you thought and will have the additional field added to the end of that DS.

[littlepd]

Re: Sqlcode +326

How to include source code in your post.