If I Know the User's CA Roscoe Prefix, How do I Find out Who They Are?

Document ID : KB000024044
Last Modified Date : 14/02/2018
Show Technical Document Details

Question: 

If I know the user's CA Roscoe Prefix, how do I find out who they are?

Answer: 

  • There is an RPF called whois that will do that for you.  
  • Save the RPF below in a member in your library or your RPF library with a name of whois. Your RPF library is specified by the Roscoe startup parameter EXECPFX =.
  • To run it type,
  whois smi               where smi is the user's CA ROSCOE prefix. 

and the response will give you, for example: User=> 40500000J.SMITH Key=> SMIJO01 Prefix=> SMI

<<WHOIS>> PUSH :* Save user's settings LET L2 = L3 = L4 = '' :* Initialize variables LET L1 = UPCASE(A1) :* Just in case SELECT FIRST WHEN A1 EQ '' :* Check for entered operand LET L5 = 4 WHEN (LENGTH(L1) LE 3) OR (SUBSTR(L1 1 1) EQ '=') :* Assume prefix IF SUBSTR(L1 1 1) EQ '=' :* Prefixed with a '='? LET L1 = SUBSTR(L1 2) :* Y, Point past this ENDIF LET L3 = L1 :* Set PREFIX variable TRAP ON LET L2 = GETKEY(L3) :* Get the KEY TRAP OFF LET L5 = S.TC :* Get the return code WHEN NONE LET L2 = L1 :* Set KEY variable TRAP ON LET L3 = GETPFX(L2) :* Get the PREFIX TRAP OFF LET L5 = S.TC :* Get the return code ENDSEL POP :* Restore user settings IF L5 EQ 0 :* Everything ok? LET L4 = GETFKEY(L3) :* Set FKEY variable IF S.LEVELNUM EQ 1 :* User invoked this RPF RESPONSE 'User=> ' | L4 | ' Key=> ' | L2 | ' Prefix=> ' | L3 ENDIF ELSE IF S.LEVELNUM EQ 1 :* User invoked this RPF RESPONSE 'Invalid operand specified for ' | S.PROGNAME | '=> ' | A1 ENDIF ENDIF RETURN L1 L2 L3 L4 L5 :* Return to caller