NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-7
Sample C Program
int status = 0;
char schname[12] = "$ZBAT.#ZSPI";
/* Open scheduler with #ZSPI for SPI I/O */
status = FILE_OPEN_ ((char *) schname, (short) strlen(schname), (short
*) &schd_chan);
if (status != 0)
stopwitherror(status, (char *) &efileopen);
}
#pragma page
/*
*--------------------------------------------------------------------
* send_spi
* Use:
* Performs WRITEREADX to scheduler (SPI buffer)
* Effects:
* Returns RETCODE if successful
* Stops program if unsuccessful
*
*--------------------------------------------------------------------
*/
int send_spi(void)
{
int retcode;
int ccval= 0;
int error;
short used_len;
used_len = (spi_buff->z_occurs)+6;
ccval = WRITEREADX( (short) schd_chan,
(char *) spi_buff,
(short) used_len,
(short) (ZBAT_VAL_BUFLEN+6)
);
if (ccval != CCE) {
FILE_GETINFO_( (short) schd_chan,
(short *) &error
);
stopwitherror(error, (char *) &ewritereadx);
}
(continued)