!
! The following journal file shows how to patch JOBCTL (Job Control)
! so that it updates the queue file on disk after every entry.  This
! helps to eliminate the problem of queue entries reappearing after
! the system recovers from a crash.
!


  PATCH BASE LEVEL X5.04  15 DEC 77

IMAGE FILE BEING PATCHED:	"DBA0:[PILANT]JOBCTL.EXE;2"
JOURNAL FILE:			"DBA0:[PILANT]JOBCTL.JNL;1"
DATE/TIME OF PATCH:		14-SEP-1979 10:36:57.53
ECO LEVELS SET:		1

%PATCH-I-NOGBL, some or all global symbols not accessible
PATCH>EX/I 1009
00001009:  BBCC    #01,B^04(R11),00001011
PATCH>DEF JBC$LOOP=1009
symbol "JBC$LOOP" defined as 00001009
PATCH>EX/I JBC$LOOP+2E
00001037:  TSTB    W^000008BC
PATCH>E/I
0000103B:  BGTR    00001045
PATCH>E/I
0000103D:  MOVB    #10,W^000008BC
PATCH>E/BYT 103E
0000103E:  10
PATCH>DEP/BYT 103E=01
old:	0000103E:  10
new:	0000103E:  01
PATCH>E/I 103D
0000103D:  MOVB    #01,W^000008BC
PATCH>UPD
UPDATING IMAGE FILE "DBA0:[PILANT]JOBCTL.EXE;3"
PATCH>EXI