NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-33
Sample TACL Macros
INT jobnumber;
END;
]
== Define work-area data structure
[#DEF data^struct STRUCT
BEGIN
INT data^len;
STRUCT data^area;
BEGIN
CHAR BYTE(0:23);
END;
END;
]
== Submit a job
#SET ss^error [submit^job]
[#IF ss^error |THEN|
#RETURN
]
== Get job-number token and display on screen
#SETMANY zbat^ss^status, [#SSGETV /INDEX 1/ zbat^spi^buffer
zbat^tkn^sel^job^number
zbat^jobnumber
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSGETV Failed
#RETURN
]
#OUTPUT
#OUTPUT /COLUMN 4/ Job submitted to [schd] using SPI
#OUTPUT
#OUTPUT /COLUMN 17/ Job number : [zbat^jobnumber:jobnumber]
== Get job-name token and display on screen
#SETMANY zbat^ss^status, [#SSGETV /INDEX 1/ zbat^spi^buffer
zbat^tkn^sel^jobname
data^struct
]
[#IF zbat^ss^status |THEN|
#OUTPUT Termination Info: [zbat^ss^status]
#OUTPUT SSGETV Failed
#RETURN
]
(continued)