NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-20
Sample COBOL Program
* Open the scheduler
OPEN I-O SCHED-FILE.
IF W03-SCHED-STATUS NOT = "00"
MOVE 0 TO W05-STATUS
MOVE SPACES TO W03-ERROR-TEXT
STRING "OPEN " DELIMITED BY SIZE
W07-ERROR-TEXT(1) DELIMITED BY ":"
" " DELIMITED BY SIZE
W03-SCHED-STATUS DELIMITED BY SIZE
INTO W03-ERROR-TEXT
END-STRING
CALL "SPIEXABN" USING W05-STATUS, W03-ERROR-TEXT
END-IF.
A000-A90-EXIT.
EXIT.
/
***************************************************************
A000-MAIN SECTION.
*##############################################################
*# This section:
#
*# a) Calls the routine to submit a job
#
*# b) Retrieves job name and number tokens and displays on
#
*# the screen
#
*# c) Calls the routine to get job status
#
*# d) Displays job status details on the screen
#
*##############################################################
* Submit job
PERFORM B000-SUBMIT-JOB.
* Get the job-number token and display on screen
ENTER TAL "SSGET" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-SEL-JOB-NUMBER,
W05-TOKEN-JOBNUM,
1
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(2)
END-IF.
MOVE W05-TOKEN-JOBNUM TO W03-DISPLAY-NUM.
DISPLAY " ".
DISPLAY " Job submitted to $ZBAT using SPI".
DISPLAY " ".
DISPLAY " Job number : " W03-DISPLAY-NUM.
(continued)