HP TACL - Page 84

Writing an Exception Handler
Developing TACL Routines
3–28 107365 Tandem Computers Incorporated
Figure 3-16. Sample Command Shell (Page 2 of 4)
#INPUTV /UNTIL TACL/ cmd prompt
[#IF ([#INPUTEOF]) |THEN|
#RAISE EOF
]
[#CASE [cmd]
|WARMSTART|
warmstart
|COLDSTART|
coldstart
|SHUTDOWN|
shutdown
|EXIT|
EXIT
|OTHERWISE |
#OUTPUT Invalid command
]
|UNTIL| 0 = 1
] == end #LOOP
#UNFRAME
?SECTION display_initial_message TEXT
#OUTPUT This interface is used to:
#OUTPUT COLDSTART, WARMSTART, or SHUTDOWN the application.
#OUTPUT
#OUTPUT EXIT is disabled if an error exists.
#OUTPUT The BREAK key and CTRL/Y do not cause an EXIT.
?SECTION warmstart MACRO == WARMSTART the application
[#IF condition = 1 |THEN|
#OUTPUT An error condition exists.
#OUTPUT Must COLDSTART or SHUTDOWN.
#OUTPUT
|ELSE|
[#CASE [recovery]
|REQUIRED|
cleanup
| OTHERWISE |
]
#SET name [#VARIABLEINFO /VARIABLE/ %0%]
#SET step 1
#PUSH a b
#DELAY 200
#OUTPUT WARMSTARTing application $X