Conversion Error Help

["Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>]

Hi All,

 

I'm having a bit of a problem with a data evaluation / conversion, and
I'm wondering if you veterans can help (Yes, I am still fairly new to
RPG)? 

 

In my code, I have this statement:

 

/FREE

  CHAIN KEYPB SSM05A11;                

  IF %FOUND(SSM05A11);                 

    FLDQTY = %SUBST(FLD5:2:%LEN(FLD5));          

    GTBOXQTY = (%INT(FLDQTY) > PNBQTY);

  ENDIF;                               

/END-FREE                              

 

KEYPB is a key that contains a part number

FLD5 is a 9A field

PNBQTY is a 6S field for box quantity

 

When my program runs, the user enters a value into FLD5 (in this case,
the user enters Q901).  The program then takes the part number and
checks the database for it.  If the part number is found, it will then
compare the box quantity of the record (PNBQTY) to the value entered by
the user (in this case, 901, since the FLDQTY statement is taking from
value 2 to the end of the string).

 

Or so it should... when I run the program, as soon as it gets to the
FLDQTY = %SUBST line, it gives me a "Type Compatibility Error Occurred".
In debug mode, if I do an eval on FLD5, I get 'Q901     ' (note the
trailing spaces).


Even when I try a %TRIM(FLD5), I get the compatibility error.

 

Can someone tell me where I am going wrong?

 

Thanks!


Brian.

 

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

ISD Specialist

Simcoe Parts Service, Inc.

6795 Industrial Parkway

Alliston, ON, L9R1W1

bpiotrowski@xxxxxxxxxxxxxxx

ph: 705-435-7814 x343

fx: 705-435-6746

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-