NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-34
Sample TACL Macros
#OUTPUT /COLUMN 17/ Job name : [data^struct:data^area]
== Get the status of the job
#SET ss^error [status^job]
[#IF ss^error |THEN|
#RETURN
]
#SETMANY zbat^ss^status, [#SSGETV /INDEX 1/ zbat^spi^buffer
zbat^map^status^job
zbat^job^status
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSGETV Failed
#RETURN
]
== Display the status of the job on screen
#OUTPUT
#OUTPUT /COLUMN 4/ Job status from [schd] using SPI
#OUTPUT
#OUTPUT /COLUMN 17/ Selpri : [zbat^job^status:zselpri]
#OUTPUT /COLUMN 17/ Class : [zbat^job^status:zclassname:z^c]
#OUTPUT
== Close the scheduler
#SET req^error [#REQUESTER /WAIT [zbat^val^buflen]/
CLOSE zbat^error^var
]
[#IF req^error |THEN|
#OUTPUT Termination Info: [req^error]
#OUTPUT REQUESTER close error
]
#UNFRAME
=================================================================
?SECTION submit^job ROUTINE
== ########################################################### ==
= =
==
== This routine:
==
== a) Initializes the SPI buffer
==
== b) Inserts tokens necessary to submit the job
==
== c) Submits the job
==
== ########################################################### ==
(continued)