NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-36
Sample TACL Macros
#SET data^struct:data^len [#CHARCOUNT work^area]
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^tkn^volume^subvol
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Insert in-file token
#PUSH infile^name
#SET work^area
#SET infile^name .INFILE
#CHARINS work^area 1 [#DEFAULTS]
#CHARINSV work^area ([#CHARCOUNT work^area]+1) infile^name
#SET data^struct:data^area [work^area]
#SET data^struct:data^len [#CHARCOUNT work^area]
#SET zbat^ss^status [#SSPUTV zbat^spi^buffer
zbat^tkn^in^file
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Insert out-file token
#SET data^struct:data^area $S.#MASTERA
#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^out^file
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSPUTV Failed
#RESULT -1
#RETURN
]
== Initialize the job structure
#SET zbat^ss^status [#SSNULL zbat^map^def^job
zbat^job^def
]
(continued)