SQL CLI Error

[Jeff Young <cooljeff913@xxxxxxxxx>]

I am receiving the following error when executing an SQLExtendedFetch using the 
CLI interface:
                                                                                
 Message ID . . . . . . :   MCH5003       Severity . . . . . . . :   40         
 Message type . . . . . :   Escape                                              
 Date sent  . . . . . . :   08/14/06      Time sent  . . . . . . :   11:53:46   
                                                                                
 Message . . . . :   Scalar operand contains a value that is not valid.         
 Cause . . . . . :   The length of the invalid scalar operand is 7.  The bit    
   offset to the invalid field is X'0001'. The operand number is 2.  The        
   invalid data is X'03070000000000'.                                           
                                                                                
If anyone has any idea what this is pointing to, I would appreciate any any 
information.
I ran the exact statement (used cut & paste) using the iNav Run SQL Script and 
it ran fine.
The data I am returning is defined in a DS with the following attributes:
 
D Row DS Qualified
D Dim(Fetch_Size)
D Period Like(CdPerd)  Packed(4,0)
D WhNo Like(CdWhNo) Char 2
D PlCd Like(CdPlCd)   Char 2
D ICCd Like(CdICCd)  Char 2
D Itmn Like(CdItmn) Char 15
D AvgTyr Like(AvgTy) Packed(9,0)
D AvgLyr Like(AvgLy) Packed(9,0)
 
I am binding the columns as follows:
Rc = SQLBindCol( Stmt
: 1
: SQL_DECIMAL
: %Addr(Row(1).Period)
: %Len(Row(1).Period) * 256 + %DecPos(Row(1).Period)
: F1) ;
Check_Error( Rc: Env: Conn: Stmt: 'SQLBindCol(1)');
Rc = SQLBindCol( Stmt
: 2
: SQL_CHAR
: %Addr(Row(1).WhNo )
: %Size(Row.WhNo)
: F2) ;
Check_Error( Rc: Env: Conn: Stmt: 'SQLBindCol(2)');
Rc = SQLBindCol( Stmt
: 3
: SQL_CHAR
: %Addr(Row(1).PlCd)
: %size(Row.PlCd)
: F3) ;
Check_Error(Rc: Env: Conn: Stmt: 'SQLBindCol(3)');
Rc = SQLBindCol( Stmt
: 4
: SQL_CHAR
: %Addr(Row(1).ICCd)
: %Size(Row.ICCd)
: F4) ;
Check_Error(Rc: Env: Conn: Stmt: 'SQLBindCol(4)');
Rc = SQLBindCol( Stmt
: 5
: SQL_CHAR
: %Addr(Row(1).ItmN)
: %size(Row.ItmN)
: F5) ;
Check_Error(Rc: Env: Conn: Stmt: 'SQLBindCol(5)');
Rc = SQLBindCol( Stmt
: 6
: SQL_DECIMAL
: %Addr(Row(1).AvgTyr )
: %Len(Row(1).AvgTyr * 256) + %DecPos(Row(1).AvgTYr)
: F6) ;
Check_Error(Rc: Env: Conn: Stmt: 'SQLBindCol(6)');
Rc = SQLBindCol( Stmt
: 7
: SQL_DECIMAL
: %Addr(Row(1).AvgLYr)
: %LEN(Row(1).AvgLYr) * 256 + %DecPos(Row(1).AvgLYr)
: F7) ;
Check_Error(Rc: Env: Conn: Stmt: 'SQLBindCol(7)');
 
Thanks,
 
Jeff Young