NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-9
Sample C Program
);
if (spi_err != ZSPI_ERR_OK)
stopwitherror(spi_err, (char *) &essinit);
/* Insert the job-name token */
strcpy (work_area.str, "MASTER-A");
work_area.len = strlen(work_area.str);
spi_err = SSPUTTKN (
(short *) spi_buff, /* SPI
buffer */
(long) ZBAT_TKN_SEL_JOBNAME, /* Token ID
*/
(char *) &work_area /* Token
value */
);
if (spi_err != ZSPI_ERR_OK)
stopwitherror(spi_err, (char *) &essputtkn);
/* Insert the executor-program token */
strcpy (work_area.str, "$SYSTEM.SYSTEM.TACL");
work_area.len = strlen(work_area.str);
spi_err = SSPUTTKN (
(short *) spi_buff, /* SPI buffer */
(long) ZBAT_TKN_EXECUTOR_PROGRAM, /* Token
ID */
(char *) &work_area /* Token value */
);
if (spi_err != ZSPI_ERR_OK)
stopwitherror(spi_err, (char *) &essputtkn);
/* Insert the volume-subvol token */
strcpy (work_area.str, getenv("DEFAULTS"));
work_area.len = strlen(work_area.str);
spi_err = SSPUTTKN (
(short *) spi_buff, /* SPI
buffer */
(long) ZBAT_TKN_VOLUME_SUBVOL,/* Token ID
*/
(char *) &work_area /* Token
value */
(continued)