NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-31
Sample TAL Program
BEGIN
INT chan;
INT vers;
STRUCT sched;
BEGIN STRING BYTE [0:5]; END;
END;
INT xsum;
END;
INT nb^job^num;
STRUCT .att^set;
BEGIN STRING BYTE [0:42]; END;
! END STRUCTURE DEFINITIONS USED BY NB^JOB^SUBMIT !
--String pointers to structures
STRING .open^table^ptr := @open^table '<<' 1;
STRING .masters^ptr := @masters '<<' 1;
--Global declarations
LITERAL maxfilewords = 20;
LITERAL maxfilebytes = 40;
INT error;
INT out_chan;
INT .ptr;
INT work^int[0:11];
INT work^length[0:maxfilewords];
STRING work^area = work^length[1];
STRING .err^rename[0:30] := "OLDFILENAME_TO_FILENAME_ Failed";
STRING .err^open[0:16] := "FILE_OPEN_ Failed";
STRING .text[0:78];
STRING out^buffer[0:78];
STRING .ascii^num[0:3];
--Defines
DEFINE stopwitherror(etxt, etxt^len) =
CALL PROCESS_STOP_ (,,,2,error,,etxt:etxt^len) #;
--Declaration for NB^JOB^SUBMIT procedure
INT PROC nb^job^submit (submit^rec, base^date, masters, purge^test^flag,
time^rec, rt^time, alter^flag, open^table,
nb^job^num,
att^set) variable;
INT .submit^rec,
.base^date;
STRING .masters;
INT purge^test^flag,
.time^rec,
.rt^time,
alter^flag,
(continued)