Program Stuck in Loop

[rstitzel]

I have an interactive program that gets stuck in a loop if I enter a customer number with leading zeros.

The first screen contains the following fields:

CustNum 5 0 Numeric Only
Block 1 0 Numeric Only
Type 1 Alphanumeric
InvNum 3 0 Numeric Only

The user fills in all of the fields listed above and hits enter.

In the program I chain to the customer file to make sure it's a valid customer. In the customer file we have customer numbers that range from 00001 - 99999.

I created a KLIST to use for the chain operation using the fields from the screen.

custnumblck klist
kfld CustNum
kfld Block

The program works without a problem when the user enters a customer number that DOESN'T have LEADING zeros.

Does anyone have any ideas as to why this would be happening?

Thanks in advance for any and all help.

 

[rstitzel]

NEVERMIND......WAS SOMETHING ELSE CAUSING THE LOOP......