Hi Thomas,
It appears you have F1-PRG (the field you're testing in the EVALUATE) defined as PIC X(8), yet the value you are testing for is 9 characters. So, at best, F1-PRG may contain "TBN01002", but will never contain the "TBN01002T" you are testing for. Either change the definition of F1-PRG to match the true field size, or change the value you are testing for in the EVALUATE to be 8 characters.