NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-28
Sample COBOL Program
/
***************************************************************
* * START PROGRAM SPIEXABN *
*
***************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. SPIEXABN.
DATE-WRITTEN. 16/11/93.
DATE-COMPILED.
*
* OVERVIEW:
*##############################################################
* #
#
*# This program is the error handling routine for SPIEXCOB.
#
*# It is passed an error number and error text, and then
#
*# abends the program.
#
* #
#
*##############################################################
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 W01-ERROR-CODE NATIVE-2.
01 W01-ERROR-TEXT PIC X(75).
PROCEDURE DIVISION USING W01-ERROR-CODE,
W01-ERROR-TEXT.
*M A I N L I N E S P I E X A B N
***************************************************************
A000-MAINLINE SECTION.
PERFORM A000-PROCESS-ERROR.
A000-EXIT.
STOP RUN.
(continued)