| Published By | Date | Version | Knowledge Level | Keywords |
|---|---|---|---|---|
| Sprezzatura Ltd | 01 NOV 1992 | 3.0+ | EXPERT | SECUREACCOUNT_SUB, SECURE, ACCOUNT |
Once the account has been created the security for the account may be manipulated using SecureAccount_Sub. This takes four parameters as follows
MakeAccount_Sub(Action, AccountName, AccountRow, Flag)
where
| Action | A code for the action to be performed having the following possible values 0 Read AccountRow and return 1 Write AccountRow and return. Note that this will automatically encrypt the passwords for you, BUT field 1 of the AccountRow must be set to the name of the Account NOT the literal "ACCOUNT" |
| AccountName | The name of the account to work with |
| AccountRow | The account row for updating/retrieving from the SysEnv table |
| Flag | A result flag having the following possible values 1 An account name was not given 2 Valid SysEnv row but not an account 3 Account does not exist 4 Invalid action code passed |
Thus to change an account password programmatically one could
* Set password to NEW in account TEST
Declare Subroutine SecureAccount_Sub, Msg
Equ AccountName$ To "TEST"
Equ ReadAccount$ To 0
Equ WriteAccount$ To 1
SecureAccount_Sub(ReadAccount$, "TEST", AccRow, Flag)
If Flag Then
Msg("Error " : Flag)
End Else
AccRow<1> = "TEST"
AccRow<6> = "NEW" ; * Set password to NEW
SecureAccount_Sub(WriteAccount$ , "TEST", AccRow, Flag)
If Flag Then Msg("Error " : Flag)
End
(Volume 4, Issue 6, Pages 9,10)