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>