Docstoc

CUHOME.SPECFILE_Lukas

Document Sample
CUHOME.SPECFILE_Lukas Powered By Docstoc
					[02/10/2000:SJH: This specfile will allow the user to select one
 of five options. The first option is to change a CU@Home password
 for a member. The second will create CU@Home Access. The third
 will change the audio(TellerPhone) access. The fourth will create
 new access to the audio response system. The fifth will unfreeze
 both audio and CU@Home.

 The Specfile will also count the number of preference records
 this account may have and delete all preference records above
 the first record(0).

 As a precautionary measure every time this specfile is run, it will
 set the ACCOUNT:FROZENMODE to 0. This prevents people from simply
 changing a password and not inquiring whether or not the account
 is currently frozen.]

[Will also now set HBENABLE and HBMODE for Tellerphone, a new
requirement for SYMCONNECT on our new VRU - BL 11/3/04]

[ 02/08/2007 - John   Luckas - modified to windowize it, and, to set
  the language to 3   automatically when CU@Home access is set up. This
will
  force members who   haven't registered for secure access to sign-up
before
  gaining access to   their account. Installed for use: 02/14/2007, 8:00
am ]

[ 03/26/2007 - J. Luckas - started modification to include a random
password
       generator. ]

[ April, 2007 - J. Luckas - totally re-did to use post from HTML
functionality
      throughout, and, added Secure Access Enrollment as a subroutine ]

WINDOWS

TARGET=ACCOUNT

DEFINE
 #INCLUDE "RD.WINDOWS.DEF"
 #INCLUDE "RD.GETDATA.DEF"
 TMPCHR=CHARACTER
 INPUTCOUNT=NUMBER
 I=NUMBER
 INPUTFORM=CHARACTER ARRAY(30)
 QUOTE=CHARACTER(1)
 DONE=NUMBER

 CHARNEWPIN=CHARACTER
 SELECTION=NUMBER
 FMERROR=CHARACTER
 X=NUMBER
 Z=NUMBER
 NEWPASS=CHARACTER
 NEWPIN=CHARACTER
 PREFLOC=NUMBER ARRAY(9)
 PREFEXISTS=NUMBER
 HASHB=NUMBER
 HASAUDIO=NUMBER
 HASSECUREACCESS=NUMBER
 TRUE=1
 FALSE=0
 SUBERROR=CHARACTER
 ACTION=CHARACTER
END


SETUP
 QUOTE=CTRLCHR(34)
 HASHB=FALSE
 HASAUDIO=FALSE
 HASSECUREACCESS=FALSE

 FOR EACH TRACKING WITH
          (TRACKING:TYPE=62 AND
          (TRACKING:EXPIREDATE='--/--/--' OR
           TRACKING:EXPIREDATE>=SYSTEMDATE))
  DO
     HASSECUREACCESS=TRUE
  END
 UNTIL HASSECUREACCESS=TRUE

 FOR X=0 TO 9
  DO
     PREFLOC(X)=0
  END

 X=1

 FOR EACH PREFERENCE [check to see if there is already a pref rec.]
  DO
   PREFEXISTS=TRUE
   PREFLOC(X)=PREFERENCE:LOCATOR

   IF PREFERENCE:HBMODE=1 AND
      PREFERENCE:HBPASSWORD<>"" THEN
     HASHB=TRUE

   IF PREFERENCE:LASTACCESSCHANGEDATE<>'--/--/--' THEN
     HASAUDIO=TRUE

   X=X+1
  END

 CALL SELECTOPTION
 CALL INITIALIZE
 CALL LOADFORMRESULTS

[ if they clicked the cancel button, or didn't choose an option but
clicked submit, just kill it right away ]

 CALL TERMINATEPROCESS
 CALL SETSELECTION

 IF SELECTION=2 OR            [change PIN ]
     SELECTION=4 THEN         [set up TellerPhone ]
  DO
     CALL NEWAUDIOPIN
     CALL INITIALIZE
     CALL LOADFORMRESULTS
     CALL TERMINATEPROCESS
     CALL SETAUDIOPIN

     CALL AUDIOACCESSFM
     CALL UNFREEZE
     CALL LASTPAGE
   END
ELSE
 IF SELECTION=1 OR SELECTION=3 THEN             [ CU@Home set up or
password change ]
  DO
     CALL NEWPASSWORD
     CALL INITIALIZE
     CALL LOADFORMRESULTS
     CALL SETCUHOMEPASS
     CALL CUHOMEFM
     CALL UNFREEZE
     CALL LASTPAGE
  END
 ELSE
 IF SELECTION=5 THEN                            [ Unfreeze account ]
  DO
   CALL UNFREEZE

   IF FMERROR="" THEN
      POPUPMESSAGE(0,"Account successfully unfrozen.")
   ELSE
      POPUPMESSAGE(2,"Account not unfrozen! Error: "+FMERROR)
  END
 ELSE
 IF SELECTION=6 THEN                             [ Secure Access Reset ]
  DO
     INITSUBROUTINE(SUBERROR)
   IF SUBERROR<>"" THEN
      POPUPMESSAGE(2,"Init subroutine error: "+SUBERROR)
   ELSE
      EXECUTE("JL.MFA.RESET",SUBERROR)

   IF SUBERROR<>"" THEN
     POPUPMESSAGE(2,"Execute subroutine error: "+SUBERROR)

    CALL UNFREEZE [ always unfreeze just in case ]

  END


END [SETUP ]

PRINT TITLE="CUHOME"
SUPPRESSNEWLINE

END

PROCEDURE SELECTOPTION


HTMLVIEWOPEN(0)

 HTMLVIEWLINE("<html>")
 HTMLVIEWLINE("<head><title>CUHOME</title>")
 HTMLVIEWLINE("<STYLE>")
 HTMLVIEWLINE("BODY     {FONT: 14PX ARIAL,HELVETICA; COLOR=BLACK;}")
 HTMLVIEWLINE("TABLE    {FONT: 14PX ARIAL,HELVETICA; COLOR=BLACK;}")
 HTMLVIEWLINE("</STYLE>")

 HTMLVIEWLINE("</head>")
 HTMLVIEWLINE("<body>")
 CALL PAGETOP

 HTMLVIEWLINE("<BODY>")
 HTMLVIEWLINE("<FORM NAME=selectform1"+
              " METHOD=POST ACTION=symitar://HTMLView~Action=Post>")

 HTMLVIEWLINE("<center><TABLE WIDTH=75% BORDER=0 CELLPADDING=5>")

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD width=175px>Account Number: </td><td
align=left><B>"+FORMAT("#########9",VALUE(ACCOUNT:NUMBER))+"</B></TD></
TR>")
 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD width=175px>Name: </td><td
align=left><B>"+NAME:LONGNAME+"</B></TD></TR>")
 HTMLVIEWLINE("</TABLE></center>")

 HTMLVIEWLINE("<center><TABLE WIDTH=75% BORDER=0 CELLPADDING=5>")


 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")

 IF ACCOUNT:FROZENMODE=1 THEN
  DO
     HTMLVIEWLINE("Account is frozen. </b></font><font size=-1
color=black>")
     HTMLVIEWLINE(" (Choosing any option below will also unfreeze the
account)")
     HTMLVIEWLINE("</li></font></TD></TR>")
  END
 ELSE
 IF ACCOUNT:FROZENMODE=2 THEN
  DO
     HTMLVIEWLINE("Account is permanently frozen. You cannot unfreeze
this account")
     HTMLVIEWLINE("</b></li></font></TD></TR>")
  END
 ELSE
  DO
     HTMLVIEWLINE("Account is not frozen")
     HTMLVIEWLINE("</b></li></font></TD></TR>")
  END

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")

 IF HASSECUREACCESS=TRUE THEN
  DO
     HTMLVIEWLINE("Account is set up for Secure Access")
     HTMLVIEWLINE("</b></li></font></TD></TR>")
  END
 ELSE
  DO
     HTMLVIEWLINE("Account is not set up for Secure Access.
</b></font><font size=-1 color=black>")
     HTMLVIEWLINE("(The member must set themselves up in CU@Home)")
     HTMLVIEWLINE("</li></font></TD></TR>")
  END

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD colspan=2><font size=-1 color=990000><li><b>")

 IF HASAUDIO=TRUE AND
     HASHB=TRUE THEN
  DO
     HTMLVIEWLINE("Account is set up for TellerPhone and
CU@Home<br><br>")
     HTMLVIEWLINE("<TR>")
     HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
     CALL CHANGETPNOHBSETUP
  END
 ELSE
 IF HASAUDIO=TRUE AND
     HASHB=FALSE THEN
  DO
     HTMLVIEWLINE("Account is set up for TellerPhone but NOT set up for
CU@Home<br><br>")
     HTMLVIEWLINE("<TR>")
     HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
     CALL CHANGETPCREATEHB
  END
 ELSE
 IF HASAUDIO=FALSE AND
     HASHB=TRUE THEN
  DO
     HTMLVIEWLINE("Account is NOT setup for TellerPhone but is set up
for CU@Home<br><br>")
     HTMLVIEWLINE("<TR>")
     HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
     CALL CREATETPCHANGEHB
  END
 ELSE
 IF HASAUDIO=FALSE AND
     HASHB=FALSE THEN
  DO
     HTMLVIEWLINE("Account is NOT set up for CU@Home nor
TellerPhone<br><br>")
     HTMLVIEWLINE("<TR>")
     HTMLVIEWLINE("<TD colspan=2><HR color=990000></TD></TR>")
     CALL CREATEBOTH
  END

 HTMLVIEWLINE("</b></li></font></TD></TR>")


 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD COLSPAN=2>&nbsp;")
 HTMLVIEWLINE("</TD></TR>")

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD COLSPAN=3 ALIGN=CENTER VALIGN=CENTER>")
 HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
 HTMLVIEWLINE(" VALUE=Submit>&nbsp;")
 HTMLVIEWLINE("<INPUT TYPE=SUBMIT NAME=cancelbutton")
 HTMLVIEWLINE(" VALUE=Cancel></TD></TR>")

 HTMLVIEWLINE(" </TABLE>")
 HTMLVIEWLINE("</FORM>")


 CALL FOOTER

 HTMLVIEWLINE("   </body>")
 HTMLVIEWLINE("</html>")

 HTMLVIEWDISPLAY

END


PROCEDURE NEWPASSWORD

HTMLVIEWOPEN(0)

 HTMLVIEWLINE("<html>")
 HTMLVIEWLINE("<head><title>CUHOME</title>")
 HTMLVIEWLINE("<STYLE>")
 HTMLVIEWLINE("BODY     {FONT: 16PX ARIAL SANS-SERIF; }")
 HTMLVIEWLINE("TABLE    {FONT: 16PX TIMES NEW ROMAN; COLOR=333333;}")
 HTMLVIEWLINE("</STYLE>")


 HTMLVIEWLINE("<SCRIPT LANGUAGE=JavaScript>")
 HTMLVIEWLINE("<!--")
 HTMLVIEWLINE("// Use the following variable to specify")
 HTMLVIEWLINE("// the number of random words")
 HTMLVIEWLINE("var NumberOfWords = 171")
HTMLVIEWLINE("var words = new BuildArray(NumberOfWords)")

HTMLVIEWLINE("// Use the following variables to")
HTMLVIEWLINE("// define your random words:")

[ from John Luckas: The first variable below is an example of how and
where to put the words. I removed all the others for security reasons.
I will eventually move this code into the DATAFILES directory, or, just
the words and then use File I/O to read them in dynamically. ]

HTMLVIEWLINE("words[1] = "+QUOTE+"testpassword"+QUOTE+"")
HTMLVIEWLINE("words[2] = "+QUOTE+"<word goes here>"+QUOTE+"")
HTMLVIEWLINE("words[3] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[4] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[5] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[6] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[7] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[8] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[9] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[10] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[11] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[12] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[13] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[14] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[15] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[16] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[17] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[18] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[19] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[20] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[21] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[22] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[23] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[24] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[25] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[26] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[27] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[28] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[29] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[30] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[31] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[32] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[33] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[34] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[35] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[36] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[37] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[38] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[39] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[40] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[41] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[42] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[43] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[44] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[45] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[46] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[47] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[48] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[49] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[50] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[51] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[52] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[53] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[54] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[55] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[56] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[57] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[58] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[59] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[60] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[61] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[62] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[63] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[64] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[65] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[66] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[67] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[68] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[69] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[70] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[71] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[72] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[73] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[74] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[75] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[76] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[77] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[78] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[79] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[80] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[81] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[82] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[83] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[84] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[85] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[86] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[87] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[88] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[89] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[90] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[91] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[92] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[93] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[94] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[95] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[96] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[97] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[98] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[99] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[100] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[101] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[102] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[103] = "+QUOTE+" "+QUOTE+"")
HTMLVIEWLINE("words[104]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[105]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[106]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[107]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[108]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[109]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[110]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[111]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[112]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[113]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[114]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[115]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[116]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[117]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[118]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[119]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[120]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[121]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[122]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[123]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[124]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[125]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[126]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[127]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[128]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[129]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[130]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[131]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[132]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[133]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[134]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[135]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[136]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[137]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[138]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[139]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[140]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[141]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[142]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[143]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[144]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[145]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[146]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[147]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[148]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[149]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[150]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[151]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[152]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[153]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[154]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[155]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[156]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[157]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[158]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[159]   =   "+QUOTE+"   "+QUOTE+"")
HTMLVIEWLINE("words[160]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[161]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[162]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[163]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[164]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[165]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[166]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[167]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[168]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[169]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[170]   =   "+QUOTE+"   "+QUOTE+"")
 HTMLVIEWLINE("words[171]   =   "+QUOTE+"   "+QUOTE+"")

 HTMLVIEWLINE("function BuildArray(size){")
 HTMLVIEWLINE("    this.length = size")
 HTMLVIEWLINE("    for (var i = 1; i <= size; i++){")
 HTMLVIEWLINE("        this[i] = null}")
 HTMLVIEWLINE("    return this")
 HTMLVIEWLINE("}")

 HTMLVIEWLINE("function PickRandomWord(frm) {")
 HTMLVIEWLINE("    // Generate a random number between 1 and
NumberOfWords")
 HTMLVIEWLINE("    var rnd = Math.ceil(Math.random() * NumberOfWords)")

 HTMLVIEWLINE("    // Display the word inside the text box")
 HTMLVIEWLINE("    frm.WordBox.value = words[rnd]")
 HTMLVIEWLINE("}")
 HTMLVIEWLINE("//-->")
 HTMLVIEWLINE("</SCRIPT>")

 HTMLVIEWLINE("</head>")
 HTMLVIEWLINE("<body>")
 CALL PAGETOP

 HTMLVIEWLINE("<font face=arial,helvetica size=3><P><CENTER><b>")

 IF SELECTION=1 THEN
   HTMLVIEWLINE("Change CU@Home Password")
 ELSE
   HTMLVIEWLINE("Create CU@Home Access")

 HTMLVIEWLINE("</b><br><br>")

 HTMLVIEWLINE("<font face=arial,helvetica size=2>")

 IF SELECTION=1 THEN
  DO
     HTMLVIEWLINE("Click the <b>Password</b> button below to generate a
new CU@Home password for ")
     HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B>.<br>")
  END
 ELSE
  DO
   HTMLVIEWLINE("Click the <b>Set Up</b> button below to enable ")
   HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> for CU@Home
access.<br>")
  END
 HTMLVIEWLINE("    <FORM NAME=WordForm METHOD=POST
ACTION=symitar://HTMLView~Action=Post~NoClose>")
 HTMLVIEWLINE("    <INPUT TYPE=HIDDEN SIZE=14 NAME=WordBox><BR>")
 HTMLVIEWLINE("    <INPUT TYPE=SUBMIT NAME=submitbutton
onClick=PickRandomWord(document.WordForm)")


 IF SELECTION=1 THEN
  HTMLVIEWLINE("     VALUE=Password>&nbsp;")
 ELSE
  HTMLVIEWLINE("     VALUE=Set&nbsp;Up>&nbsp;")

 HTMLVIEWLINE("    </FORM>")
 HTMLVIEWLINE("</center></font><br><br>")

 CALL FOOTER

 HTMLVIEWLINE("   </body>")
 HTMLVIEWLINE("</html>")

 HTMLVIEWDISPLAY

END

PROCEDURE NEWAUDIOPIN

HTMLVIEWOPEN(0)

 HTMLVIEWLINE("<html>")
 HTMLVIEWLINE("<head><title>CUHOME</title>")
 HTMLVIEWLINE("<STYLE>")
 HTMLVIEWLINE("BODY     {FONT: 16PX ARIAL SANS-SERIF; }")
 HTMLVIEWLINE("TABLE    {FONT: 16PX TIMES NEW ROMAN; COLOR=333333;}")
 HTMLVIEWLINE("</STYLE>")


 HTMLVIEWLINE("<SCRIPT LANGUAGE=JavaScript>")
 HTMLVIEWLINE("<!--")
 HTMLVIEWLINE("// Use the following variable to specify")
 HTMLVIEWLINE("// the number of random words")
 HTMLVIEWLINE("var NumberOfWords = 50")

 HTMLVIEWLINE("var words = new BuildArray(NumberOfWords)")

 HTMLVIEWLINE("// Use the following variables to")
 HTMLVIEWLINE("// define your random words:")

[ from John Luckas: The first variable below is an example of how and
where to put the 4-digit access code. I removed all the others for
security reasons. I will eventually move this code into the DATAFILES
directory, or, just the number and then use File I/O to read them in
dynamically. ]

 HTMLVIEWLINE("words[1]   = "+QUOTE+"9999"+QUOTE+"")
 HTMLVIEWLINE("words[2]   = "+QUOTE+""+QUOTE+"")
 HTMLVIEWLINE("words[3]   = "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[4]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[5]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[6]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[7]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[8]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[9]    =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[10]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[11]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[12]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[13]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[14]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[15]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[16]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[17]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[18]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[19]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[20]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[21]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[22]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[23]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[24]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[25]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[26]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[27]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[28]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[29]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[30]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[31]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[32]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[33]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[34]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[35]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[36]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[37]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[38]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[39]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[40]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[41]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[42]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[43]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[44]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[45]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[46]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[47]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[48]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[49]   =   "+QUOTE+""+QUOTE+"")
HTMLVIEWLINE("words[50]   =   "+QUOTE+""+QUOTE+"")

HTMLVIEWLINE("function BuildArray(size){")
HTMLVIEWLINE("    this.length = size")
HTMLVIEWLINE("    for (var i = 1; i <= size; i++){")
HTMLVIEWLINE("        this[i] = null}")
HTMLVIEWLINE("    return this")
HTMLVIEWLINE("}")

HTMLVIEWLINE("function PickRandomWord(frm) {")
 HTMLVIEWLINE("    // Generate a random number between 1 and
NumberOfWords")
 HTMLVIEWLINE("    var rnd = Math.ceil(Math.random() * NumberOfWords)")

 HTMLVIEWLINE("    // Display the word inside the text box")
 HTMLVIEWLINE("    frm.AudioPIN.value = words[rnd]")
 HTMLVIEWLINE("}")
 HTMLVIEWLINE("//-->")
 HTMLVIEWLINE("</SCRIPT>")

 HTMLVIEWLINE("</head>")
 HTMLVIEWLINE("<body>")
 CALL PAGETOP

 HTMLVIEWLINE("<font face=arial,helvetica size=3><P><CENTER><b>")

 IF SELECTION=2 THEN
   HTMLVIEWLINE("Change TellerPhone PIN")
 ELSE
   HTMLVIEWLINE("Create TellerPhone Access")

 HTMLVIEWLINE("</b><br><br>")

 HTMLVIEWLINE("<font face=arial,helvetica size=2>")

 IF SELECTION=2 THEN
  DO
     HTMLVIEWLINE("Click the <b>PIN</b> button below to generate a new
TellerPhone PIN for ")
     HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B>.<br>")
  END
 ELSE
  DO
   HTMLVIEWLINE("Click the <b>Set Up</b> button below to enable ")
   HTMLVIEWLINE("<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> for TellerPhone
access.<br>")
  END


 HTMLVIEWLINE("    <FORM NAME=AudioPIN METHOD=POST
ACTION=symitar://HTMLView~Action=Post~Close>")
 HTMLVIEWLINE("    <INPUT TYPE=HIDDEN SIZE=14 NAME=AudioPIN><BR>")
 HTMLVIEWLINE("    <INPUT TYPE=SUBMIT NAME=submitbutton
onClick=PickRandomWord(document.AudioPIN)")


 IF SELECTION=2 THEN
  HTMLVIEWLINE("     VALUE=PIN>&nbsp;")
 ELSE
  HTMLVIEWLINE("     VALUE=Set&nbsp;Up>&nbsp;")

 HTMLVIEWLINE("    </FORM>")
 HTMLVIEWLINE("</center></font><br><br>")

 CALL FOOTER

 HTMLVIEWLINE("   </body>")
 HTMLVIEWLINE("</html>")

 HTMLVIEWDISPLAY

END

PROCEDURE INITIALIZE

 FOR INPUTCOUNT=0 TO 30
  DO
   INPUTFORM(INPUTCOUNT)=""
  END

END


PROCEDURE LOADFORMRESULTS
 INPUTCOUNT=0
 WHILE (INPUTFORM(INPUTCOUNT)<>"EOD")
  DO
   INPUTCOUNT=INPUTCOUNT+1
   INPUTFORM(INPUTCOUNT)=ENTERLINE(0)
  END


END

PROCEDURE SETSELECTION
 SELECTION=0

 FOR I=1 TO INPUTCOUNT
  DO
     TMPCHR=INPUTFORM(I)
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CHANGEPWD" THEN
      SELECTION=1
     ELSE
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CHANGEPIN" THEN
      SELECTION=2
     ELSE
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CREATECUHOME" THEN
      SELECTION=3
     ELSE
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="CREATEPHONE" THEN
      SELECTION=4
     ELSE
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="UNFREEZE" THEN
      SELECTION=5
     ELSE
     IF UPPERCASE(SEGMENT(TMPCHR,8,LENGTH(TMPCHR)))="RESET" THEN
      SELECTION=6
  END

END

PROCEDURE SETAUDIOPIN
 NEWPIN=""
 ACTION=""
 NEWPIN=SEGMENT(INPUTFORM(1),10,13)
 ACTION=SEGMENT(INPUTFORM(2),14,LENGTH(INPUTFORM(2)))
END

PROCEDURE SETCUHOMEPASS
 NEWPASS=""
 ACTION=""

 NEWPASS=SEGMENT(INPUTFORM(1),9,LENGTH(INPUTFORM(1)))
 ACTION=SEGMENT(INPUTFORM(2),14,LENGTH(INPUTFORM(2)))
END



[
     IF UPPERCASE(SEGMENT(TMPCHR,1,8))="WORDBOX=" THEN
      NEWPASS=UPPERCASE(SEGMENT(TMPCHR,9,LENGTH(TMPCHR)))
    ELSE
]


PROCEDURE PAGETOP

 HTMLVIEWLINE("<HTML><HEAD><TITLE>CUHOME Results</TITLE>")
 HTMLVIEWLINE("<STYLE>")
 HTMLVIEWLINE("BODY     {FONT: SIZE=2 ARIAL,HELVETICA ;}")
 HTMLVIEWLINE("TABLE    {FONT: SIZE=2 ARIAL,HELVETICA ;}")
 HTMLVIEWLINE("</STYLE>")
 HTMLVIEWLINE("</HEAD>")
 HTMLVIEWLINE("<BODY>")
 HTMLVIEWLINE("<table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
 HTMLVIEWLINE(" <tr>")
 HTMLVIEWLINE("     <td height='65'>")
 HTMLVIEWLINE("       <table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
 HTMLVIEWLINE("         <tr>")
 HTMLVIEWLINE("           <td rowspan='2' width='142' height='65'
bgcolor='#B23C48' >")
 HTMLVIEWLINE("                <a href='http://www.tscu.org'
target="+QUOTE+"home_page"+QUOTE+">")
 HTMLVIEWLINE("                 <img src='http://www.tscu.org/ns-
icons/cuname.gif' border='0' ></a>")
 HTMLVIEWLINE("           </td>")

 HTMLVIEWLINE("          <td rowspan='2' bgcolor='#B23C48' height='65'
width='100%'>")
 HTMLVIEWLINE("            <div align='center'><font
color='#CCCCCC'><b><font size='5'><i>")
 HTMLVIEWLINE("              <font face='Arial, Helvetica, sans-
serif'>&nbsp;</font></i></font></b></font>")
 HTMLVIEWLINE("            </div>")
 HTMLVIEWLINE("          </td>")

    HTMLVIEWLINE("        </tr>")
 HTMLVIEWLINE("      </table>")
 HTMLVIEWLINE("    </td>")
 HTMLVIEWLINE("          <td rowspan='2' bgcolor='#B23C48' height='65'
>")
 HTMLVIEWLINE("            <div align='center'><font
color='#CCCCCC'><b><font size='5'><i>")
 HTMLVIEWLINE("              <font face='Arial, Helvetica, sans-
serif'>&nbsp;</font></i></font></b></font></div>")
 HTMLVIEWLINE("          </td>")

 HTMLVIEWLINE(" </tr>")
 HTMLVIEWLINE(" <tr>")
 HTMLVIEWLINE("    <td background='http://www.tscu.org/ns-
icons/3lines.gif' colspan='3' height='7'></td>")
 HTMLVIEWLINE(" </tr>")
 HTMLVIEWLINE(" <tr>")
 HTMLVIEWLINE("           <td colspan=3 bgcolor=black height='1' >")
 HTMLVIEWLINE("             <div align='center'><font
color='#CCCCCC'><b><font size='0'><i>")
 HTMLVIEWLINE("               <font face='Arial, Helvetica, sans-
serif'>&nbsp;</font></i></font></b></font></div>")
 HTMLVIEWLINE("           </td>")
 HTMLVIEWLINE(" </tr>")
 HTMLVIEWLINE("</table>")

END

PROCEDURE FOOTER


 HTMLVIEWLINE("<table width='100%' cellspacing='0' cellpadding='0'
align=left>")
 HTMLVIEWLINE(" <tr bgcolor='#000000'>")
 HTMLVIEWLINE("    <td height='12'>")
 HTMLVIEWLINE("      <div align='center'><img
src='http://www.tscu.org/ns-icons/bottom_cuname.gif' width='360'
height='12'></div>")
 HTMLVIEWLINE("    </td>")
 HTMLVIEWLINE(" </tr>")
 HTMLVIEWLINE(" <tr>")
 HTMLVIEWLINE("    <td>")

 HTMLVIEWLINE("      <table width='100%' border='0' cellspacing='0'
cellpadding='0'>")
 HTMLVIEWLINE("        <tr>")
 HTMLVIEWLINE("          <td width=100% height='30'><img
src='http://www.tscu.org/ns-icons/bottom_left.gif' width=100%
height='30'></td>")
 HTMLVIEWLINE("          <td width=100% height='30'><img
src='http://www.tscu.org/ns-icons/bottom_right.gif' width='28'
height='30'></td>")
 HTMLVIEWLINE("        </tr>")
 HTMLVIEWLINE("      </table>")

 HTMLVIEWLINE("    </td>")
 HTMLVIEWLINE(" </tr>")
 HTMLVIEWLINE("</table>")
END

PROCEDURE CHANGETPNOHBSETUP

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepwd><B>Change
CU@Home Password</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepin><B>Change
TellerPhone PIN</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("</TR>")

 HTMLVIEWLINE("<TR>")

 IF ACCOUNT:FROZENMODE=1 THEN
  DO
     HTMLVIEWLINE("<TD>")
     HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
     HTMLVIEWLINE("</TD>")
  END

 IF HASSECUREACCESS=TRUE THEN
  DO
     HTMLVIEWLINE("<TD>")
     HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=reset><B>Secure
Access Reset</B><font size=-1 color=black>")
     HTMLVIEWLINE("(Choose this option
only<br>&nbsp;&nbsp;&nbsp;&nbsp;")
     HTMLVIEWLINE("if they can't remember the answer to their security
question)")
     HTMLVIEWLINE("</TD>")
  END

 HTMLVIEWLINE("</TR>")

END

PROCEDURE CHANGETPCREATEHB

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createcuhome><B>Create CU@Home Access</B>")
 HTMLVIEWLINE("</TD>")

 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepin><B>Change
TellerPhone PIN</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("</TR>")

 HTMLVIEWLINE("<TR>")
 IF ACCOUNT:FROZENMODE=1 THEN
  DO
    HTMLVIEWLINE("<TD>")
    HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
    HTMLVIEWLINE("</TD>")
  END
 HTMLVIEWLINE("</TR>")


END

PROCEDURE CREATETPCHANGEHB

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=changepwd><B>Change
CU@Home Password</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createphone><B>Create TellerPhone Access</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("</TR>")

 HTMLVIEWLINE("<TR>")
 IF ACCOUNT:FROZENMODE=1 THEN
  DO
     HTMLVIEWLINE("<TD>")
     HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=unfreeze
><B>Unfreeze Account</B>")
     HTMLVIEWLINE("</TD>")
  END

 IF HASSECUREACCESS=TRUE THEN
  DO
     HTMLVIEWLINE("<TD>")
     HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome VALUE=reset><B>Secure
Access Reset</B><font size=-1 color=black>")
     HTMLVIEWLINE("(Choose this option
only<br>&nbsp;&nbsp;&nbsp;&nbsp;")
     HTMLVIEWLINE("if they can't remember the answer to their security
question)")
     HTMLVIEWLINE("</TD>")

  END

 HTMLVIEWLINE("</TR>")

END


PROCEDURE CREATEBOTH

 HTMLVIEWLINE("<TR>")
 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createcuhome><B>Create CU@Home Access</B>")
 HTMLVIEWLINE("</TD>")

 HTMLVIEWLINE("<TD>")
 HTMLVIEWLINE("<INPUT TYPE=RADIO NAME=cuhome
VALUE=createphone><B>Create TellerPhone Access</B>")
 HTMLVIEWLINE("</TD>")
 HTMLVIEWLINE("</TR>")


END


PROCEDURE LASTPAGE

 HTMLVIEWOPEN(0)

 CALL PAGETOP

 HTMLVIEWLINE("<font face=arial,helvetica size=3 COLOR=990000><BR>")

 IF FMERROR="" AND SELECTION=1 THEN
   HTMLVIEWLINE("<b>CU@Home Password successfully changed</b>")

 IF FMERROR<>"" AND SELECTION=1 THEN
  POPUPMESSAGE(2,"Password not changed. Error: "+FMERROR)

 IF FMERROR="" AND SELECTION=2 THEN
   HTMLVIEWLINE("<b>TellerPhone PIN successfully changed</b>")

 IF FMERROR<>"" AND SELECTION=2 THEN
  POPUPMESSAGE(2,"TellerPhone PIN NOT changed. Error: "+FMERROR)

 IF FMERROR="" AND SELECTION= 3 THEN
   HTMLVIEWLINE("<b>CU@Home successfully set up</b>")

 IF FMERROR<>"" AND SELECTION=3 THEN
  POPUPMESSAGE(2,"CU@Home NOT set up. Error: "+FMERROR)

 IF FMERROR="" AND SELECTION=4 THEN
   HTMLVIEWLINE("<b>TellerPhone Access successfully created</b>")

 IF FMERROR<>"" AND SELECTION=4 THEN
  POPUPMESSAGE(2,"TellerPhone Access not created! Error: "+FMERROR)


 HTMLVIEWLINE("</font>")

 HTMLVIEWLINE("<font face=arial,helvetica size=3 ><br><br>")


 IF SELECTION=2 OR
    SELECTION=4 THEN
   HTMLVIEWLINE("The temporary TellerPhone password for
<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> is: <B>"+NEWPIN+"</B><P>")
 ELSE
 IF SELECTION=1 OR
    SELECTION=3 THEN
   HTMLVIEWLINE("The temporary CU@Home password for
<B>"+CAPITALIZE(NAME:LONGNAME)+"</B> is: <B>"+NEWPASS+"</B><P>")

 HTMLVIEWLINE("<FORM NAME=htmlrginputform1"+
              " METHOD=POST ACTION=symitar://HTMLView~Action=Close>")
 POPUPMESSAGE(0,"Please print next page for the member if applicable.")

 HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
 HTMLVIEWLINE(" VALUE=Close window>&nbsp;")

 IF SELECTION=5 THEN
   HTMLVIEWLINE("<center><b>Click the button to the left to unfreeze
the account!</b></center></font>")

 HTMLVIEWLINE("<hr width=100% color=990000><br>")

 IF SELECTION=2 OR
     SELECTION=4 THEN
  DO
   HTMLVIEWLINE("<center><b>How do you access TellerPhone for the first
time?</b></center></font>")

   HTMLVIEWLINE("<font face=arial,helvetica size=3><OL type=1>")
   HTMLVIEWLINE("<li>Call TellerPhone at <B>480-829-
TSCU(8728)</b><br><br>")

   HTMLVIEWLINE("<li>Enter your account number and 4-digit temporary
PIN when prompted to do so.")
   HTMLVIEWLINE("You now have full access to your account via
Tellerphone, however it's important that ")
   HTMLVIEWLINE("you change your PIN by following these instructions:
<br><br>")
   HTMLVIEWLINE("   <UL type=disc><li>As soon as you have access to the
main menu, go ahead and ")
   HTMLVIEWLINE("press the numbers '7', then '2', and then '2' again.
You do not have to wait until")
   HTMLVIEWLINE("you are prompted by the voice. This will bring you
directly to the change access ")
   HTMLVIEWLINE("code feature. </ul><br>")

   HTMLVIEWLINE("    <UL type=disc><li>Enter a new 4-digit PIN when
prompted.</ul><br>")
   HTMLVIEWLINE("    <UL type=disc><li>Enter '1' to process the PIN
change.</ul><br>")

   HTMLVIEWLINE("<li>TellerPhone has a feature called Expert Mode. This
allows you to bypass all the ")
   HTMLVIEWLINE("spoken menus and perform transactions and inquries
simply by entering the service codes for ")
   HTMLVIEWLINE("the transaction you would like to perform. You can
find more information and instructions ")
   HTMLVIEWLINE("for the Expert Mode feature on our web site:
<b>http://www.tscu.org/tellerPhone.html</b><br><br> ")

   HTMLVIEWLINE("</ol>")

   HTMLVIEWLINE("<hr width=100% color=990000><br>")
    HTMLVIEWLINE("<center>If you experience any problems with
TellerPhone or with accessing ")
    HTMLVIEWLINE("your account please contact us during regular
<br>business hours at <b>480-967-9475</b> or ")
    HTMLVIEWLINE("<b>1-800-851-7749</b>. You can also contact us via e-
mail at <b>info@tscu.org</b></center></font><br><br> ")
[
    HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
    HTMLVIEWLINE(" VALUE=Close&nbsp;Window>&nbsp;<p>")
]
   END
  ELSE
  IF SELECTION=1 OR
      SELECTION=3 THEN
   DO
    HTMLVIEWLINE("<center><b>How do you access CU@Home for the first
time?</b></center></font>")

   HTMLVIEWLINE("<font face=arial,helvetica size=3><OL type=1>")
   HTMLVIEWLINE("<li>Access the credit union web site at
<b>http://www.tscu.org</b>")

   HTMLVIEWLINE("<li>Enter your account number and temporary password
into the appropriate fields on the home page.<br><br>")
   HTMLVIEWLINE("    <UL type=disc><li><b>Note: </b>Your password is
case-sensitive ")
   HTMLVIEWLINE("and must be entered exactly as seen above!</UL><br>")
   HTMLVIEWLINE("<li>The <b>Secure Access Enrollment</b> page will
appear. You must enroll to use CU@Home. ")
   HTMLVIEWLINE("</li><br>")
   HTMLVIEWLINE("<li>Click the link that says <b>Click here to enroll
now.</b>")
   HTMLVIEWLINE("<li>Complete the Secure Access enrollment process by
following the instructions presented to you:<br><br>")
   HTMLVIEWLINE("    <UL type=disc><li><b>Choose a security
image</b></ul><br>")
   HTMLVIEWLINE("    <UL type=disc><li><b>Enter a security phrase</b>
and click the <b>Update Phrase</b> button</ul><br>")
   HTMLVIEWLINE("    <UL type=disc><li><b>Choose three security
questions</b>, provide the answers, and click the ")
   HTMLVIEWLINE("<b>Update Questions</b> button</b></UL><br>")

   HTMLVIEWLINE("   <UL type=disc><li>Enter an e-mail address and click
the <b>Update E-mail</b> button</UL><br>")
   HTMLVIEWLINE("   <UL type=disc><li>You have completed the Secure
Access Enrollment process</b>. However, you must click ")
   HTMLVIEWLINE("the <b>Exit CU@Home</b> button located at the top of
the page then log into your account again</UL><br>")
   HTMLVIEWLINE("</ol>")

   HTMLVIEWLINE("<hr width=100% color=990000><br>")

   HTMLVIEWLINE("<center>If you experience any problems with the Secure
Access Enrollment process or with logging into ")
   HTMLVIEWLINE("your account please contact <br>us during regular
business hours at <b>480-967-9475</b> or ")
    HTMLVIEWLINE("<b>1-800-851-7749</b>. You can also contact us via e-
mail at <b>info@tscu.org</b></center></font><br><br> ")
[
    HTMLVIEWLINE("<P><INPUT TYPE=SUBMIT NAME=submitbutton")
    HTMLVIEWLINE(" VALUE=Close&nbsp;Window>&nbsp;<p>")
]
  END
  CALL FOOTER

 HTMLVIEWLINE("<SCRIPT>")
 HTMLVIEWLINE("function exit(){")
 HTMLVIEWLINE("document.forms[0].submit();")
 HTMLVIEWLINE("document.location = 'symitar://HTMLView~Action=Close'")
 HTMLVIEWLINE("}")

 HTMLVIEWLINE("function close(){")
 HTMLVIEWLINE("document.forms[0].submit();")
 HTMLVIEWLINE("document.location = 'symitar://HTMLView~Action=Close'")
 HTMLVIEWLINE("}")

 HTMLVIEWLINE("</SCRIPT>")


 HTMLVIEWLINE("</BODY></HTML>")
 HTMLVIEWDISPLAY

END [ PROCEDURE LASTPAGE ]


PROCEDURE UNFREEZE

 FMPERFORM REVISE ACCOUNT (0,0,FMERROR)
  DO
     SET FROZENMODE TO 0
     SET INVALIDATTEMPTCOUNT TO 0
  END

END

PROCEDURE DISPLAYRESULTS

 HTMLVIEWOPEN(0)
 HTMLVIEWLINE("<HTML><HEAD><TITLE>Form Results</TITLE>")
 HTMLVIEWLINE("<STYLE>")
 HTMLVIEWLINE("BODY    {FONT: 19PX ARIAL, SANS-SERIF;}")
 HTMLVIEWLINE("TABLE   {FONT: 19PX ARIAL, SANS-SERIF;}")
 HTMLVIEWLINE("</STYLE>")
 HTMLVIEWLINE("</HEAD>")
 HTMLVIEWLINE("<BODY BGCOLOR=WHITE>")
 HTMLVIEWLINE("<H3>Form Results</H3><BR>")
 FOR I=1 TO INPUTCOUNT
  DO
   TMPCHR=INPUTFORM(I)
 [ CALL CONVERTHTMLSYMBOLS ]
   HTMLVIEWLINE(TMPCHR+"<BR>")

  END
      HTMLVIEWLINE(FORMAT("99",SELECTION)+"<BR>")

 HTMLVIEWLINE("</BODY></HTML>")
 HTMLVIEWDISPLAY

END

PROCEDURE TERMINATEPROCESS

 IF SEGMENT(INPUTFORM(1),14,LENGTH(INPUTFORM(1)))="Submit" THEN
  DO
     POPUPMESSAGE(2,"No option chosen. Cancelling process.")
     TERMINATE
  END

 IF SEGMENT(INPUTFORM(1),8,LENGTH(INPUTFORM(1)))="unfreeze" AND
     ACCOUNT:FROZENMODE=0 THEN
  DO
     POPUPMESSAGE(2,"TellerPhone/CU@Home is not frozen. Cancelling
process.")
     TERMINATE
  END


 FOR X=1 TO 30
  DO
     TMPCHR=INPUTFORM(X)
     IF UPPERCASE(SEGMENT(TMPCHR,14,LENGTH(TMPCHR)))="CANCEL" THEN
      DO
         POPUPMESSAGE(0,"Process cancelled.")
         TERMINATE
      END
  END

END

PROCEDURE AUDIOACCESSFM

 IF UPPERCASE(ACTION)="SET UP" AND
     HASAUDIO=FALSE AND
     HASHB=FALSE THEN
  DO
     FMPERFORM CREATE PREFERENCE AFTERLAST (0,0,FMERROR)
      DO
         SET AUDIOACCESS TO NEWPIN
         SET HBMODE TO 1
         SET HBENABLE TO 2
         SET LASTACCESSCHANGEDATE TO SYSTEMDATE
      END
     CALL ERRORCHECK
  END
 ELSE
  DO

     [ assuming no one will have more than 5 preference records. All of
them are set to the new
       audio access code. ]
IF PREFLOC(1)<>0 THEN
 DO
    FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
     DO
        SET AUDIOACCESS TO NEWPIN
        SET HBMODE TO 1
        SET HBENABLE TO 2
        SET LASTACCESSCHANGEDATE TO SYSTEMDATE
     END
 END

CALL ERRORCHECK

IF PREFLOC(2)<>0 THEN
 DO
    FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
     DO
        SET AUDIOACCESS TO NEWPIN
        SET HBMODE TO 1
        SET HBENABLE TO 2
        SET LASTACCESSCHANGEDATE TO SYSTEMDATE
     END
 END

CALL ERRORCHECK

IF PREFLOC(3)<>0 THEN
 DO
    FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
     DO
        SET AUDIOACCESS TO NEWPIN
        SET HBMODE TO 1
        SET HBENABLE TO 2
        SET LASTACCESSCHANGEDATE TO SYSTEMDATE
     END
 END

CALL ERRORCHECK

IF PREFLOC(4)<>0 THEN
 DO
    FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
     DO
        SET AUDIOACCESS TO NEWPIN
        SET HBMODE TO 1
        SET HBENABLE TO 2
        SET LASTACCESSCHANGEDATE TO SYSTEMDATE
     END
 END

CALL ERRORCHECK

IF PREFLOC(5)<>0 THEN
 DO
    FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
     DO
                SET   AUDIOACCESS TO NEWPIN
                SET   HBMODE TO 1
                SET   HBENABLE TO 2
                SET   LASTACCESSCHANGEDATE TO SYSTEMDATE
              END
        END

       CALL ERRORCHECK
 END

END

PROCEDURE CUHOMEFM

 IF UPPERCASE(ACTION)="SET UP" AND
     HASAUDIO=FALSE AND
     HASHB=FALSE THEN
  DO
     FMPERFORM CREATE PREFERENCE AFTERLAST (0,0,FMERROR)
      DO
         SET HBPASSWORD TO NEWPASS
         SET HBMODE TO 1
         SET HBENABLE TO 2
         SET LANGUAGE TO 3
  [       SET LASTHBPWCHANGEDATE TO '--/--/--' ]
      END
     CALL ERRORCHECK
  END
 ELSE
  DO

     [ assuming no one will have more than 5 preference records. All of
them are set to the new
       audio access code. ]

       IF PREFLOC(1)<>0 THEN
        DO
           FMPERFORM REVISE PREFERENCE LOC PREFLOC(1) (0,0,FMERROR)
            DO
               SET HBPASSWORD TO NEWPASS
               SET HBMODE TO 1
               SET HBENABLE TO 2
               SET LASTHBPWCHANGEDATE TO '--/--/--'
            END
            CALL UNFREEZE [ always unfreeze just in case ]
        END

       CALL ERRORCHECK

       IF PREFLOC(2)<>0 THEN
        DO
           FMPERFORM REVISE PREFERENCE LOC PREFLOC(2) (0,0,FMERROR)
            DO
               SET HBPASSWORD TO NEWPASS
               SET HBMODE TO 1
               SET HBENABLE TO 2
               SET LASTHBPWCHANGEDATE TO '--/--/--'
              END
              CALL UNFREEZE [ always unfreeze just in case ]
        END

       CALL ERRORCHECK

       IF PREFLOC(3)<>0 THEN
        DO
           FMPERFORM REVISE PREFERENCE LOC PREFLOC(3) (0,0,FMERROR)
            DO
               SET HBPASSWORD TO NEWPASS
               SET HBMODE TO 1
               SET HBENABLE TO 2
               SET LASTHBPWCHANGEDATE TO '--/--/--'
            END
            CALL UNFREEZE [ always unfreeze just in case ]
        END

       CALL ERRORCHECK

       IF PREFLOC(4)<>0 THEN
        DO
           FMPERFORM REVISE PREFERENCE LOC PREFLOC(4) (0,0,FMERROR)
            DO
               SET HBPASSWORD TO NEWPASS
               SET HBMODE TO 1
               SET HBENABLE TO 2
               SET LASTHBPWCHANGEDATE TO '--/--/--'
            END
            CALL UNFREEZE [ always unfreeze just in case ]
        END

       CALL ERRORCHECK

       IF PREFLOC(5)<>0 THEN
        DO
           FMPERFORM REVISE PREFERENCE LOC PREFLOC(5) (0,0,FMERROR)
            DO
               SET HBPASSWORD TO NEWPASS
               SET HBMODE TO 1
               SET HBENABLE TO 2
               SET LASTHBPWCHANGEDATE TO '--/--/--'
            END
            CALL UNFREEZE [ always unfreeze just in case ]
        END

       CALL ERRORCHECK
 END
END

PROCEDURE ERRORCHECK

IF FMERROR<>"" THEN
  POPUPMESSAGE(2,"FM Error: "+FMERROR)

END

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:5
posted:9/22/2011
language:English
pages:27