* HELMSMAN AMENDMENT NOTICE
*          
* Notice number: 069/1   Date:  8 January, 1996
*          
* This amendment corrects the following problems in the
* Helmsman JSVM:
*
*        a) If a system break occurs whilst the JSVM is
*           queueing a set of suite jobs, then when the JSVM
*           is restarted any suite jobs, which hadn't been
*           queued prior to the break, are ignored.
*
*        b) If a suite header job is force queued prior to
*           it's normal run time, but the associated suite
*           jobs are not requested, then when the suite's
*           normal run time is reached all the underlying
*           suite jobs are ignored.
*
* This amendment replaces version 0 in which there was an
* error.
* Please apply this amendment using the procedure described in
* chapter 23 of the Helmsman User Guide.
*
* Module to be amended is: ICL8_UCJ0_JSVM  ( 2500 )
*
POINT(UCJ093.PATCHES)
ALTER(69,X00,XF1,NAME=UCJP250_069/1_P00)
POINT(UCJ050.ACTIONTABLE_C)
PATCH(X110,X63F00080,CODE  * LINE 604
   LSS.MIP #A              * THIS_ENTRY.OPT
   ROT     8
   AND     1               * .ALREADY_RUN_TODAY
   UCP     1
   JNE     #C              * NO, CARRY ON
   LSS     0
   ST.MIP  #B              * THIS_ENTRY.ACTION_RES
   J       X16A            * END OF LOOP
#C LSS.MIP #D              * OVERWRITTEN
   J       X114            * CONTINUE
   ALIGN
#A X2B000001
   X00000030
#B X2B000001
   X00000034
#D X1B000001
   X0000003C
END,NO,NAME=UCJP250_069/1_P01)
POINT(UCJ050.ADDJOBSUITE_C)
PATCH(X248,X1804628F,CODE  * LINE 1061
   LSS.L   XB              * ACTION_OPTS
   ROT     8               * ALREADY_RUN_TODAY
   AND     -2              * := 0
   ROT     -8
   ST.L    XB
   PRCL    4               * OVERWRITTEN
   LSS.L   XF              * OVERWRITTEN
END,YES,NAME=UCJP250_069/1_P02)
POINT(UCJ050.UCJ050_C)
PATCH(X1398,X18046594,CODE * LINE 3777
   PRCL    4
   LSS.IC  X126            * SCHEDULE_DATE
   SLSS    -1
   SLSS.IC XEE             * JI_KEY.TIME
   SLSS.P  #A              * OPTIONS
   SLSS    XD8             * "Q"
   ST.T
   RALN    XA
   CALL.C  X205            * ADD_JOB_TO_TABLE
   PRCL    4               * OVERWRITTEN
   LSD.C   XEE             * OVERWRITTEN
   J       X139E           * CONTINUE
   ALIGN
#A XA1000000
END,NO,NAME=UCJP250_069/1_P03)
POINT(UCJ052.QUEUEJOB_C)
ALTER(X8CA,X0480000C,CODE  * LINE 3720
   JZ      X912            * LINE 3732
END,NAME=UCJP250_069/1_P04)
PATCH(XE18,X7BD40124,CODE  * LINE 3924
   PRCL    4
   LDRL.P  #A              * "X"
   LSD.C   X174            * BDESC JD_KEY
   STD.T
   ST.T
   RALN    9
   CALL.IC X92             * UCJ_JOB_RECH
   LCT.L   4
   LB.IC   X124            * OVERWRITTEN
   RETURN
   ALIGN
#A X18000001
   8
   C'X'
END,NO,NAME=UCJP250_069/1_P05)
POINT(UCJ050.ACTIONTABLE_C)
PATCH(X152,X30840480,CODE  * LINE 613
   LCT.L   4               * OVERWRITTEN
   JZ      X16A            * LINE 622
   ICP     80807           * MTM_JOB_IS_ACTIVE
   JNE     X158            * LINE 615
   LB.L    XE
   LSS.MIP #A              * THIS_ENTRY.OPT
   ROT     9               * .SUITE_HEADER_JOB
   AND     1
   UCP     1               * = 1 ?
   JNE     X158            * LINE 615
   LD.P    #B
   INCA.L  XE
   LSS.D                   * THIS_ENTRY.OPT
   ROT     8               * .ALREADY_RUN_TODAY
   OR      1               * := 1
   ROT     -8
   ST.D
   LB.L    XE
   LSS     0               * 0 ->
   ST.MIP  #C              * THIS_ENTRY.ACTION_RES
   J       X16A            * LINE 622
   ALIGN
#A X2B000001
   X00000030
#B X28000001
   X00000030
#C X2B000001
   X00000034
END,NO,NAME=UCJP250_069/1_P06)
POINT(UCJ050.ADDJOBSUITE_C)
PATCH(X2AE,X79900039,CODE  * LINE 1081
   LD.P    #A
   INCA.L  XE
   LSS.D                   * THIS_ENTRY.OPT
   ROT     9               * .SUITE_HEADER_JOB
   OR      1               * := 1
   ROT     -9
   ST.D
   LD.P    #A              * OVERWRITTEN
   J       X2B2            * CONTINUE
   ALIGN
#A X28000001
   X00000030
END,NO,NAME=UCJP250_069/1_P07)
PATCH(X2D0,X79900028,CODE  * LINE 1087
   LD.P    #A
   INCA.L  XE
   LSS.D                   * THIS_ENTRY.OPT
   ROT     9               * .SUITE_HEADER_JOB
   OR      1               * := 1
   ROT     -9
   ST.D
   LD.P    #A              * OVERWRITTEN
   J       X2D4            * CONTINUE
   ALIGN
#A X28000001
   X00000030
END,NO,NAME=UCJP250_069/1_P08)
CHE(817EFD4B)