project BLF > class PAuthentication > method GetTimeOutWrapper
Description
Wrapper method for GetTimeOut.
Parameters
icGlobalSessionId | input | character | |
oiTimeOut | output | integer | Time out in minutes. |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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.