Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUS2

Package: Kernel

Routine: XUS2


Information

XUS2 ;SF/RWF - TO CHECK OR RETURN USER ATTRIBUTES ;2/1/2012

Source Information

Source file <XUS2.m>

Entry Points

Name Comments DBIA/ICR reference
ACCED ; ACCESS CODE EDIT from DD
AC1
AASK ;Ask for Access code
AASK1 ;
REASK
AST(XUH) ;Change ACCESS CODE and index.
GET ;Get the user input and convert case.
DIRUT
CLR ;New line or Clear screenman area
NEWCODE
CVC ;From XUS1
VERED ; VERIFY CODE EDIT From DD
VC1
VASK ;Ask for Verify Code
VASK1
VCHK(S,EC) ;Call with String and Encrypted versions
VST(XUH,%) ;
DEL ;
AAUTO ;Auto-get Access codes
AGEN ;Generate a ACCESS code
AHELP
VHELP
VAUTO ;Auto-get Access codes
VGEN ;Generate a VERIFY code
YN ;Ask if want to keep
OUT ;
CHKCUR() ;Check user knows current code, Return 1 if OK to continue
CHK1
BRCVC(XV1,XV2) ;Broker change VC, return 0 if good, '1^msg' if bad.
SVCACCT(XUSDUZ) ;return 1^CONNECTOR PROXY if CP svc acct; 0 if not svc acct
AVHLPTXT(%) ;
  • ICR #4057
    • Status: Active
    • Usage: Controlled Subscription
    USER
    EDIT

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "Enter a new ACCESS CODE <Hidden>: "
    • Line Location: AASK1+1
    Function Call: WRITE
    • Prompt: $C(7),$$AVHLPTXT(1)
    • Line Location: AASK1+3
    Function Call: WRITE
    • Prompt: $C(7),$$AVHLPTXT(1),!
    • Line Location: AASK1+4
    Function Call: WRITE
    • Prompt: $C(7),"This has been used previously as an ACCESS CODE.",!
    • Line Location: AASK1+6
    Function Call: WRITE
    • Prompt: "Please re-type the new code to show that I have it right: "
    • Line Location: REASK+1
    Function Call: WRITE
    • Prompt: "This doesn't match. Try again!",!,$C(7)
    • Line Location: REASK+1
    Function Call: WRITE
    • Prompt: "OK, Access code has been changed!"
    • Line Location: AST+1
    Function Call: WRITE
    • Prompt: !,"The VERIFY CODE has been deleted as a security measure.",!,"You will need to enter a new VERIFY code so the user can sign-on.",$C(7)
    • Line Location: AST+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLR+1
    Function Call: WRITE
    • Prompt: !,"OK, remember this code for next time!"
    • Line Location: NEWCODE+0
    Function Call: WRITE
    • Prompt: !,"You must change your VERIFY CODE at this time."
    • Line Location: CVC+3
    Function Call: WRITE
    • Prompt: "Enter a new VERIFY CODE: "
    • Line Location: VASK1+0
    Function Call: WRITE
    • Prompt: $C(7),$P(Y,U,2,9),!
    • Line Location: VASK1+2
    Function Call: WRITE
    • Prompt: !?9
    • Condition for execution: $X>55
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: $C(7)," <Nothing Deleted>"
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: "The new ACCESS CODE is: ",XUU," This is ",XUK," of 3 tries."
    • Line Location: AGEN+2
    Function Call: WRITE
    • Prompt: !,"Here is an example of an acceptable Access Code: ",XUU,!
    • Line Location: AHELP+1
    Function Call: WRITE
    • Prompt: !,"Here is an example of an acceptable Verify Code: ",XUU,!
    • Line Location: VHELP+1
    Function Call: WRITE
    • Prompt: "The new VERIFY CODE is: ",XUU," This is ",XUK," of 3 tries."
    • Line Location: VGEN+2
    Function Call: WRITE
    • Prompt: !,"O.K. You'll have to keep the next one!",!
    • Line Location: YN+4
    Function Call: WRITE
    • Prompt: !,"Lets stop and you can try later."
    • Line Location: YN+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: OUT+2
    Function Call: WRITE
    • Prompt: "Please enter your CURRENT verify code: "
    • Line Location: CHK1+0
    Function Call: WRITE
    • Prompt: "Sorry that is not correct!",!
    • Line Location: CHK1+2
    Info |  Source |  Entry Points |  Interaction Calls