NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-24
Sample COBOL Program
ENTER TAL "SSPUT" USING ZBAT-DDL-MSG-BUFFER,
ZBAT-TKN-EXECUTOR-PROGRAM,
W05-DATA-STRUCT
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Insert volume-subvol token
MOVE 1 TO W05-DATA-LEN.
MOVE SPACES TO W05-DATA-AREA.
STRING W02-TEXT DELIMITED BY SPACE
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-VOLUME-SUBVOL,
W05-DATA-STRUCT
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Insert in-file token
MOVE 1 TO W05-DATA-LEN.
MOVE SPACES TO W05-DATA-AREA.
STRING W02-TEXT DELIMITED BY SPACE
".INFILE" DELIMITED BY SIZE
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-IN-FILE,
W05-DATA-STRUCT
GIVING W05-STATUS.
IF W05-STATUS NOT = 0
CALL "SPIEXABN" USING W05-STATUS, W07-ERROR-TEXT(4)
END-IF.
* Insert out-file token
MOVE 1 TO W05-DATA-LEN.
MOVE SPACES TO W05-DATA-AREA.
STRING "$S.#MASTERA" DELIMITED BY SIZE
(continued)