project BLF > class PAuthentication > method GetExceptionMessageFromSINumber
function returns character
Description
Converts the "QAD-<nbr>" and "OE-<nbr>" string into a more meaningful message that can be stored in the tFcMessages table.
With this function, a specific service might add or overrride default messages as a translation of the "QAD-<nbr>". Best is to put this code before the <ANCESTOR> tag.
Parameters
icQadNbr | input | character | |
icQadDesc | input | character | |
icQadContext | input | character | |
icQadData | input | character | |
icQadField | input | character | |
icQadIndex | input | character | |
icQadSev | input | character | |
Internal usage
unused
program code (program/pauthentication.p)
/*
/*Login exception CONSTANTS*/
&GLOBAL-DEFINE APP-NOT-AVAILABLE '20'
&GLOBAL-DEFINE INVALID-LICENSE '21'
&GLOBAL-DEFINE INVALID-USERID '22'
&GLOBAL-DEFINE INVALID-PASSWORD '23'
&GLOBAL-DEFINE EXPIRED-PASSWORD '24'
&GLOBAL-DEFINE USER-LIMIT-EXCEEDED '25'
&GLOBAL-DEFINE USER-NOT-AUTHORIZED '26'
&GLOBAL-DEFINE INVALID-USERID-DOMAIN '27'
/* SECURITY RELATED CONSTANTS */
&GLOBAL-DEFINE DEACTIVATED-USERID '31'
&GLOBAL-DEFINE FORCE-PASSWD-CHANGE '32'
/* Authentication Service constants */
&GLOBAL-DEFINE INVALID-AS-REQUEST '40'
&GLOBAL-DEFINE INVALID-LOGOUT-REQUEST '41'
&GLOBAL-DEFINE INVALID-CHGPWD-REQUEST '42'
&GLOBAL-DEFINE INVALID-ISALIVE-REQUEST '43'
&GLOBAL-DEFINE REPLICATION-ERROR '44'
/* Session-related constants */
&GLOBAL-DEFINE BLANK-SESSION-ID '50'
&GLOBAL-DEFINE INVALID-SESSION '51'
&GLOBAL-DEFINE SESSION-TIMEOUT '52'
&GLOBAL-DEFINE SESSION-KEEPALIVE-ERROR '53'
&GLOBAL-DEFINE DESTROY-SESSION-ERROR '54'
&GLOBAL-DEFINE SESSION-TIMEOUT-DELETED '55'
/* Update password error constants */
&GLOBAL-DEFINE INVALID-PASSWORD-LENGTH '60'
&GLOBAL-DEFINE INVALID-NUMERIC-NUMBER '61'
&GLOBAL-DEFINE INVALID-NONNUMERIC-NUMBER '62'
&GLOBAL-DEFINE INVALID-PASSWORD-REUSEDAYS '63'
&GLOBAL-DEFINE INVALID-PASSWORD-REUSECHANGES '64'
*/
Assign vcMessage = '':U.
case trim(icQadSev):
when "20":U
then assign vcMessage = #T-1'App not available.':100(8170)T-1# + icQadDesc.
when "21":U
then assign vcMessage = #T-2'Invalid license.':100(8171)T-2#.
when "22":U
then assign vcMessage = #T-3'Invalid user ID.':250(8163)T-3#.
when "23":U
then assign vcMessage = #T-4'Invalid password.':250(8165)T-4#.
when "24":U
then assign vcMessage = #T-5'Expired password.':250(8167)T-5#.
when "25":U
then assign vcMessage = #T-6'User limit exceeded.':100(8175)T-6#.
when "26":U
then assign vcMessage = #T-7'User not authorized.':100(8176)T-7#.
when "27":U
then assign vcMessage = #T-8'Invalid user ID/domain combination.':100(8177)T-8#.
when "31":U
then assign vcMessage = #T-9'Deactivated user ID.':100(8182)T-9#.
when "32":U
then assign vcMessage = #T-10'Force password change.':100(8181)T-10#.
when "40":U
then assign vcMessage = #T-11'Invalid Authentication Service request.':100(8183)T-11#.
when "41":U
then assign vcMessage = #T-12'Invalid logout request.':100(8184)T-12#.
when "42":U
then assign vcMessage = #T-13'Invalid change password request.':100(8185)T-13#.
when "43":U
then assign vcMessage = #T-14'Invalid IsAlive request.':100(8186)T-14#.
when "44":U
then assign vcMessage = #T-15'Replication error.':100(8187)T-15#.
when "50":U
then assign vcMessage = #T-16'Blank session ID.':100(8188)T-16#.
when "51":U
then assign vcMessage = #T-17'Invalid session.':100(8189)T-17#.
when "52":U
then assign vcMessage = #T-18'Session timeout.':100(8190)T-18#.
when "53":U
then assign vcMessage = #T-19'Session KeepAlive error.':100(8191)T-19#.
when "54":U
then assign vcMessage = #T-20'Destroy session error.':100(8192)T-20#.
when "55":U
then assign vcMessage = #T-21'Session timeout deleted.':100(8193)T-21#.
when "60":U
then assign vcMessage = #T-22'Invalid password length.':100(8194)T-22#.
when "61":U
then assign vcMessage = #T-23'Invalid numeric number.':100(8195)T-23#.
when "62":U
then assign vcMessage = #T-24'Invalid non-numeric number.':100(8196)T-24#.
when "63":U
then assign vcMessage = #T-25'Invalid password reuse days.':100(8197)T-25#.
when "64":U
then assign vcMessage = #T-26'Invalid password reuse changes.':100(8198)T-26#.
end case.
If vcMessage <> '':U
Then Return vcMessage.
Return <ANCESTOR-CODE>