NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-23
Sample COBOL Program
*##############################################################
*# This section:
#
*# a) Initializes the SPI buffer
#
*# b) Inserts tokens necessary to submit the job
#
*# c) Submits the job
#
*##############################################################
* Initialize the SPI buffer
ENTER TAL "SSINIT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-VAL-BUFLEN,
ZBAT-VAL-SSID,
ZSPI-VAL-CMDHDR,
ZBAT-CMD-SUBMIT,
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-name token
MOVE 1 TO W05-DATA-LEN.
MOVE SPACES TO W05-DATA-AREA.
STRING "MASTER-A" DELIMITED BY SIZE
INTO W05-DATA-AREA
WITH POINTER W05-DATA-LEN
END-STRING.
SUBTRACT 1 FROM W05-DATA-LEN.
ENTER TAL "SSPUT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-SEL-JOBNAME,
W05-DATA-STRUCT
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Insert executor-program token
MOVE 1 TO W05-DATA-LEN.
MOVE SPACES TO W05-DATA-AREA.
STRING "$SYSTEM.SYSTEM.TACL" DELIMITED BY SIZE
INTO W05-DATA-AREA
WITH POINTER W05-DATA-LEN
END-STRING.
SUBTRACT 1 FROM W05-DATA-LEN.
(continued)