NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-24
Sample COBOL Program
* Set up the Submit fields
MOVE "MASTER-A" TO ACTUAL-JOB-NAME.
MOVE W02-STARTUP-TEXT TO DEFAULTS.
MOVE "$SYSTEM.SYSTEM.TACL" TO EXECUTOR-PROGRAM.
MOVE "N" TO HIGHPIN.
MOVE "Y" TO HOLD-AFTER-FLAG,
HOLD-FLAG.
STRING W02-STARTUP-TEXT DELIMITED BY SPACES,
".INFILE" DELIMITED BY SIZE
INTO IN-FILE.
MOVE "CLASS-A" TO JCLASS.
MOVE "$S.#MASTERA" TO OUT-FILE.
MOVE 0 TO B OF PRINT-LINES,
B OF PRINT-PAGES,
B OF TAPE-DRIVES.
MOVE LOW-VALUES TO PRIORITY,
START-TIME,
WAIT-TIME.
MOVE SPACES TO SELPRI,
STALL,
START-UP,
JOB-TEXT,
RESTART-FLAG,
STOP-ON-ABEND.
MOVE "$ZBAT" TO SCHEDULER.
* Set up the Base date
MOVE HIGH-VALUES TO BASE-DATE.
* Set up the Masters array
MOVE LOW-VALUES TO MASTERS-ARRAY.
* Set up the Purge/Test flag
MOVE 0 TO PURGE-TEST-FLAG.
* Set up Time rec
MOVE 0 TO T-TYPE.
* Set up the Alter flag for Submit
MOVE 0 TO ALTER-FLAG.
* Set up Open T
MOVE LOW-VALUES TO OPEN-T.
* Set up Attachment set
MOVE SPACES TO ATT-SET.
B000-EXIT.
EXIT.
/
C000-SUBMIT SECTION.
(continued)