*** PCS 5.2D PATCHES **********************************************
// JOB BP52DFIX
/* DATE 08/23/04
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* When an Event is defined with Frequency, Occurrences and a
/* WHEN condition, the FREQ was never reset to the new time.
/* This does not affect Events that only use the occurrences
/* and frequency feature. I.E. No WHEN conditions.
/* This patch will allow the Frequency to be honored and reset
/* to the new time delay.
/ After applying the fix, a re-cycle of JCLSCHED is required.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06404
     AFFECT PHASE=JCLEVUT
     ALTER 4978 47D0983C     :47D097E6
     ALTER 49FA 47F0983C     :4700983C
     ALTER 5340 90009002     :41103086
     ALTER 5344 90049006     :95001000
     ALTER 5348 9008         :077E
     ALTER 534A 900A900C     :9610300D
     ALTER 534E 900E         :07FE
     ALTER 5A68 9610300D     :45E09000
     RESOLVES 'HONOR FREQ WITH WHEN CONDITIONS'
/*
/* DATE 03/01/05
/* This is for ALL BIM-FAQS/PCS 5.2D Users
/* Customers that are running JCLXCU in large partitions when
/* doing GEN's may find that they receive a segment translation
/* error (0S03I).
/* This may also occur when using './ ID USER=' parm cards.
/* It is recommened that this patch be applied to JCLXCU to
/* correct this problem.
/* After applying the patch, re-run the JCLXCU GEN Job.
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BF2-00-52D : BP06526
   AFFECTS PHASE=JCLXCU
   ALTER 000940 5820100C5020CEFC : 9102024147E0A952
   ALTER 000948 12224780A9749102 : 41F0A95256F09630
   ALTER 000950 024147E0A96041F0 : 0B0F5820100C5020
   ALTER 000958 A96056F096300B0F : CEFC12224780A966
   RESOLVES 'GEN ID SEGMENT TRANSLATION ERROR'
/*
/* DATE 04/12/05
/* This is for ALL BIM-FAQS/PCS 5.2D Users.
/* Customers that use $PVAR may find that they can save GVARS with
/* a value length greater than 80 Characters. PCS does not support
/* this and it causes problems when using the GVAR later.
/* The patch will stop a length greater than 80 from being saved
/* in the GVAR and thus, prevent the GVAR problems later.
/* After applying this patch, delete the GVAR and re-run the $PVAR.
/* Change the V5.2D to the version that you are applying the
/* patch too. I.E. V5.2D. (In two places).
/* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The '.fix'
/* must be lower case.
// JOB  BP06541  TRUNCATE GVAR TO 80 CHARACTERS
// OPTION LOG,LOGSRC
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL'
PDS=VIO,CAT=BP006541.fix    << CHECK THAT FIX IS LOWER CASE
MEM=$PVAR.OAL PDS=MON REL=V5.2D TYP=FIX
E2C3C1D540C1D9C77E937E93859587A3884DA58193A4855DFF
C9D5E240F6FF
898640936EF8F040A3888595408496FF
404040404040404040898640817E7E7F7D7F404F40817E7E7D7F7D40A388859540827E
A2A482A2A3994DA58193A4856B936BF15DFF
404040404040404040898640817E7E8240A388859540A58193A4857E814F4FA2A482A2
A3994DA58193A4856BF26BF8F05D4F4F82FF
40404040404040404040404040404040408593A28540A58193A4857EA2A482A2A3994D
A58193A4856BF16BF8F05DFF
404040404040404040A281A8407DC7E5C1D97D40A58193A4854D7DA58199827D5D407D
8881A2408285859540A399A4958381A3858440A39640F8F040838881998183A38599A2
7DFF
404040404040404040859584FF
615BFF
./ END
/*
// LIBDEF *,SEARCH=lib.sublib  << CHANGE
// EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BPCS R=V5.2D' << CHANGE
/*
// EXEC PROC=BPCSTEMP
/*
/* DATE 06/15/05
/* This is for ALL BIM-FAQS/PCS 5.2D Users.
/* Customers may find that Events that are waiting on an Event WHEN
/* GROUP may not trigger if commands are used in the predessor
/* Events.
/* The patch will fix the error and check the Event when there
/* is a command in the Group.
/* After applying this patch, re-cycle the JCLSCHED, PCSLOG and FAQSAO
/* partitions. It may require a re-IPL if JCLPOST is in the SVA!
// EXEC MSHP,SIZE=720K
    CORRECT 2885-BF2-00-52D : BP06566
     AFFECTS PHASE=JCLPOST
     ALTER 000028 A028A02AA02C : D5075018D288
     ALTER 00002E A02EA030     : 4770C83C
     ALTER 000032 A032         : 07FE
     ALTER 00120A 5810D0B4     : 5810D0B8
     ALTER 00120E 5860D0B8     : 5010D0B0
     ALTER 001850 4770C83C     : 45E0A028
     RESOLVES 'WHEN GROUP NOT HONORED WITH COMMAND'
/*
/* DATE 09/13/05
/* This fix is for BIM-FAQS/PCS 5.2D Users using
/* BIM-ALERT/VSE and not using the table AXPX7A
/* Users that are using BIM-ALERT/VSE for securing BIM-FAQS/PCS
/* Events are seeing a error message AX801 displayed. This occurs
/* only when the AXPX7A Table is not used.
/* This patch fix will prevent the AX801 message if the AXPX7A
/* table is not found.
/*After applying the fix recycle the JCLSCHED partition.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06608
     AFFECT PHASE=JCLPWRSM
     ALTER 01A6 4780A1BE     :47F0A1BE
     RESOLVES 'PREVENT AX801 MSG NO AXPX7A TABLE'
/*
/* DATE 10/20/05
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users will notice when using the ERROR keyword on the SORT
/* statement of the BIM$ADUT utility that the keyword does not
/* seem to sort correctly if, at all.
/* This patch will fix the SORT keyword ERROR so that it sorts
/* correctly.
/* After applying the fix rerun the BIM$ADUT Job.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06628
     AFFECT PHASE=BIM$ADUT
     ALTER 3FA0 90A2        :909F
     ALTER 4020 90A2        :909F
     RESOLVES 'SORT ERROR KEYWORD'
/*
/* DATE 11/16/05
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users will find that if the VIO PDS becomes full during a
/* BIM$ADUT MERGE that a GLA436 message is produced that resets the
/* LACAUDIT.CTL member to empty, causing a loss of all the previous
/* periods auditing data. The Job then continues with a RC=0,
/* allowing the Event to complete with no errors.
/* This patch will fix the RC so that is causes the Job to abend,
/* and will keep the orginal LACAUDIT.CTL member intact for another
/* run.
/* After applying the fix increase the size of the VIO PDS and
/* rerun the BIM$ADUT Job.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06644
     AFFECT PHASE=BIM$ADUT
     ALTER 2634 12FF        :41F0
     ALTER 2636 4770A734    :001047F0
     ALTER 263A 9230BB03    :A7340000
     AFFECT PHASE=BIM$ACUT
     ALTER 34E0 12FF        :41F0
     ALTER 34E2 4770B264    :001047F0
     ALTER 34E6 923067DF    :B2640000
     AFFECT PHASE=BIM$DSUT
     ALTER 2076 12FF        :41F0
     ALTER 2078 4770A620    :001047F0
     ALTER 207C 9230B5CF    :A6200000
     RESOLVES 'RC NOT SET TO ZERO AFTER GLA436'
/*
/* DATE 12/20/05
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users that have multi-level INCLUDES for the PCSEVRP report
/* utility may find that they receive a GPP020E OPEN ON ACTIVE
/* FILE BLOCK message with no further output. An example of this
/* would be when using the supplied $SORTDIR.EVR INCLUDE.
/* This patch will fix the problem so that the includes are
/* honoured. The patch also fixes a problem where the EVTSUM
/* data was not being shown correctly.
/* After applying the fix rerun the PCSEVRP Job.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06656
     AFFECT PHASE=PCSEVRP
     ALTER 0088 A088A08A    :4110D3E8
     ALTER 008C A08CA08E    :9200101F
     ALTER 0090 A090        :07FE
     ALTER 0552 9200C843    :45E0A088
     ALTER 0556 4110C824    :41101000
     ALTER 0566 BFEFC848    :BFEF1024
     ALTER 0598 9500C888    :95001064
     ALTER 05A0 9244C843    :9244101F
     ALTER 05A4 4110C824    :41101000
     ALTER 9168 D29FCB9CC8C4:D207C8D867E8
     ALTER 91A4 D207C8D867E8:D29FCB9CC824
     ALTER 91B0 D79FD230D230:D703D22CD22C
     RESOLVES 'MULTILEVEL INCLUDES GPP020E'
/*
/* DATE 02/06/06
/* This is for ALL BIM-FAQS/PCS 5.2D Users.
/* Customers that use a Mod 5 terminal to do an online forecast
/* sorted by time will find that the display, only shows the
/* first 100 Events. Then starts over again.
/* The patch will fix the Mod 5 probelm to allow for all the Events
/* to be displayed, when sorted by time.
/* After applying this patch, redo the online forecast.
/* Change the V5.2D to the version that you are applying the
/* patch too. I.E. V5.2A. (In two places).
/* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The '.fix'
/* must be lower case.
// JOB  BP06671  MOD 5 ONLINE FORECAST SORT/TIME
// OPTION LOG,LOGSRC
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL'
PDS=VIO,CAT=BP006671.fix    <<<<<< CHECK THAT FIX IS LOWERCASE
MEM=JOLFORC.SDF PDS=VIO REL=V5.2D TYP=FIX
E2C3C1D540C1D9C77E89864084936EF3F040A38885954084937EF3F0FF
8995A240F1FF
404089864084937EF2F040A38885954084937EF1F9404040615C40C6969940D4968440
F540A385999489958193A2405C61FF
615BFF
E2C3C1D540C1D9C77E89864084936EF3F040A38885954084937EF3F0FF
8995A240F1FF
404089864084937EF2F040A38885954084937EF1F9404040615C40C6969940D4968440
F540A385999489958193A2405C61FF
615BFF
./ END
/*
// LIBDEF *,SEARCH=lib.sublib  << CHANGE
// EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BPCS R=V5.2D' << CHANGE
/*
// EXEC PROC=BPCSTEMP
/*
/* DATE 02/24/06
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users will find that when using the Imod function ADDRESS
/* CONSOLE in a 31 bit partition that the command is not
/* valid and does not show on the console as expected. This is
/* seen when the command is in a variable and over 12 charaters
/* long. E.G.
/*    cmd='S LST,00E,A,,VM'
/*    ADDRESS CONSOLE cmd
/* This patch will fix the problem so that when running in a
/* 31 bit partition the ADDRESS CONSOLE command will be honored.
/* After applying the fix rerun the Imod. If PCSADR is loaded
/* into the SVA you will either need to re-IPL or do a SET SDL
/* on the PCSADR phase.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06686
     AFFECT PHASE=PCSADR
     ALTER 0288 A288A28A    :4780B03C
     ALTER 028C A28CA28E    :4490A290
     ALTER 0290 A290A292A294:D200D5288000
     ALTER 0296 A296A298    :4180D528
     ALTER 029A A29AA29C    :5080D050
     ALTER 029E A29EA2A0    :47F0B044
     ALTER 02E4 4110D528    :4110D5A8
     ALTER 3D40 4770B044    :47F0A288
     RESOLVES 'ADDRESS CONSOLE VAR CMD'
/*
/* DATE 03/06/06
/* This is for ALL BIM-FAQS/PCS 5.2D Users.
/* Customers that use the PCS Online forecasting may like to see
/* what days in the calendar are Holidays.
/* The patch will put an 'H' on the dates of where a Holiday has
/* been defined. If the date is a schedule date it will also hi-light
/* as with other scheduled days.
/* After applying this patch, redo the online forecast.
/* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The '.fix'
/* must be lower case.
// JOB BP06689  (E) ONLINE FORECAST HOLIDAY
// OPTION LOG,LOGSRC
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL'
PDS=VIO,CAT=BP006689.fix     <<<<<< CHECK FIX IS LOWER CASE
MEM=JOLDATE.SDF PDS=VIO REL=V5.2D TYP=FIX
E2C3C1D540C1D9C77E8395A37E7DF07DFF
E2C3C1D540C1D9C77EA77E8996864D7DD1C3D3D6E2C57D6B50A4A285995DFF
8995A240F8FF
40404040A77E8996864D7DD1D6D7C5D57D6B50A4A285995DFF
404040408395A3887E7DF07DFF
40404040508481A38597884BF27E7DC8D6D3C9C4C1E8E240404040404040404040D67D
4F4F99898788A34D508481A385974BF26BF2F65DFF
40404040508481A38597884BF27E96A585999381A84D7D407D6B508481A38597884BF2
6BF2F66BF15DFF
40404040A8887E508481A385974BF14F4F508481A38597884BF2FF
40404040509985838486884B7E7D7D5E509985838486884B7E8996864D7DD1C4C1E3C5
7D6BA8886B8395A3885DFF
4040404089864099835F7EF040A388859540A281A8407DC5D9D9D6D940D9C37E7D4F4F
84F2A74D99835DFF
40404040A77E8996864D7DD1C3D3D6E2C57D6B50A4A285995DFF
615BFF
E2C3C1D540C1D9C77E5084844B897E7D40407D4F4F91FF
8995A240F2FF
4040404040404040898640A2A482A2A3994D509985838486884BF16B896BF15D7E7E7D
E87D40A3888595406BFF
40404040404040405084844B897E938586A34D5084844B896BF15D4F4F7DC87D4F4F99
898788A34D5084844B896BF25DFF
615BFF
E2C3C1D540C1D9C77E5084844B897E7D7B407D4F4F91FF
8995A240F2FF
4040404040404040898640A2A482A2A3994D509985838486884BF16B896BF15D7E7E7D
E87D40A3888595406BFF
40404040404040405084844B897E938586A34D5084844B896BF15D4F4F7DC87D4F4F99
898788A34D5084844B896BF25DFF
615BFF
./ END
/*
// LIBDEF *,SEARCH=lib.sublib  << CHANGE
// EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BPCS R=V5.2D'
/*
// EXEC PROC=BPCSTEMP
/*
/* DATE 03/07/06
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* This patch requires that the BP06656 patch already be applied.
/* Users that have applied the BP06656 patch will find that SUCC
/* DSN and other data that is on the Aux member is not displayed in
/* the PCSEVRP reports.  I.E. VAR NAME
/* This patch will fix the problem so that the Aux data is used and
/* reported on correctly.
/* After applying the fix rerun the PCSEVRP Job.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06691
     REQ  PRE=BP06656
     AFFECT PHASE=PCSEVRP
     ALTER 9168 D207C8D867E8:D29FCB9CC8C4
     ALTER 91A4 D29FCB9CC824:D207C8D867E8
     RESOLVES 'MISSING DATA FROM REPORTS'
/*
/* DATE 03/23/06
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users running a JCLEVNT DEFINE EVENT will notice that
/* the 'WHEN JOB=jobname AND' is specified that it is treated
/* as an 'OR' rather than the 'AND' specified. This happens on
/* WHEN EVENT, $JOB and PHASE defines that have no other parms.
/* If there is a parm specified then the 'AND' is honored.
/* This patch will honor the 'AND' when specified even without
/* parms.
/* After applying the fix re-run the JCLEVNT EVENT DEFINE.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06700
     AFFECT PHASE=JCLEVNT
     ALTER 0044 A044A046A048:061047F079DA
     ALTER C1E6 477079DA    :4770A044
     ALTER C26A 477079DA    :4770A044
     ALTER C344 477079DA    :4770A044
     ALTER C474 477079DA    :4770A044
     RESOLVES 'AND NOT HONORED'
/*
/* DATE 04/10/06
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* Users will find when using the $CICS Imod to OPEN/CLOSE
/* TS 1.1/ICCF Files that they will receive errors. This
/* does not happen on CICS 2.3.
/* This patch will change the OPEN/CLOSE to use the 'FIL'
/* command rather than the 'DAT' command.
/* After applying the fix re-run the Job if ran via a batch
/* Job. Re-cycle the FAQSAO partition and if PCSADR is in
/* the SVA re-IPL the system.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06706
     AFFECT PHASE=PCSADR
     ALTER 3602 40C4C1E3    :40C6C9D3
     RESOLVES 'FIL SUPPORT FOR TS11'
/*
/* DATE 08/11/06
/* This fix is for all BIM-FAQS/PCS 5.2D Users.
/* after restoring the Current Event File using PCSEVBR users
/* may find that the aux members do not associate with the
/* correct Events. This causes Events to not schedule correctly.
/* This patch corrects the mis-association and restores the
/* aux members correctly.
/* After applying the fix re-run the PCSEVBR RESTORE. You will
/* need to start the restore process over from the BIM$PUTL
/* FORMAT of the EVT PDS. Running the PCSEVBR MASTER Event
/* RESTORE etc. You do not need to re-run the backups.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-52D : BP06738
     AFFECT PHASE=PCSEVRS
     ALTER 0CCA BF032164    :47F0AD7C
     RESOLVES 'CURRENT FILE AUX MEMBER'
/*
/*
/&