>*--------DEBUG DEBUG DEBUG----------- >IF USED() AND ALIAS()="CARDHOLDER" >ELSE > set step ON >ENDIF >*--------DEBUG DEBUG DEBUG---------- >CardHolder.EqfxReport = ReturnedCreditReport ; > + CHR(13) + CHR(10) ; . . . there are more fields >>
IF ALIAS()="CARDHOLDER" wait window 'CARDHOLDER is the current alias' timeout 2 if fsize('EqfxReport', 'CardHolder') > 0 wait window 'CardHolder.EqfxReport exists as a field' timeout 2 endif ELSE set step ON ENDIF set asserts on ASSERT (type('CARDHOLDER')='O' and !isnull(CARDHOLDER)) ; message 'Cardholder object is not defined' *...Cetin