NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-34
Sample TAL Program
alter^flag := 0;
open^table^ptr ':=' $LEN(OPEN^table) * [0];
nb^job^num := 0;
-- Submit the job
error := NB^JOB^SUBMIT (submit^rec,
base^date,
masters,
purge^test^flag,
time^rec,
rt^time,
alter^flag,
open^table,
nb^job^num);
-- Process any errors and display them
IF error THEN
BEGIN
CALL NUMOUT(ascii^num, error, 10, 4);
out^buffer ':=' " " -> @ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
out^buffer ':=' " Error " & ascii^num FOR 4 & " encountered." ->
@ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
END;
-- Display job information on the screen
IF nb^job^num <> 0 THEN
BEGIN
CALL NUMOUT(ascii^num, nb^job^num, 10, 4);
out^buffer ':=' " " -> @ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
out^buffer ':=' " Job submitted to $ZBAT using NB^JOB^SUBMIT" ->
@ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
out^buffer ':=' " " -> @ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
out^buffer ':=' " Job number : "
& ascii^num FOR 4 -> @ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
(continued)
out^buffer ':=' " Job name : "
& submit^rec.actual^job^name FOR 24 BYTES ->
@ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
out^buffer ':=' " " -> @ptr;
CALL WRITE (out_chan, out^buffer, @ptr '-' @out^buffer);
END;
CALL CLOSE (out_chan);
END;