NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-38
Sample TACL Macros
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSINIT Failed
#RESULT -1
#RETURN
]
== Insert job-number token
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^tkn^sel^job^number
zbat^jobnumber
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Get job status
#SET zbat^all^done 0
[#LOOP |DO|
wait^for^it
|UNTIL| zbat^all^done
]
[#IF zbat^wait^for^it^result |THEN|
#OUTPUT Termination Info: [zbat^wait^for^it^result]
#OUTPUT REQUESTER read error
#RESULT -1
#RETURN
]
#RESULT 0
=====================================================================
?SECTION send^spi ROUTINE
== ########################################################### ==
== This routine:
==
== a) Sends requests to the scheduler
==
== b) Interprets the responses from the scheduler
==
== c) Checks for errors from the scheduler
==
== ########################################################### ==
#PUSH req^error
== Write the SPI buffer to the scheduler
(continued)