NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-39
Sample TACL Macros
#SET req^error [#REQUESTER /WAIT [zbat^val^buflen]/ READ
[schd].#ZSPI
zbat^error^var
zbat^data^var
zbat^prompt^var
]
[#IF req^error |THEN|
#OUTPUT Termination Info: [req^error]
#OUTPUT REQUESTER open/read error
#RESULT -1
#RETURN
]
== Wait for response from the scheduler
#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
]
== Read tokens returned in SPI buffer
#SETMANY zbat^ss^status, [#SSGETV /INDEX 1/ zbat^spi^buffer
zspi^tkn^retcode
zbat^retcode
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSGETV Failed
#RESULT -1
#RETURN
]
== Check for scheduler errors
[#IF zbat^retcode:retcode |THEN|
#OUTPUT Termination Info: [zbat^retcode:retcode]
#OUTPUT RETCODE indicated a NetBatch error
#RESULT -1
#RETURN
]
#RESULT 0
(continued)