project BLF > class PAuthentication > method GetMessage

Parameters

Internal usage

program code (program1/pauthentication.p)

find tErrorCode where
     tErrorCode.tcErrorCode = icErrorCode
     no-error.
     
return if available tErrorCode
       then tErrorCode.tcErrorMessage
       else trim(subst(#T-1'Unknown error code &1.':250(8168)T-1#, icErrorCode)).