*** PATCHES ********************************************************************
 
// JOB BG52301
/*
/* FIX PROBLEM WITH BASE CALCULATION WHICH RESULTS IN PROGRAM CHECK
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52301
   AFFECT PHASE=BIM$SFPA
   ALTER 0074 41F0F000 : 41F0F004
   AFFECT PHASE=BIM$SDRT
   ALTER 7FE4 41F0F000 : 41F0F004
   RESOLVES 'PROG CHK DUE TO BAD BASE REG'
/*
/&
// JOB BG52302
/*
/* ADD SUPPORT FOR RETURN CODE ON AN ANALYZE ERROR.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52302
   AFFECT PHASE=BIM$PUAN
   ALTER 0180 45E0A2061BFF     : 1BFF45E0A206
   ALTER 0206 50E0             : 90EF
   ALTER 0592 58E0             : 98EF
   ALTER 0AF8 45E0AAB0         : 45E0AF92
   ALTER 0F92 A06AA06CA06EA070 : D204D04CAD7647F0
   ALTER 0F9A A072             : AAB0
   RESOLVES 'RETCODE FOR ANALYZE ERROR'
/*
/&
// JOB BG52303
/*
/* CHANGE CODE TO HANDLE CLASS SELECTION FOR POWER XMT QUEUE
/* REQUESTS.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52303
   AFFECT PHASE=BIMGETSP
   ALTER 0074 A074A076A078A07A : 5040303891BF3009
   ALTER 007C A07CA07EA080A082 : 078E95E73008077E
   ALTER 0084 A084A086A088A08A : D50030091032078E
   ALTER 008C A08CA08E         : 47F0A3DE
   ALTER 0562 50403038D2033034 : D2033034311C45E0
   ALTER 056A 311C             : A074
   RESOLVES 'CLASS SELECTION FOR XMT QUEUE'
/*
/&
// JOB BG52304
/*
/* PATCH BG52302 CAUSES A DUMP WHEN AN ANALYZE RETURNS A NON-ZERO
/* RETURN CODE.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52304
   REQUIRES PRE=BG52302
   AFFECT PHASE=BIM$PUAN
   ALTER 0186 182F5800AD30     : 45E0AF840700
   ALTER 0F84 A05CA05EA060A062 : 5800AD30122F078E
   ALTER 0F8C A064A066A068     : 4120000807FE
   RESOLVES 'DUMP AFTER BG52302 APPLIED'
/*
/&
// JOB BG52305
/*
/* FIX PROBLEM WITH BIM-EDIT SCAN RESULTING IN XPCC ERRORS.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52305
   AFFECT PHASE=BIM$TIEI
   ALTER 000154 47F0B158         : 47F0B632
   ALTER 000632 47F0B63200000000 : 95F1703B4780B104
   ALTER 00063A 00000000         : 47F0B158
   RESOLVES 'XPCC ERR ON BIM-EDIT SCAN'
/*
/&
// JOB BG52306
/*
/* THIS PATCH FIXES TIMING PROBLEMS THAT RESULT IN HANGS
/* AND/OR BAD SESSION AND BUFFER DATA.  BE SURE TO CYCLE
/* CICS TO ACTIVATE THIS PATCH.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52306
   AFFECT PHASE=BIM$TICI
   ALTER 000074 A054A056A058A05A : 41E0A07C47F0A060
   ALTER 00007C A05CA05EA060A062 : 41E0ADE441F066E2
   ALTER 000084 A064A066A068A06A : 4110D0684100ADEE
   ALTER 00008C A06CA06EA070A072 : 90E0100096801008
   ALTER 000094 A074A076A078A07A : 58F0672405EF07F5
   ALTER 00009C A07CA07EA080A082 : 1204C00008000000
   ALTER 0000A4 A084             : 0100
   ALTER 000ABE 47F0ADE0         : 47F0AE2C
   ALTER 000E00 1F224320         : 47F0AE2C
   ALTER 000E04 6A7B892000084150 : 1206C00008000000
   ALTER 000E0C 0001BA258098     : 020000080000
   ALTER 000E12 4780AE1C         : 94BF716C
   ALTER 000E38 47F0             : 4700
   ALTER 000E40 4710AE2C4150ADE0 : 4710A0544150ADF6
   ALTER 000ED0 94BF716C         : 4550ADF2
   ALTER 000EDC D20771A071704110 : D70771A871A89180
   ALTER 000EE4 71A0501080049180 : 80B64780A08CD703
   ALTER 000EEC 801447806318     : 809880980700
   ALTER 000F20 98F171A8         : 47F0A086
   ALTER 0000A6 A086A088A08AA08C : D20B71A880004550
   ALTER 0000AE A08EA090A092A094 : A05C98F171A847F0
   ALTER 0000B6 A096             : AF04
   ALTER 000F28 58D0             : 4700
   ALTER 000F6A 58D0             : 4700
   ALTER 000F6E 91808014         : 47F0AE2C
   AFFECT PHASE=BIM$TICS
   ALTER 00020E 9501A0C34780A21E : 0700070007000700
   ALTER 000272 9180A0C64780A2C8 : 1F6645E0A1460660
   ALTER 000294 5820A02C         : 45E0A13C
   ALTER 00013C A13CA13EA140A142 : 5820A02858202004
   ALTER 000144 A144A146A148A14A : 07FE9180A0C64780
   ALTER 00014C A14CA14EA150A152 : A2C807FE12664780
   ALTER 000154 A154A156A158     : A21E47F0A20A
   ALTER 0002BE 90F12008D703A0C0 : 90F1A02807004700
   ALTER 0002D6 47F0A20A         : 47F0A150
   RESOLVES 'FIX HANGS AND BAD BUFFERS'
/*
/&
// JOB BG52307
/*
/* THIS PATCH FIXES PROBLEMS WITH DATE SELECTION FOR PDS
/* MEMBER LIST DISPLAYS AND DELETES.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52C : BG52307
   AFFECT PHASE=BIM$PUTL
   ALTER 002988 4780A3F6         : 4780A3DC
   ALTER 0029B8 D507D2E770AF47D0 : 1F001F11BF0370AF
   ALTER 0029C0 A33647F0A4104110 : BF13D2E795F870AF
   ALTER 0029C8 400B4100D2E745E0 : 47B0A400BF04AAF5
   ALTER 0029D0 ADC8D507D2E770AF : 95F8D2E747B0A40C
   ALTER 0029D8 47B0A33647F0A410 : BF14AAF545E0AD78
   ALTER 002C58 4780A6B8         : 4780A730
   ALTER 002C8C 4780A6D4         : 4780A730
   ALTER 002C94 4780A6D4         : 4780A6DC
   ALTER 002C9C 4780A6D4         : 4780A7E2
   ALTER 002CA4 9561D17C4770A6E2 : 47F0A7AE07000700
   ALTER 002CB2 95E8D17A4770A71E : 41E0D2E795D9D182
   ALTER 002CBA D20AD074D2BFD20A : 4770A6F241E0D2F9
   ALTER 002CC2 743ED07445E0A9B6 : 1F001F11BF03D183
   ALTER 002CCA 12FF4770A7B89230 : BF13E00095F8D183
   ALTER 002CD2 D07F4110D06058F0 : 47B0A70ABF04AAF5
   ALTER 002CDA 70A005EF12FF4770 : 95F8E00047B0A716
   ALTER 002CE2 AA22D204D2D7AF80 : BF14AAF519104720
   ALTER 002CEA 47F0A7A695D9D182 : A7E24740A730D50F
   ALTER 002CF2 4770A764D511D2F9 : E002D18547B0A7E2
   ALTER 002CFA D18347B0A764     : 070007000700
   ALTER 002D30 47F0A7A6         : 47F0A7E2
   ALTER 003348 AD78AD7AAD7CAD7E : 19104720AD904740
   ALTER 003350 AD80AD82AD84AD86 : AD9AD504D2EA70B2
   ALTER 003358 AD88AD8AAD8CAD8E : 4740AD9A4780A336
   ALTER 003360 AD90AD92AD94AD96 : 956E70AE078E47F0
   ALTER 003368 AD98AD9AAD9CAD9E : A336954C70AE078E
   ALTER 003370 ADA0ADA2         : 47F0A336
   RESOLVES 'PROBLEMS WITH DATES<2000'
/*
/&