PXS Patches

Patches to PXS Version 254.0

Patches that should be applied to PXS Version 254.0. Please note that these are not required for Version254.1 as they are pre-applied.

PD003.001 Corrects version set into JXS if 253+ requested
PXSS006.002 Prevents PE32.5 in HOOK (3) +X0F6A
PXSW002.002 Prevents late job starts if two time BIFs in a WHEN condition
PXGM002.001 Removes message type 82 from NORM trace

Patches to PXS Version 254.1

PXAE010.001 Sends "ALLOCATION DEFAULTED TO L" message to journal
PXAE011.001 Improves detection and rejection of 260+ definitions
PXAI014.001 Opens listfile in PXSI at correct point
PXSA003.001 Corrects timing of OCF and FILE updates
PXSA006.001 Prevents time reactivations in less that one second
PXSB005.001 Changes control breakdown policy avoiding RC 45965
PXSC007.001 Corrects and enhances ACTIVATE, SUSPEND and EXPRESS
PXSC008.001 Resets entry's loop test when a command is received
PXSI008.001 Prevents sub-invokes under omitted entries
PXSI009.001 Ensures that all waits are checked when work deleted
PXSI015.001 Improves space allocation check avoiding PE32.2
PXSS007.001 Implements RELEASE,DOWN correctly
PXSS008.001 Stops sub-invoked job running when owner job in ERR
PXSS009.001 Resets loop detection when work sub-invoked
PXSS010.001 Allows non-default IGNORE,AFTERS

Patches to PXS Version 254.0

REPAIR : PD003.1

@ REPAIR      : PD003.1                                                       @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPDDEMO                                                  @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 92 12 17                                                      @
@                                                                             @
@ DESCRIPTION : CORRECTS THE VERSION OF THE SCHEDULER HOOK SET INTO JXS IF    @
@               THE VERSION REQUESTED IS 253 OR 254.                          @
POINT(PDAAMODIFYJXSMOD.PDAAMODIFYJXS)
ALTER(DISP=X0314,FROM=X18047887,TO=CODE
   LSD.L   X7
   LD.C    X40
   INCA    7
   LDB     3
   XB300
   LD.C    X40
   J       X33A
   END,NAME=PD003V1)
CHECKSUM(XB70D6A8E)

REPAIR : PXSS006.2

@ REPAIR      : PXSS006.2                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 01 21                                                      @
@                                                                             @
@ DESCRIPTION : PREVENTS PE 32.5 IN ICL8LBPXBIFS (IIN=3) +XF6A                @
UNSUPPRESS(PXSSCHECKAFTERSMOD.PXSSCHECKAFTERS)
CHANGEPROPERTIES(PXSSCHECKAFTERS,KEY=NO,PURE=YES,STRENGTH=PERMANENT)
LLP(PXSSCHECKAFTERS,FIE=130,NEW=0)
LLP(PXSSCHECKAFTERS,FIE=131,NEW=8800)
CHECKSUM(X00000000)

REPAIR : PXSW002.2

@ REPAIR      : PXSW002.2                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 01 21                                                      @
@                                                                             @
@ DESCRIPTION : PREVENTS LATE JOB STARTS WHEN A CONDITION HAS TWO OR MORE     @
@             : TIME BIFS IN A CERTAIN ORDER, E.G. TIMEBETWEEN AND DAYIS.     @
POINT(PXSWMAKEWAITMOD.PXSWMAKEWAIT)
PATCH(DISP=X0224,FROM=X65F000FE,TO=CODE
   LSD.L X6
   USH 16
   USH -16
   ST.T
   LSD.MIP X420
   USH 16
   USH -16
   UCP.T
   J X22A
   END,RET=NO,NAME=PXSW002V1A)
PATCH(DISP=X0264,FROM=X65F000DE,TO=CODE
   LSD.L X6
   USH 16
   USH -16
   ST.T
   LSD.MIP X420
   USH 16
   USH -16
   UCP.T
   J X26A
   END,RET=NO,NAME=PXSW002V1B)
CHECKSUM(X772C63ED)

REPAIR : PXGM002.1

@ REPAIR      : PXGM002.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254ACR9                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 01 26                                                      @
@                                                                             @
@ DESCRIPTION : REMOVES MESSAGE TYPE 82 FROM THE NORMAL MESSAGE MAP.          @
POINT(PXGMSGMOD.PXGMMSGMAP)
ALTER(DISP=X0148,FROM=X00000041,TO=X00000040,NAME=PXGM002V1)
CHECKSUM(X5ED431B1)

Patches to PXS Version 254.1

REPAIR : PXAE010.1

@ REPAIR      : PXAE010.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254ACR9                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 92 12 18                                                      @
@                                                                             @
@ DESCRIPTION : THE MESSAGE "WARNING : ALLOCATION DEFAULTED TO L" WHICH COMES @
@             : OUT WHEN THE PXS DEFAULT ALLOCATION DOES NOT EXIST IN A USER, @
@             : CAN BE CONFUSING IF USED WITH THE CTRL+J FACILITY FROM SUITE  @
@             : SUMMARY SCREENS. THIS REP DIVERTS THE MESSAGE TO THE JOURNAL. @
POINT(PXAECREATEMOD.PXAECREATE)
ALTER(DISP=X01AC,FROM=X6208,TO=X6203,NAME=PXAE010V1)
CHECKSUM(XC84FE2F8)

REPAIR : PXAE011.1

@ REPAIR      : PXAE011.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254ACR9                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 95 05 24                                                      @
@                                                                             @
@ DESCRIPTION : THIS PATCH CAUSES PXS254 TO DETECT AND REJECT DEFINITIONS     @
@             : WRITTEN BY LATER VERSIONS. THE REP IS NEEDED IF PXS264 AND    @
@             : PXS254 ARE TO BE RUN IN PARALLEL FOR ANY LENGTH OF TIME.      @
@             :                                                               @
@ CLEARED     : PXS264                                                        @
POINT(PXAEREADENTRYDATAMOD.PXAEREADENTRYDATA)
PATCH(DISP=X474,FROM=X03200003,TO=CODE
   JE X47A
   JZ X48C
   END,NAME=PXAE011V1)
CHECKSUM(XBC022C83)

REPAIR : PXAI014.1

@ REPAIR      : PXAI014.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254ACR9                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 94 10 08                                                      @
@                                                                             @
@ DESCRIPTION : THIS REP CORRECTS A PROBLEM WHEREBY THE LISTFILE PARAMETER TO @
@             : PXS_INVOKE IS PROCESSED AFTER THE VALIDATION OF THE USER NAME @
@             : WHICH OWNS THE INVOKED ENTRY, (WHICH MIGHT INVOLVE A SWITCH   @
@             : TO THE OWNING USER WITH A CONSEQUENT IMPACT ON FILE CREATION  @
@             : CONTEXT).                                                     @
@                                                                             @
@ CLEARED     : PXS 264                                                       @
POINT(PXAIINVOKEMOD.PXAIINVOKE)
PATCH(DISP=X0290,FROM=X648978AF,TO=CODE
   PRCL 4
   LSD.L X19
   J X52E
   END,NAME=PXAI014V1A)
PATCH(DISP=X58C,FROM=X0480006F,TO=CODE
   JZ X66A
   LSD.L  X9
   LD.L X2F
   J X294
   END,NAME=PXAI014V1B)
PATCH(DISP=X52A,FROM=X18046499,TO=CODE
   J X590
   END,NAME=PXAI014V1C)
CHECKSUM(XE917BC2C)

REPAIR : PXSA003.1

@ REPAIR      : PXSA003.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 02 16                                                      @
@                                                                             @
@ DESCRIPTION : THIS REPAIR ENSURES THAT FILE AND OCF UPDATES ARE WRITTEN AS  @
@             : SOON AS THEY ARE REQUESTED. THIS CORRECTS A PROBLEM WHERE THE @
@             : UPDATES FOR FILE VARS ARE BEING REVERSED BY SYSTEM LOADS OR   @
@             : BY SCHEDULER RESTART IN CASES WHERE THE VAR UPDATED IS BY AN  @
@             : INDIRECT REFERENCE THROUGH ANOTHER VAR, AND WHERE JXS IS HELD @
@             : BEFORE THE NEXT OCF UPDATE FOR THE OWNING WORK.               @
@                                                                             @
@ SPECIAL     : PART A AND PART B OF THIS REP ARE IDENTICAL EXCEPT FOR THE    @
@ INSTRUCTION : POINT COMMAND.                                                @
POINT(PXSAMARKFILEMOD.PXSAMARKFILE)
PATCH(DISP=X0006,FROM=X7BD40002,TO=CODE
   STSF.B
   STLN.T
   SBB.T
   CPB X20
   JL £A
   LB.L X5
   J XC
£A LB.IC X2
   END,NAME=PXSA003V1A)
POINT(PXSAMARKOCFMOD.PXSAMARKOCF)
PATCH(DISP=X0006,FROM=X7BD40002,TO=CODE
   STSF.B
   STLN.T
   SBB.T
   CPB X20
   JL £A
   LB.L X5
   J XC
£A LB.IC X2
   END,NAME=PXSA003V1B)
CHECKSUM(X2F80ABB8)

REPAIR : PXSA006.1

@ REPAIR      : PXSA006.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBP5HOOK                                                  @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 95 01 12                                                      @
@                                                                             @
@ DESCRIPTION : PREVENTS A TIMER RE-ACTIVATION IN LESS THAN ONE SECOND.       @
@             :                                                               @
@ CLEARED     : 264                                                           @
POINT(PXSAACTIVATIONENDMOD.PXSAACTIVATIONEND)
PATCH(DISP=X005A,FROM=X180463D4,TO=CODE
   RRTC 0
   ST.T
   USH -28
   IAD 8
   AND X10
   USH 28
   IAD.T
   SHS 1
   ST.L 9
   IRSB.L XB
   ICP.P £B
   JGE £A
   LSD.L X9
   IAD.P £B
   ST.L XB
£A PRCL 4
   LSS.IC X1C
   J X60
   ALIGN
£B X0000000001C9C380
   END, RET=NO, NAME=PXSA006V1)
CHECKSUM(X2D4269F3)

REPAIR : PXSB005V1

@ REPAIR      : PXSB005V1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 02 24                                                      @
@                                                                             @
@ DESCRIPTION : JOBS RUN BY PXS ARE SUPPOSED TO SUSPEND WHEN A JXS FAILURE IS @
@             : REPORTED. THEY INSTEAD RETURN RESULT CODE 45965 AND ABORT, AN @
@             : APPARANT FAILURE BY JXS TO IMPLEMENT THE SUSPEND. THIS REP IS @
@             : INTENDED TO HELP THIS BY ALLOWING JOBS TO CONTINUE TO RUN IF  @
@             : THE CONTROLLING SCHEDULER IS LOST, BUT TO SUSPEND WHEN ANY    @
@             : INTERACTION IS REQUIRED FROM THE SCHEDULER. TO PROCESS A JOB  @
@             : END FOR EXAMPLE.                                              @
POINT(PXSBCOPYREQUESTMOD.EXTRAS)
ALTER(DISP=X000B,FROM=X190102,TO=X190101,NAME=PXSB005V1)
CHECKSUM(XD99562C7)

REPAIR : PXSC007.1

@ REPAIR      : PXSC007.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 04 12                                                      @
@                                                                             @
@ DESCRIPTION : CORRECTS THE HANDLING OF SUSPEND, EXPRESS AND ACTIVATE.       @
@                                                                             @
@             : WITH THIS REP IN PLACE A QUEUED JOB MAY BE EXPRESSED, AN      @
@             : EXPRESSED JOB CAN BE SUSPENDED, OVERRIDING THE EXPRESS, AND A @
@             : SUSPENDED JOB MAY BE ACTIVATED OR EXPRESSED DIRECTLY. IF THE  @
@             : SUSPENDED JOB IS EXPRESSED IT WILL ALSO BE ACTIVATED.         @
POINT(PXSCCOMMANDDATAMOD.PXSCCOMMANDDATA)
ALTER(DISP=X0014,FROM=X7A251A1F,TO=X62074887,NAME=PXSC007V1A)
PATCH(DISP=X0040,FROM=X12007885,TO=X120078857687,NAME=PXSC007V1B)
POINT(PXSCEXPRESSMOD.PXSCEXPRESS)
ALTER(DISP=X005C,FROM=X04800005,TO=X1B800005,NAME=PXSC007V1C)
ALTER(DISP=X008A,FROM=X8A7C,TO=X8C03,NAME=PXSC007V1D)
CHECKSUM(X454ED615)

REPAIR : PXSC008V1

@ REPAIR      : PXSC008V1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : OPTIONAL                                                      @
@ DATE        : 93 04 14                                                      @
@                                                                             @
@ DESCRIPTION : WHEN AN ENTRY LEAVES THE SAME STATE TWICE IN ONE SCHEDULE IT  @
@             : IS NORMALLY SUSPENDED FOR ONE MINUTE IN CASE IT IS LOOPING. A @
@             : SYSTEM WHICH IS RUNNING FAST, AND WHICH HAS QUICK OPERATORS,  @
@             : CAN SOMETIMES TRIGGER THIS LOOP DETECTION WHEN USING RERUN OR @
@             : OK COMMANDS. THIS NORMALLY HAPPENS ONLY IN TEST MODE.         @
@             :                                                               @
@             : THIS REP RESETS AN ENTRY'S LOOP TEST EACH TIME IT RECEIVES A  @
@             : COMMAND AND SO AVOIDS THE SUSPEND WHEN A JOB RUNS AND RERUNS  @
@             : IN LESS THAN A MINUTE.                                        @
POINT(PXSCCOMMANDMOD.PXSCCOMMAND)
PATCH(DISP=X04AC,FROM=X18046292,TO=CODE
   LB.L   X12
   LD.P  £A
   MODD.B
   LDTB.P £B
   LSS    0
   ST.D   1
   PRCL   4
   LSS.L  X12
   RETURN
   ALIGN
£A X2B000001 000000B0
£B X19000001
   END, RET=NO, NAME=PXSC008V1A)
CHECKSUM(X886F9C17)

REPAIR : PXSI008.1

@ REPAIR      : PXSI008.1                                                     @

@ RELEASE     : 254                                                           @

@ PATCH TO    : ICL8LBPB254HOOK                                               @

@                                                                             @

@ TYPE        : GENERAL                                                       @

@ DATE        : 93 02 16                                                      @

@                                                                             @

@ DESCRIPTION : PREVENTS SUB INVOKES WHERE THE OWNER IS IN STATE "OMIT". THIS @

@             : WILL NOW CAUSE RESULT 217425                                  @

 

POINT(PXSINEWREQUESTMOD.PXSINEWREQUEST)

PATCH(DISP=X0350,FROM=X49D4002C,TO=CODE

   ST.IC  X2C

   LB.L   XA

   LSS.MIP £A

   ROT 4

   AND XF

   UCP 6

   JNE X354

   LSS.P X654

   ST.L X6

   J X582

   ALIGN

£A X2B0000010000006C

   END,NAME=PXSI008V1)

CHECKSUM(XE1D38DAB)

REPAIR : PXSI009V1

@ REPAIR      : PXSI009V1                                                     @

@ RELEASE     : 254                                                           @

@ PATCH TO    : ICL8LBPB254HOOK                                               @

@                                                                             @

@ TYPE        : GENERAL                                                       @

@ DATE        : 93 02 25                                                      @

@                                                                             @

@ DESCRIPTION : THIS REP ENSURES THAT ALL WAITS ARE CORRECTLY ACTIONED WHEN A @

@             : NON-TOP LEVEL ENTRY IS DELETED. THIS CAN OTHERWISE LEAD TO    @

@             : WORK NOT RE-CHECKING ITS CONDITIONS WHEN WORK IS DELETED.     @

 

POINT(PXSIDEALLOCATEINVOKEMOD.PXSIDEALLOCATEINVOKE)

PATCH(DISP=X02D0,FROM=X18047A85,TO=CODE

   LCT.L X4

   PRCL X4

   LB.L X5

   LSS.MIP £A

   SLSS X9

   SLSD X0

   ST.T

   RALN X9

   CALL.IC XE

   ST.L X8

   LCT.L X4

   PRCL 4

   LB.L X5

   RETURN

   ALIGN

£A X2B000001000000A0

   END,NAME=PXSI009V1A)

PATCH(DISP=X016E,FROM=X18047A8A,TO=CODE

   LSS 0

   J X182

   END,RETURN=NO,NAME=PXSI009V1B)

PATCH(DISP=X031A,FROM=X1FD40012,TO=CODE

   CALL.IC  X12

   LSS 0

   ST.L X8

   END,NAME=PXSI009V1C)

CHECKSUM(XB8BBA313)

REPAIR : PXSI015.1

@ REPAIR      : PXSI015.1                                                     @

@ RELEASE     : 254                                                           @

@ PATCH TO    : ICL8LBPB254HOOK                                               @

@                                                                             @

@ TYPE        : SELECTIVE                                                     @

@ DATE        : 94 05 03                                                      @

@                                                                             @

@ DESCRIPTION : THIS PATCH IMPROVES THE DETECTION OF INVOKE OVERFLOW WHEN A   @

@             : LARGE NUMBER OF ENTRIES ARE ALLOCATED IN ONE INVOKE.          @

@             :                                                               @

@ SPECIAL     : THIS REP REDUCES THE OVERALL CAPACITY OF A SINGLE INVOKE BY   @

@ INSTRUCTION : APPROX THREE ENTRIES. IF CURRENT WORK IS VERY NEAR THE INVOKE @

@             : LIMIT IT MIGHT FAIL ONCE THIS REP HAS BEEN APPLIED.           @

@             :                                                               @

@             : IF THIS IS THE CASE THE INVOKE SHOULD BE SPLIT INTO SMALLER   @

@             : INVOKES BY USING SUBINVOKES.                                  @

@                                                                             @

@ CLEARED     : 264.0                                                         @

 

POINT(PXSIALLOCATEENTRY1MOD.PXSIALLOCATEENTRY1)

ALTER(DISP=X009E,FROM=XE78000B4,TO=XE780069C,NAME=PXAI015V1)

CHECKSUM(X61678E64)

REPAIR : PXSS007.1

@ REPAIR      : PXSS007.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 02 16                                                      @
@                                                                             @
@ DESCRIPTION : IMPLEMENTS THE "RELEASE,DOWN" FACILITY.                       @
POINT(PXSSRELEASEMOD.PXSSRELEASE)
PATCH(DISP=X00B4,FROM=X628A428B,TO=CODE
   LSS.L XA
   JZ    XC6
   LSS.L XC
   OR.L  XB
   JNZ   XC6
   J     XC0
   END,RETURN=NO,NAME=PXSS007V1)
CHECKSUM(XA0943416)

REPAIR : PXSS008.1

@ REPAIR      : PXSS008.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 02 25                                                      @
@                                                                             @
@ DESCRIPTION : A JOB SUB-INVOKED UNDER ANOTHER JOB SHOULD WAIT FOR THE OWNER @
@             : JOB TO FINISH ITS SCL PART, IE GO FROM Run TO R, BEFORE IT IS @
@             : ABLE TO RUN. THIS REP CORRECTS THE JOB START IN THE CASE WHEN @
@             : THE OWNER IS IN ERR.                                          @
POINT(PXSSSCHEDULEMOD.PXSSSCHEDULE)
PATCH(DISP=X02F2,FROM=X02E0001A,TO=CODE
   JE X2F6
   UCP 4
   JE X31C
   J X326
   END, RETURN=NO, NAME=PXSS008V1)
CHECKSUM(XE3FFED5A)

REPAIR : PXSS009.1

@ REPAIR      : PXSS009.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 93 05 20                                                      @
@                                                                             @
@ DESCRIPTION : WHEN WORK IS SUB-INVOKED THE OWNER IS RESET TO "STARTED". IF  @
@             : THE OWNER WAS IN STARTED LESS THAN A MINUTE BEFORE THEN A     @
@             : SLOW DOWN LOOP IS GENERATED. THIS IS NOT THE REQUIRED EFFECT  @
@             : IN THIS CASE AND THE REP REMOVES IT.                          @
POINT(PXSSCHANGEPHASEMOD.PXSSCHANGEPHASE)
PATCH(DISP=X00DA,FROM=X49DC3084,TO=CODE
   ST.D
   LB.L  X5
   LSS.MIP X4D8
   LD.P £A
   MODD.B
   LDTB.P £B
   LSS 0
   ST.D 1
   LCT.L 4
   RETURN
   ALIGN
£A X2B000001 000000B0
£B X19000001
   END, RET=NO, NAME=PXSS009V1A)
CHECKSUM(XBF360A40)

REPAIR : PXSS010.1

@ REPAIR      : PXSS010.1                                                     @
@ RELEASE     : 254                                                           @
@ PATCH TO    : ICL8LBPB254HOOK                                               @
@                                                                             @
@ TYPE        : GENERAL                                                       @
@ DATE        : 94 09 22                                                      @
@                                                                             @
@ DESCRIPTION : CORRECTS FAILURE IN IGNORE COMMAND IF EXPLICIT VALUE "AFTERS" @
@             : IS USED INSTEAD OF THE DEFAULT VALUE.                         @
@                                                                             @
@ CLEARED     : PXS 264                                                       @
POINT(PXSSIGNOREMOD.PXSSIGNORE)
PATCH( DISP=X009C, FROM=X648B7190, TO=CODE
   LSS    0
   ST.L   X8
   LSD.L  XB
   LDRL.P X270
   J      XA2
   END,RETURN=NO,NAME=PXSS010V1)
CHECKSUM(X92443B2D)