project BLF > class PAuthentication > method GetTimeOutWrapper

Description

Wrapper method for GetTimeOut.


Parameters


icGlobalSessionIdinputcharacter
oiTimeOutoutputintegerTime out in minutes.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method Session.ApplicationLogin


program code (program1/pauthentication.p)

If oiReturnStatus = 0
Then Assign oiReturnStatus = -98.

Empty Temp-table tTimeOutSessionTokenCall.
Empty Temp-table tResponseTimeoutCall.

Create tTimeOutSessionTokenCall.
Assign tTimeOutSessionTokenCall.tcMfgSessionId = icGlobalSessionId.

<M-4 run GetTimeOutRemote
   (input  tTimeOutSessionTokenCall (tTimeoutSessionToken), 
    output tResponseTimeoutCall (tResponseTimeout), 
    output viFcReturnSuper (oiReturnStatus)) in PAuthentication>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.  

Find First tResponseTimeoutCall No-error.
If Not Available tResponseTimeoutCall Or
   tResponseTimeoutCall.tiTimeOut = ?
Then Do:
    /*in stead of giving an error we return 0*/
    /*Assign 
        vcMsg = Trim(#T-3'There is no tResponseTimeOutCall record returned from the GetTimeOutRemote prodecure or the TimeOut is empty.':255(8548)T-3#)
        oiReturnStatus = -1.
    <M-2 run SetMessage
       (input  vcMsg (icMessage), 
        input  '' (icArguments), 
        input  '' (icFieldName), 
        input  '' (icFieldValue), 
        input  'S':U (icType), 
        input  3 (iiSeverity), 
        input  '' (icRowid), 
        input  'BLF-351':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in PAuthentication>
    Return.*/
    Assign oiTimeOut = 0. 
End. /*If Not Available tResponseUserCall Or
          tResponseUserCall.tcUserid = ''*/
          
Else Assign oiTimeOut = tResponseTimeoutCall.tiTimeOut.       

If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.