if ( substr ($H01record,43,2) eq "SA" )
...