NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-48
Sample TAL Program
buffer ':=' " Job name : " & ascii^num for 12 &
%H0A0D & %H0A0D ->
@ptr;
CALL WRITE(out_chan, buffer, @ptr '-' @buffer);
END;
-- Format the SPI buffer and get the status of the job
IF (error := status^job(jobnumber)) THEN
stopwitherror(eretcod, 34)
ELSE
BEGIN
IF error := SSGET(spi^buf -- Read tokens returned
, job^status^map
, job^stat
, 1) THEN
stopwitherror(essget, 12);
-- Job status output header message
buffer ':=' " Job status from $ZBAT using SPI" & %H0A0D -> @ptr;
CALL WRITE(out_chan, buffer, @ptr '-' @buffer);
-- Output job selpri
CALL NUMOUT(ascii^num, job^stat.zselpri, 10, 2);
buffer ':=' " Selpri : " &
ascii^num[1] FOR 1 -> @ptr;
CALL WRITE(out_chan, buffer, @ptr '-' @buffer);
-- Output job class
buffer ':=' " Class : " &
job^stat.zclassname FOR 24 &
%H0A0D-> @ptr;
CALL WRITE(out_chan, buffer, @ptr '-' @buffer);
END;
CALL CLOSE(schd_chan,);
CALL CLOSE(out_chan,);
END;