TACL Reference Manual

Statements and Programs
HP NonStop TACL Reference Manual—429513-018
5-20
Creating Program Files
To access the process name:
#PUSH proc^offset proc^len proc^lwa procname
#SET proc^len &
[:_completion^procdeath:z^procname:zlen]
[#IF proc^len > 0 |THEN|
#SET proc^offset &
[:_completion^procdeath:z^procname:zoffset]
#SET proc^lwa [#compute proc^offset+proc^len-1]
#SET procname &
[:_completion^procdeath:z^procname^:byte([proc^offset]:&
[proc^lwa])]
]
To access the termination text:
#PUSH termtext^len termtext^lwa termtext
#SET termtext^len &
[:_completion^procdeath:z^termtext^len]
[#IF termtext^len > 0 |THEN|
#SET termtext^lwa [#compute termtext^len-1]
#SET termtext &
[:_completion^procdeath:z^termtext:byte(0:[termtext^lwa])]
]
Interactive Display of Completion Code Information
An interactive TACL displays completion code information whenever one or more of
these statements are true:
•
PMSG is ON.
•
:_COMPLETION:MESSAGECODE is -5 (STOP) and
:_COMPLETION:COMPLETIONCODE is not 0 and not 6 (stopped externally).
•
:_COMPLETION:MESSAGECODE is -6 and :_COMPLETION:COMPLETIONCODE is
not 5 and not 6 (stopped externally).
•
:_COMPLETION:TERMINATIONINFO is not 0 and
:_COMPLETION:COMPLETIONCODE is not 6 (stopped externally).
•
:_COMPLETION:TEXTLENGTH is not 0.