NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-21
Sample COBOL Program
* Get the job-name token and display on screen
ENTER TAL "SSGET" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-SEL-JOBNAME,
ZBAT-DDL-NETBATCH-NAME,
1
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(2)
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.
*##############################################################
* #
#
*# This section:
#
*# a) Initializes the SPI buffer
#
*# b) Inserts tokens necessary to submit the job
#
*# c) Submits the job
#
* #
#
*##############################################################
(continued)