EPI Security

You can perform security management on servers that support Password Expiry Management. Refer to the CICS® Transaction Gateway: Administration book for your operating system, for more information on supported servers and protocols.

To use these features you first must have created a Terminal object and invoked the SetTerminalDefinition method to associate a userid and password with the object. The two methods available are VerifyPassword which checks the userid and password within the terminal object with the Server Security System, and ChangePassword which allows you to change the password at the server. If successful, the terminal object password is updated accordingly.

If either call is successful, you are returned a CclOSecAttr object. This object provides access to information such as last verified Date and Time, Expiry Date and Time and Last access Date and Time. If you query for example last verified Date, you are returned a CclOSecTime object which allows you to get the information in various formats. The following shows the use of these various objects.

 ' Terminal object already created called term

 on error goto pemhandler

 dim SecAttr as CclOSecAttr
 dim LastVerified as CclOSecTime
 dim lvdate as Date

 set SecAttr = term.VerifyPassword
 set LastVerified = SecAttr.LastVerifiedTime

 lvdate = LastVerified.GetDate
 strout = Format(lvdate, "hh:mm:ss, dddd, mmm d yyyy")
 Text1.Text = strout

  exit sub

  pemhandler:
 ' handle a expired password here maybe

  end sub