HP TACL - Page 136

Using $RECEIVE
Initiating and Communicating With Processes
5–28 107365 Tandem Computers Incorporated
Figure 5-11. Creating CMON Messages (Page 4 of 4)
?SECTION grp_usr ROUTINE
== Converts a group , user to a space-separated list
#FRAME
#PUSH v
#IF [#ARGUMENT/VALUE v/ NUMBER]
#RESULT [v]
#IF [#ARGUMENT COMMA]
#IF [#ARGUMENT/VALUE v/ NUMBER]
#RESULT [v]
#UNFRAME
?SECTION strio ROUTINE
== Invoke this for the demo
#FRAME
== Do a simulated LOGON
#DEF msg STRUCT LIKE logon_msg;
#DEF reply STRUCT LIKE logon_reply;
talk_to_cmon msg reply
== Do a simulated processcreation
#DEF msg STRUCT LIKE processcreation_msg;
#SET msg:progname tacl == These are simulated RUN options
#SET msg:priority 148
#SET msg:processor 13
#SET msg:proginfile taclin
#SET msg:progoutfile taclout
#SET msg:proglibfile tacllib
#SET msg:progswapfile taclswap
#DEF reply STRUCT LIKE processcreation_reply;
talk_to_cmon msg reply
== Do a simulated LOGOFF
#DEF msg STRUCT LIKE logoff_msg;
#DEF reply STRUCT LIKE logoff_reply;
talk_to_cmon msg reply
#UNFRAME