NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-26
Sample COBOL Program
B000-B99-EXIT.
EXIT.
/
***************************************************************
B100-STATUS-JOB SECTION.
*##############################################################
*# This section:
#
*# a) Initializes the SPI buffer
#
*# b) Inserts tokens necessary to get job status
#
*# c) Gets job status information
#
*##############################################################
* Initialize the SPI buffer
ENTER TAL "SSINIT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-VAL-BUFLEN,
ZBAT-VAL-SSID,
ZSPI-VAL-CMDHDR,
ZBAT-CMD-STATUS,
ZBAT-OBJ-JOB,
0,
OMITTED,
W02-TRUE
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(3)
END-IF.
* Insert job number token
ENTER TAL "SSPUT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-SEL-JOB-NUMBER,
W05-TOKEN-JOBNUM
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Get job status
PERFORM C000-SEND-SPI.
B100-B99-EXIT.
EXIT.
/
***************************************************************
C000-SEND-SPI SECTION.
*##############################################################
*# This section:
#
*# a) Sends requests to the scheduler
#
*# b) Interprets the responses from the scheduler
#
*# c) Checks for errors from the scheduler
#
*##############################################################
(continued)