Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/batcon.c14
There is 1 other file named batcon.c14 in the archive. Click here to see a list.
REP 28/1 ;14C1
BTNEDT==4301 ;EDIT NUMBER
WIT
BTNEDT==4302 ;EDIT NUMBER
INS 454/9 ;14C2
4302 5.1232 3-Mar-86
In LOGS.4 add three new SETJB% calls to set the batch job name,
sequence number and request ID in th JSB. This is for USAGE session record.
***This edit requires edits:
MONSYM(7258), MONITOR(7259), ACTSYM(36), CHKPNT(129).***
REP 79/37 ;14C3
ERJMP .POPJ ;***IGNORE ERROR RETURN
WIT
;**;[4302]At LOGS.4:+1L replace 2 lines with 13 lines JYCW 7-Mar-86
ERJMP .+1 ;[4302]Ignore error
MOVEI S2,.SJBSN ;[4302]Set BATCH sequence # function
LOAD T1,.JQJBB+JIB.SQ(R),JB.SEQ ;[4302]Get the sequence number
SETJB ;[4302]Do the function
ERJMP .+1 ;[4302]Ignore error
MOVEI S2,.SJBJN ;[4302]Set Batch Job name function
MOVE T1,.JQJBB+JIB.JN(R) ;[4302]Get the job name
SETJB ;[4302]Do the function
ERJMP .+1 ;[4302]Ignore error
MOVEI S2,.SJBID ;[4302]Set request ID
HRRZ T1,.JQJBB+JIB.ID(R) ;[4302]Get the request ID
SETJB ;[4302]Do the function
ERJMP .POPJ ;[4302]Ignore error return
SUM 95661