NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-27
Sample COBOL Program
* Write the SPI buffer to the scheduler
READ SCHED-FILE
WITH PROMPT ZBAT-DDL-MSG-BUFFER
END-READ.
IF W03-SCHED-STATUS NOT = "00"
MOVE 0 TO W05-STATUS
MOVE SPACES TO W03-ERROR-TEXT
STRING "READ " 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.
* Read tokens returned in SPI buffer
ENTER TAL "SSGET" USING ZBAT-DDL-MSG-BUFFER,
ZSPI-TKN-RETCODE,
W05-TOKEN-RETCODE,
1
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(2)
END-IF.
* Check for errors from scheduler
IF W05-TOKEN-RETCODE NOT = 0
CALL "SPIEXABN" USING W05-TOKEN-RETCODE, W07-ERROR-TEXT(8)
END-IF.
C000-C99-EXIT.
EXIT.
END PROGRAM SPIEXCOB.
***************************************************************
* * END PROGRAM SPIEXCOB * *
***************************************************************
(continued)