NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-37
Sample TACL Macros
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSNULL Failed
#RESULT -1
#RETURN
]
== Set job attributes
#SET zbat^job^def:zclassname:z^c CLASS-A
#SET zbat^job^def:zhold -1 == True
#SET zbat^job^def:zhold^after -1 == True
#SET zbat^job^def:zdefault^security 2340 == Security "NNNN"
== Put job structure details into SPI buffer
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^map^def^job
zbat^job^def
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Submit the job
#SET ss^error [send^spi]
[#IF ss^error |THEN|
#RESULT -1
|ELSE|
#RESULT 0
]
=================================================================
?SECTION status^job ROUTINE
== ########################################################### ==
== This routine:
==
== a) Initializes the SPI buffer
==
== b) Inserts tokens necessary to get job status
==
== c) Gets job status information
==
== ########################################################### ==
== Initialize the SPI buffer
#SET zbat^ss^status [#SSINIT zbat^spi^buffer
[zbat^val^ssid]
[zbat^cmd^status]
/OBJECT [zbat^obj^job], CHECKSUM -1/
]
(continued)