NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-22
Sample COBOL Program
* 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.
DISPLAY " Job name : " ZBAT-DDL-NETBATCH-NAME.
* Get the status of the job
PERFORM B100-STATUS-JOB.
ENTER TAL "SSGET" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-MAP-STATUS-JOB,
ZBAT-DDL-STATUS-JOB,
1
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(2)
END-IF.
* Output the job status
MOVE ZSELPRI OF ZBAT-DDL-STATUS-JOB TO W03-DISPLAY-NUM.
DISPLAY " ".
DISPLAY " Job status from $ZBAT using SPI".
DISPLAY " ".
DISPLAY " Selpri : " W03-DISPLAY-NUM.
DISPLAY " Class : " ZCLASSNAME OF ZBAT-DDL-
STATUS-JOB.
DISPLAY " ".
A000-A99-EXIT.
EXIT.
/
***************************************************************
B000-SUBMIT-JOB SECTION.
(continued)