NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-17
Sample COBOL Program
Example C-2. Sample SPI COBOL Program
?ENV COMMON
?COMPACT, SYMBOLS, INSPECT, SAVE STARTUP
?SEARCH $SYSTEM.SYSTEM.COBOLLIB
?CONSULT $SYSTEM.SYSTEM.COBOLEX0
?MAIN SPIEXCOB
IDENTIFICATION DIVISION.
PROGRAM-ID. SPIEXCOB.
DATE-WRITTEN. November 1993.
DATE-COMPILED.
*
* OVERVIEW:
*####################################################################
*#
#
*# This COBOL source code compiles into a sample program
#
*# that demonstrates the subsystem programmatic interface (SPI)
#
*# to the NetBatch scheduler. The program performs two functions:
#
*# * Submits a job to scheduler $ZBAT
#
*# * Executes a STATUS JOB command on the submitted job
#
*# and displays some of the job's details
#
*####################################################################
/
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT SCHED-FILE
ASSIGN TO "$ZBAT.#ZSPI"
FILE STATUS IS W03-SCHED-STATUS.
/D A T A D I V I S I O N
DATA DIVISION.
FILE SECTION.
FD SCHED-FILE
LABEL RECORDS ARE OMITTED
RECORD VARYING 6 TO 2048.
COPY ZBAT-DDL-MSG-BUFFER OF $ISV.ZSPIDEF.ZBATCOB.
WORKING-STORAGE SECTION.
(continued)