NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-33
Sample TAL Program
-- Get the Startup message and process it
CALL INITIALIZER (!rucb!, !start^data!, STARTUP^PROC);
-- Convert C-Series output filename to D-Series format
IF (error := OLDFILENAME_TO_FILENAME_ (startup^msg.outfile.vol,
work^area:maxfilebytes,
work^length) ) THEN
stopwitherror(err^rename, 31);
-- Open the OUT file
IF (error := FILE_OPEN_ (work^area:work^length, out_chan)) THEN
stopwitherror(err^open, 17);
-- Initialize SUBMIT^REC
submit^rec.actual^job^name ':=' "MASTER-A ";
work^int ':=' startup^msg.default FOR 8 WORDS & " ";
IF (error := OLDFILENAME_TO_FILENAME_ (work^int,
work^area:maxfilebytes,
work^length) ) THEN
stopwitherror(err^rename, 31);
submit^rec.job^details.defaults ':=' work^area FOR work^length
BYTES;
submit^rec.job^details.executor^program ':='
"$SYSTEM.SYSTEM.TACL ";
submit^rec.job^details.highpin ':=' "N";
submit^rec.job^details.hold^after^flag ':=' "Y";
submit^rec.job^details.hold^flag ':=' "Y";
submit^rec.job^details.in^file ':=' work^area FOR work^length
BYTES & ".INFILE";
submit^rec.job^details.out^file ':=' "$S.#MASTERA";
submit^rec.job^details.jclass ':=' "CLASS-A ";
submit^rec.job^details.print^lines.b := 0;
submit^rec.job^details.print^pages.b := 0;
submit^rec.job^details.tape^drives.b := 0;
submit^rec.job^details.priority.b := 0;
submit^rec.job^details.start^time.b := 0;
submit^rec.job^details.wait^time.b := 0;
submit^rec.job^details.selpri ':=' " ";
submit^rec.job^details.stall ':=' " ";
submit^rec.job^details.start^up ':=' [40 * [" "]];
submit^rec.job^details.job^text ':=' [32 * [" "]];
submit^rec.job^details.restart^flag ':=' " ";
submit^rec.job^details.stop^on^abend ':=' " ";
submit^rec.job^details.scheduler ':=' "$ZBAT ";
-- Now initialize the other parameters
CALL TIMESTAMP (base^date);
masters^ptr ':=' $LEN(masters) * [" "];
purge^test^flag := 0;
time^rec.t^type := 0;
(continued)