NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-20
Sample COBOL Program
Example 7-2. Sample NB^JOB^SUBMIT COBOL Program
?ENV COMMON
?SEARCH $SYSTEM.SYSTEM.COBOLLIB
?SEARCH $SYSTEM.SYSTEM.BATCHLIB
?CONSULT $SYSTEM.SYSTEM.COBOLEX0
?SYMBOLS, INSPECT, SAVE STARTUP
IDENTIFICATION DIVISION.
PROGRAM-ID. NBCOBSRC.
DATE-WRITTEN. November 1993.
* OVERVIEW:
*===============================================================*
*
*
* This is an example program to be included in the SPI
*
* Manual to illustrate the programmatic use of NB^JOB^SUBMIT
*
* to submit a job to a NetBatch Scheduler
*
*
*
* It performs two functions:
*
* a) Submit a job to NetBatch,
*
* b) Interpret any errors returned by the Scheduler
*
* and display those details to the user.
*
*
*
*===============================================================*
/
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SUBMIT-REC.
03 FILLER PIC X(12).
03 ACTUAL-JOB-NAME PIC X(24).
03 FILLER NATIVE-2.
03 JOB-DETAILS.
05 SCHEDULER PIC X(18).
05 JCLASS PIC X(24).
05 EXECUTOR-PROGRAM PIC X(36).
05 FILLER NATIVE-2.
05 PRINT-LINES.
07 B NATIVE-2.
05 PRINT-PAGES.
07 B NATIVE-2.
05 TAPE-DRIVES.
07 B NATIVE-2.
05 SELPRI PIC X(1).
05 STALL PIC X(1).
(continued)