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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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 @
@ 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)