NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-25
Sample COBOL Program
INTO W05-DATA-AREA
WITH POINTER W05-DATA-LEN
END-STRING.
SUBTRACT 1 FROM W05-DATA-LEN.
ENTER TAL "SSPUT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-OUT-FILE,
W05-DATA-STRUCT
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Initialize the job structure
ENTER TAL "SSNULL" USING ZBAT-MAP-DEF-JOB,
ZBAT-DDL-DEF-JOB
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(6)
END-IF.
MOVE "CLASS-A" TO ZCLASSNAME OF ZBAT-DDL-DEF-JOB.
* High values denotes a 'true' condition
MOVE HIGH-VALUES TO ZHOLD,
ZHOLD-AFTER.
* Default security - base 8 = octal
MOVE "4444 " TO W05-ASCII.
ENTER TAL "NUMIN" USING W05-ASCII,
ZDEFAULT-SECURITY,
8,
W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(7)
END-IF.
* Put job structure details into the SPI buffer
ENTER TAL "SSPUT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-MAP-DEF-JOB,
ZBAT-DDL-DEF-JOB
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Submit the job
PERFORM C000-SEND-SPI.
(continued)