APPENDIX I: TCL P ROGRAMMING G UIDE 135ampsetconfig datacom checkparity Enables the parity bit if value is 1; disables the parity bit if value is 0.An administrator/operator user will not have write access in a console window when a TCL script is running and hasexecuted amplock for that port. Issuing an F8 or “Get Write Access” will not result in getting writing access.In order for the administrator/operator user to get write access, one of the following methods must be used.1. Administrator issues a Reset to the TCL interpreter by pressing the [Reset] button in the Script shell window.2. Operator/Observers execute the [Reset] button in the script shell window if the TCL script running has theamppermission off command built into the script.3. A TCL script may be designed to accept input from users (administrators and operator/observers ifamppermission off has been performed by the script) and based on the input, may either exit the execution ofthe script or release the lock and wait for further input before getting the lock and continuing execution of thescript. In this case, the Administrator/Operator must be aware of the inputs that may be sent to the running TCLscript and type the appropriate word/number in the Script shell window to gain write access to the console andrelinquish write access if appropriate.Basic TCL Server Examplewhile (1) {amppermission offset s ""set s [amplisten]if {[string length $s] !=0} {puts $sampresponse}if {[string length $s] == 5} {amppermision onbreak}}Script Function Description:This TCL Server will echo back any strings from any client who connects to the TCL interpreter through the TCLScripting Window.Key programming points:amplisten checks to see if there is a new command from any client.Puts will push back the response to the output buffer.ampresponse will push the previous response back to the EXACT client who sent the command.Due to security, the TCL scripting feature is not normally accessible by Operators or Observers. However, for theTCL Server to be general, Operators and Observers need access to the TCL scripting feature. amppermission allowssuch communication. Also, when reset, amppersmission will, by default, be on. (Hence, only explicit “unlocks” bythe Administrator are allowed.)
