/* Provide routines to store/check/access user credentials 
   stored in a shared memory object */
   
_ucInitObj: procedure expose ucMem
    /* Initialize shared memory object */
    /* Not implemented as we use only an existing object */
    ucMem = '\SHAREMEM\INETXXX'
return ucMem

_ucChkObj: procedure expose ucMem ucPtr
    /* Check if appropriate memory object is available */
    Success = 0
    getrc = RxGetNamedSharedMem('ucPtr', ucMem , 'rw')
    if getrc = 0 then Success = 1
return Success

_ucChkUc: procedure expose ucMem ucPtr
    /* Check whether credentials are stored in memory object */
	rawMem = RxStorage( ucPtr , 4096 )
	ucPos = lastpos('--user=',rawMem)
	Success = (ucPos > 0)
return Success

_ucSetUc: procedure expose ucMem ucPtr UserCred
   /* Set/Store credentials in memory object */
   Success = 0
   rawMem = RxStorage( ucPtr , 4096 )
   ucL = length(UserCred)
   rawMem = overlay(UserCred, rawMem, 4096-ucL)
   rawMem = RxStorage( ucPtr , 4096, rawMem )
   Success = 1
return Success

_ucDelUc: procedure expose ucMem ucPtr UserCred
   /* Delete credentials from memory object */
   rawMem = RxStorage( ucPtr , 4096 )
   cPos = lastpos('--user=',rawMem)
   rawMem = overlay(copies('00'x,4096-cPos), rawMem, cPos)
   rawMem = RxStorage( ucPtr , 4096, rawMem )
return 1

_ucGetUc: procedure expose ucMem ucPtr
    /* Read credentials from memory object */
	rawMem = RxStorage( ucPtr , 4096 )
	ucPos = lastpos('--user=',rawMem)
	UserCred = strip(substr(rawMem,ucPos),,'00'x)
return UserCred