NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-35
Sample TACL Macros
== Initialize the SPI buffer
#SET zbat^ss^status [#SSINIT zbat^spi^buffer
[zbat^val^ssid]
[zbat^cmd^submit]
/OBJECT [zbat^obj^job], CHECKSUM -1/
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSINIT Failed
#RESULT -1
#UNFRAME
#RETURN
]
== Insert job-name token
#SET data^struct:data^area MASTER-A
#SET work^area [data^struct:data^area]
#SET data^struct:data^len [#CHARCOUNT work^area]
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^tkn^sel^jobname
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#UNFRAME
#RETURN
]
== Insert executor-program token
#SET data^struct:data^area $SYSTEM.SYSTEM.TACL
#SET work^area [data^struct:data^area]
#SET data^struct:data^len [#CHARCOUNT work^area]
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^tkn^executor^program
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Insert volume-subvol token
#SET data^struct:data^area [#DEFAULTS]
#SET work^area [data^struct:data^area]
(continued)