*** PCS 5.2D OPTIONAL PATCHES ************************************************** /* This optional PTF is for all BIM-FAQS/PCS 5.2D Users who want to /* change the default delete confirmation reply. /* The PTF changes the default delete from 'Yes' to 'No'. /* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The 'fix' must /* be lower case // JOB BP17932 (O) CHANGE DELETE DEFAULT // OPTION LOG,LOGSRC // EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL' PDS=VIO,CAT=BP017932.fix MEM=JOLCONF.SDF PDS=VIO REL=V5.2D TYP=OPT E2C3C1D540C1D9C77E50839695869485944BF37E7DE87DFF D9C5D740F1FF 50839695869485944BF37E7DD57DFF 615BFF E2C3C1D540C1D9C77E4DC4858681A493A34089A240E85DFF D9C5D740F1FF 40404040404040404040404040404040404040404040404040404040404DC4858681 A493A34089A240D55DFF 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 /* /& /* This is an optional for BIM-FAQS/PCS 5.2D Users who use /* CA-SYSTEM MANAGER. /* CA-SYSTEM MANAGER uses // STEP cards for conditional JCL. When /* BIM-FAQS/PCS is enabled these are not passed on /* to CA-SYSTEM MANAGER correctly. /* This PTF will allow for the // STEP card to be used for /* CA-SYSTEM MANAGER. /* To implement the patch re-IPL. /* Change the CORRECT BFX where X=1 for ESA/1.4 & X=2 for ESA/2.+ // EXEC MSHP,SIZE=720K CORRECT 2885-BFX-00-52D : BP18166 < CHANGE COMP ID AFFECT PHASE=$JOBEXGP ALTER 0608 4780:4700 RESOLVES '(O) // STEP SYSTEM MANG CARDS' /* /& /* Optional for BIM-FAQS/PCS 5.2D Users having a large number of msg /* definitions in Events. /* With a large number of msg Events it is likely to cause errors /* particularly GJJ851E & GJJ857E msgs. /* This PTF will increase the table to 32K from 24K. /* To implement the patch re-cycle the JCLSCHED partition. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP18760 < CHANGE COMP ID AFFECT PHASE=JCLEVUT ALTER 4160 00006000:00007C00 RESOLVES '(O) INCREASE TABLE SIZE' /* /& /* The fix is optional for BIM-FAQS/PCS 5.2+ Users that do not /* have POWER. /* After applying the fix, re-IPL. /* Change CORRECT statement FQX where X=1 for ESA 1.3/4, X=2 for /* ESA 2.+ // EXEC MSHP,SIZE=720K CORRECT 2885-BFX-00-52D : BP19342 < CHANGE COMP ID AFFECT PHASE=JCLPCL ALTER 68F6 4780C47C:47F0C47C AFFECT PHASE=JCLACCT ALTER 088C 58303064:47003064 ALTER 0890 D2078AC83020D20F8AD03010:47008AC84700D20F47003010 ALTER 08A2 D20B8DC83000:470000000700 RESOLVES '(O) REMOVE POWER CHECK' /* /& /* This patch is optional for BIM-GSS 5.2D Users that want to disable /* the BIM$OIEI (GSEDIT) PF12/PF24 key from submitting. /* When using BIM$OIEI to edit PDS members, the default for PF12 is to /* submit the member. This is causing the job to be submitted at the /* wrong time. /* This PTF will disable the PF12/PF24 key when in BIM$OIEI (GSEDIT). /* To implement the patch re-cycle the online and JCLSCHED partitions // EXEC MSHP,SIZE=720K CORRECT 2885-BGS-00-52D : BG18423 AFFECT PHASE=BIM$OIPK ALTER 0060 7C:F0 ALTER 0080 4C:F0 RESOLVES '(O) DISABLE PF12/PF24 SUBMIT' /* /& /* This fix is an optional for BIM-FAQS/PCS 5.2D Users. /* When the scheduler is turned off using the &EVOFF command the /* mid-night time adjust is not done. Using this patch the time adjust /* will be done but the scheduler will remain turned off. /* This patch will allow a time adjust even with the scheduler turned /* off (&EVOFF). /* After applying the fix, re-cycle the JCLSCHED partition. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19460 AFFECT PHASE=JCLSCHED ALTER 0E1E 47809022 :4780AE30 ALTER 0E3E 91C0B079 :9140B079 RESOLVES '(O) ALLOW TIME ADJUST' /* /& /* This is an optional patch for BIM-FAQS/PCS 5.2D Users wanting to /* change the default R000 POWER userid. /* The userid must be 8 characters, blank fill if needed. /* Recycle the JCLSCHED & BIM$TIDR partitions after applying. // JOB BP17812 MSHP JOB // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP17812 AFFECT PHASE=JCLPWRSM /* MAKE SURE 8 CHARACTERS USED */ ALTER 1628 'R000 ':'XXXXXXXX' AFFECT PHASE=JCLPWR /* MAKE SURE 8 CHARACTERS USED */ ALTER 0BB4 'R000 ':'XXXXXXXX' RESOLVES '(O) CHANGE R000 DEFAULT' /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users. /* When running a JCLSERV or other PDS report using JCLMAINT the /* control cards are not displayed on the console or report. /* This patch will put the control cards on the report. /* After applying the fix, re-run the applicable Job. // JOB BP19495 MSHP JOB // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19495 AFFECT PHASE=JCLMAN ALTER 021C 50E450E6 :410093A0 ALTER 0220 50E850EA :BF08B981 ALTER 0224 50EC50EE :41100050 ALTER 0228 50F050F2 :45E07626 ALTER 022C 50F450F6 :58E0D108 ALTER 0230 50F8 :07FE ALTER 1C24 58E0D108 :45E050E4 RESOLVES '(O) CONTROL STATEMENTS ON REPORT' /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users. /* When using an underscore '_' character within a PCL |SET parm /* that is concatenating multiple variables, the underscore is /* changed to various other characters like, blanks, numeric or other /* characters. /* This patch will prevent the underscore '_' character from being /* changed. /* After applying the fix, re-cycle JCLSCHED and On-line partitions. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19570 AFFECT PHASE=JCLPCL ALTER 1042 47807020 :47007020 ALTER 1054 47707030 :47F07030 RESOLVES '(O) UNDERSCORE VAR RESOLUTION' /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users. /* When variables are resolved the value is always upper cased. /* This patch will allow for mixed case values in a PCS variable /* After applying the fix, re-cycle JCLSCHED and On-line partitions. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19609 REQ PRE=BP19881 AFFECT PHASE=JCLPCL ALTER 05D2 478065B2 :47F065B2 RESOLVES '(O) MIXED CASE VAR VALUES' /* /& /* The fix is optional for BIM-FAQS/PCS 5.+ Users that do not have /* POWER. /* It is highly recommended that when using BIM-FAQS/PCS /* without POWER that PCS is started prior to other products. /* I.E. JCLXCU ENABLE should be prior to other products. /* RESOLVES '(I) ABENDS AT EOJ WITH SPRI' BP19625 /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users. /* When using conditional GOTO statements PCS allows the label to /* cross Job boundaries. /* This patch will prevent the GOTOs from crossing Job boundaries. /* After applying the fix, a re-IPL is required. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19664 AFFECT PHASE=$JOBEXGP ALTER 0D7A 4780A67C :47F0A67C RESOLVES '(O) PREVENT CROSS JOB GOTO' /* /& /* OPTIONAL FOR BIM-FAQS/PCS 5.2D USERS NEEDING BIM-EPIC TO CONTROL A /* CONDOR LIBRARY. /* USERS WANTING TO USE BIM-EPIC TO CONTROL THEIR CONDOR LIBRARY WILL /* RECEIVE THE *GETVCE FAILED FOR CONDOR LIBRARY R15=08 ERROR MSG. /* THIS PTF WILL REMOVE THE CONFLICT BETWEEN BIM-FAQS/PCS AND BIM-EPIC. /* TO IMPLEMENT THE PATCH RE-CYCLE THE JCLSCHED PARTITION. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19721 AFFECT PHASE=JCLPNX ALTER 03B2 4710A3E4:47F0A3E4 ALTER 03EA 41709088:47F0A48C RESOLVES '(O) BIM-EPIC CONDOR LIB' /* /& /* Optional for BIM-FAQS/PCS 5.2D Users having a large number of /* GJJ938W msgs. /* With a large number of DSNs being opened at one time it is likely /* that the PCSOCTAB table will need to be increased. /* This PTF will increase the table to 8K from 4K. /* To implement the patch an IPL is required. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP19925 AFFECT PHASE=PCSOCTAB ALTER 0024 00001000:00002000 RESOLVES '(O) INCREASE DSN TABLE SIZE' /* /& /* This fix is an optional for BIM-FAQS/PCS 5.2D Users /* needing to replace and use the tilda '~'. /* When a JCLMAINT Job is ran to replace a tilda '~' it /* is incorrectly changed to a blank/space. /* This patch will allow for the tilda '~' to be set as /* a tilda and not as the blank/space. /* After applying the fix, re-run the JCLMAINT Job. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP06181 AFFECT PHASE=JCLMAN ALTER 79C8 4040 :40A1 RESOLVES '(O) KEEP AS A TILDA' /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users. /* The problem is an Event that stays on the Current Event File several /* days and is a successor, it does not honor the second Event. /* For Example : EVENT1 is scheduled on Fridays and Sundays. Has EVENT2 /* as a successor. EVENT2 is scheduled on Fridays but does not run /* until Sunday after EVENT1. Currently EVENT2 will go into a SUCC /* status for both days. But on Sunday will stay in SUCC status even /* after EVENT1 has completed. /* This patch will correctly track the successor by the day as well as /* Event name. /* After applying the fix, a re-cycle of JCLSCHED is required. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP06302 AFFECT PHASE=JCLEVUT ALTER 12C6 D20730002006 :D20A30002006 ALTER 12CC 41303008 :4130300B ALTER 1354 D50730002008 :D50A30002008 ALTER 135E 41303008 :4130300B RESOLVES '(O) SUCC FOR EVERY DAY' /* /& /* This patch is Optional for BIM-FAQS/PCS 5.2D Users that want to /* prevent a Master to Current File transfer using the PF2 key in the /* Event. /* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The '.fix' /* must be lower case. When a customer edits an event in the Master /* File and wants to quit the session then have to depress PF3. /* Sometimes the PF2 is pressed instead. Which causes the event to /* be transferred to the Current File incorrectly. /* Make sure that the Current to Master transfer is 'No'. /* (See the PCS O.R or O.E panels). /* This patch will prevent the transfer if, the option to /* prevent Current to Master transfers is turn on. (See the PCS O.R /* or PCS O.E) /* After the patch is applied the transfer should not take place. // JOB BP06480 (O) MASTER TO CURRENT TRANS // OPTION LOG,LOGSRC // EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL' PDS=VIO,CAT=BP006480.fix << CHECK THAT FIX IS LOWER CASE MEM=JOLEVT.SDF PDS=VIO REL=V5.2D TYP=OPT E2C3C1D540C1D9C77E89864050C1C9C47E7E7DF27D4050405085A58689937E7E7DC3E4 D9D9C5D5E37DFF D9C5D740F2FF 4040404089864050C1C9C47E7E7DF27D4050405085A58595A3A399817E7E7DD57D40A3 888595408496FF 4040404040407D4BC5D4E2C740E3D9C1D5E2C6C5D940D5D6E340C1D3D3D6E6C5C47DFF 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 /* /& /* This fix is optional for BIM-FAQS/PCS 5.2D Users using /* DL/I 1.10 with CICS 2.3 and ESA 2.4+. /* Users may find that if on CICS 2.3 and ESA 2.4+ that the /* JCLRCICS program abends when they try to open or close /* DL/I files. If they are using DL/I 1.10 this patch is /* required. /* This patch fix will use the DL/I 1.10 method to /* check and prevent the abend. /* After applying the fix NEW COPY JCLRCICS and rerun the /* JCLBCICS Job. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP06585 AFFECT PHASE=JCLRCICS ALTER 063A 47F065EE :470065EE ALTER 0660 BFEFE2E4 :BFEFE008 RESOLVES '(O) DLI REL 1.10 CHECK' /* /& /* This is an Optinal fix for BIM-FAQS/PCS 5.2D Users who /* may need to resolve BIMEDIT variables at schedule time. /* By default the scheduler does not resolve BIMEDIT variables. /* This patch will allow the BIMEDIT variables to be /* resolved when scheduled. /* After applying the fix re-cycle the JCLSCHED partition. // EXEC MSHP,SIZE=720K CORRECT 2885-BF2-00-52D : BP06697 AFFECT PHASE=JCLBIME ALTER 0110 40D7D9D6C4:40D6D540C4 ALTER 0570 D206E000A10A:D209E000A10A RESOLVES '(O) BIMEDIT VARIABLES' /* /& ****** PCS 5.2D OPTIONAL PATCHES FOR CMS ******* * ZAP LOADLIB DCMSYSE NAME JCLPWRSM JCLJXPCC * MAKE SURE 8 CHARACTERS VER 15F0 D9F0F0F040404040 REP 15F0 C4D9D1D4C1D54040 LOG BP17812 ZAPLOG (O) CHANGE R000 DEFAULT END