NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-19
Sample COBOL Program
03 FILLER PIC X(75) VALUE
"SSPUT Failed ".
03 FILLER PIC X(75) VALUE
"GETSTARTUPTEXT Failed ".
03 FILLER PIC X(75) VALUE
"SSNULL Failed ".
03 FILLER PIC X(75) VALUE
"NUMIN Failed ".
03 FILLER PIC X(75) VALUE
"RETCODE indicated a NetBatch error ".
01 W07-ERROR-MESSAGES-ARRAY REDEFINES W07-ERROR-MESSAGES.
03 W07-ERROR-TEXT PIC X(75) OCCURS 8 TIMES.
PROCEDURE DIVISION.
/M A I N L I N E S P I E X C O B
A000-MAINLINE SECTION.
PERFORM A000-INIT.
PERFORM A000-MAIN.
CLOSE SCHED-FILE.
A000-EXIT.
STOP RUN.
/
***************************************************************
A000-INIT SECTION.
*##############################################################
*# This section:
#
*# a) Gets the volume info from startup text
#
*# b) Opens the scheduler
#
*##############################################################
* Get startup text
MOVE "VOLUME" TO W02-PORTION.
MOVE SPACES TO W02-TEXT.
MOVE 0 TO W02-RESULT.
ENTER "GETSTARTUPTEXT" USING W02-PORTION,
W02-TEXT
GIVING W02-RESULT.
IF W02-RESULT = -1
MOVE 0 TO W05-STATUS
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(5)
END-IF.
(continued)