********************************************************************************
 
// JOB CMSFIXES
// GOTO SKIP
 
Create the following file using XEDIT, with the name:
BG52415 ZAP A :
 
 
* APPLIES 52D BGS STORAGE ABEND FIX
* ZAP LOADLIB BGSS52D
NAME FAOCM FAOCM
VER  05A2 4780,A5A3
REP  05A2 4770,A5A3
VER  06BE 4780,A6BF
REP  06BE 4770,A6BF
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
NAME GREXCM GREXCM
VER  0898 4780,A899
REP  0898 4770,A899
VER  09B4 4780,A9B5
REP  09B4 4770,A9B5
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
NAME GREXEQ GREXEQ
VER  07C4 4780,A7C5
REP  07C4 4770,A7C5
VER  08E0 4780,A8E1
REP  08E0 4770,A8E1
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
NAME GRXSVP GRXSVP
VER  006A 4780,506B
REP  006A 4770,506B
VER  0198 4780,5199
REP  0198 4770,5199
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
NAME GSPDSIO GSPDSIO
VER  1A26 4780,BA27
REP  1A26 4770,BA27
VER  1B42 4780,BB43
REP  1B42 4770,BB43
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
NAME SDFCM SDFCM
VER  0A22 4780,AA23
REP  0A22 4770,AA23
VER  0B3E 4780,AB3F
REP  0B3E 4770,AB3F
LOG BG52415 BG52415 PROGRAM CHECK ON BCMI/PCSSERV
END
 
 
 
Use the following commands to apply:
 
 
1)  ZAP TXTLIB BGSS52D (NOPRINT INPUT BG52415
 
2)  BIMGSSLN
 
 
 
Run BIMGSSLN after checking to make sure the ZAP applied correctly (a
return code of zero on the terminal).  Once you have run BIMGSSLN, you
should have no more problems with BCMI or the PCSSERV machine.
 
-----------------------------------------------------------------------
/. SKIP
/&
// JOB BG52410
/*
/* THIS PATCH CORRECTS A PROGRAM CHECK THAT RESULTS WHEN
/* THE ADDRESS SYSTEM OR ADDRESS STACK IS USED FROM A
/* BIM-GSS REXX IMOD OR SDF PANEL.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52410
   AFFECT PHASE=BIM$RXPM
   ALTER 000408 E5F54BF2C1404040 : 0700070007000700
   RESOLVES 'ABEND USING ADDRESS SYSTEM'
/*
/&
// JOB BG52412
/*
/*  ADD SUPPORT FOR THE NEW CSI-FAQS/CALL PRODUCT WHICH ALLOWS USE
/*  OF SNPP VIA TCP/IP FOR VSE.
/*
/*  SUPERCEEDED BY BG52416 ....
/*
/*
// GOTO SKIP
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52412
   AFFECT PHASE=BIM$BCCK
   ALTER 00001C F01CF01EF020F022 : 'FAQSCALL'
   ALTER 000024 F024F026F028     : '280283'
   ALTER 00002A F02AF02C         : 0118011B
   ALTER 00014E A610             : A01C
   ALTER 000154 A646             : A024
   ALTER 00015A A64C             : A02A
   ALTER 000160 A64E             : A02C
   RESOLVES 'SUPPORT FOR NEW CSI-FAQS/CALL'
/*
/. SKIP
/&
// JOB BG52413
/*
/*  CONTINUATION OF FIX FOR ADDRESS SYSTEM COMMAND RESULTING IN
/*  A PROGRAM CHECK, OPERATION EXCEPTION.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52413
   REQUIRES CO=BG52410
   AFFECT PHASE=BIM$RXPM
   ALTER 000410 47F0F080 : 47F0F088
   RESOLVES 'ABEND USING ADDRESS SYSTEM'
/*
/&
// JOB BG52414
/*
/* FIX PROBLEM WITH EXTRA TRANSACTION EXECUTION WHEN TIMED DISPLAY
/* IS ACTIVE AT SESSION END REQUEST.  THIS WOULD MOSTLY BE SEEN
/* USING THE BIM-FAQS/ASO INTERFACE, BUT WOULD POSSIBLY EFFECT OTHER
/* TIMED DISPLAY USES.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52414
   AFFECT PHASE=BIM$TICI
   ALTER 000074 A054A056A058A05A : 4780627649F0672C
   ALTER 00007C A05CA05EA060     : 478062AA07FE
   ALTER 000E84 478062AA         : 4780AFA8
   ALTER 001050 47806276         : 45E0A054
   RESOLVES 'EXTRA TRAN EXEC AFTER END'
/*
/&
// JOB BG52416
/*
/*  ADD SUPPORT FOR THE NEW CSI-FAQS/CALL PRODUCT WHICH ALLOWS USE
/*  OF SNPP VIA TCP/IP FOR VSE.  THIS PATCH REPLACES BG52412, WHICH
/*  WAS IN ERROR.  APPLICATION OF BG52412 RESULTS IN EXPIRED PRODUCT
/*  CODE MESSAGES FROM BIM-FAQS/ASO DURING IPL.
/*
/*  NOTE:  REMOVE BG52412 IF APPLIED:
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52416
   AFFECT PHASE=BIM$BCCK
   ALTER 00001C F01CF01EF020F022 : 'FAQSCALL'
   ALTER 000024 F024F026F028     : '280283'
   ALTER 00002A F02AF02C         : 0118011B
   ALTER 00018E A610             : A01C
   ALTER 000194 A646             : A024
   ALTER 00019A A64C             : A02A
   ALTER 0001A0 A64E             : A02C
   RESOLVES 'SUPPORT FOR NEW CSI-FAQS/CALL'
/*
/&
// JOB BG52417
/*
/*  PROGRAM CHECK IN BIM$RXMN +000136C3 BECAUSE OF A BAD VALUE IN
/*  REGISTER RESULTING IN AN ATTEMPT TO FREE STORAGE WHEN NONE WAS
/*  ACQUIRED.  THIS WOULD HAPPEN ON any DEFHCP COMMANDS FROM ADDRESS
/*  SYSTEM.  OTHER UNPREDICTABLE RESULTS MAY ALSO BE POSSIBLE.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52417
   AFFECT PHASE=BIM$RXPM
   ALTER 000440 A038A03AA03CA03E : 902340081F7707FE
   ALTER 0006CC 90234008         : 45E0A038
   RESOLVES 'PROG CHK AT BIM$RXMN+136C3'
/*
/&
// JOB BG52418
/*
/*  FIX A PROBLEM WITH BCIN BEING TREATED AS PART OF A COMMAND
/*  WHEN PRODUCTS SUCH AS BIM-EDIT START A BIM-GSS CICS INTERFACE
/*  SESSION.  THE BCIN BEING PRESENT CAUSES THE INFORMATION PASSED
/*  TO THE TRANSACTION TO BE MISINTERPRETED.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52418
   AFFECT PHASE=BIM$TICI
   ALTER 000082 A062A064A066A068 : 4770A34018F9D503
   ALTER 00008A A06AA06CA06EA070 : 72386762078E4190
   ALTER 000092 A072A074A076A078 : 9005480072244B00
   ALTER 00009A A07AA07CA07EA080 : 66DA4000722407FE
   ALTER 000336 4770A340         : 45E0A062
   ALTER 000342 1A19             : 1A1F
   ALTER 0005F0 47F0A5EA         : 92FF70C8
   RESOLVES 'BCIN INCLUDED IN COMMAND'
/*
/&
// JOB BG52419
/*
/*  CHANGE THE RETURN CODE FOR COMMAND BUSY TO BE COMPATIBLE WITH THE
/*  RETURN CODE (4) USED BY IMODS, ETC. USING THE ADDRESS CONSOLE,
/*  ADDRESS SYS, AND ADDRESS POWER ENVIRONMENTS.  THIS CHANGE AFFECTS
/*  IMODS THAT USE THESE ENVIRONMENTS BY FORCING THEM TO INCLUDE CODE
/*  LIKE THE FOLLOWING TO MAKE SURE THE REQUESTS ARE PASSED TO AR:
/*
/*  done=0
/*  do 10 until done
/*     address CONSOLE command
/*     if rc=4 then z=wait('1')
/*     else done=1
/*  end
/*  if done=0 then rc=8
/*  if rc<>0 then do
/*     if rc=8 then say 'Asynoc busy'
/*     else say 'Address Console failed rc='||rc
/*  end
/*
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52419
   AFFECT PHASE=BIM$PV24
   ALTER 003E50 601460166018601A : 890000101AF059F0
   ALTER 003E58 601C601E60206022 : 6026077E41F00004
   ALTER 003E60 602460266028     : 07FE00120008
   ALTER 003F16 890000101AF0     : 45E060140700
   RESOLVES 'RETURN CODE IN ADDRESS ENV'
/*
/&
// JOB BG52420
/*
/*  FIX PROBLEM WITH STORAGE ACQUISITION LENGTH FOR ACCESS TO CGI
/*  ROUTINES VIA CICS.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52420
   AFFECT PHASE=BIM$CGIC
   ALTER 00021E 4070 : 4000
   RESOLVES 'BAD STORAGE LENGTH ON CGI'
/*
/&
// JOB BG52421
/*
/*  FIX PROBLEM WITH PROGRAM CHECK IN BIM$SDRT +D3E WHEN USING
/*  UPPERCASE DISPLAYS AND AN .EMSG SDF COMMAND IS PASSED WITH
/*  NO DISPLAY DATA.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52421
   AFFECT PHASE=BIM$SDRT
   ALTER 000098 A098A09AA09CA09E : 4780AD46120047D0
   ALTER 0000A0 A0A0A0A2         : AD4607FF
   ALTER 000D32 4780AD46         : 45F0A098
   RESOLVES 'ABEND AT BIM$SDRT+D3E'
/*
/&
// JOB BG52422
/*
/*  FIX PROBLEM WITH UNPREDICTABLE RESULTS WHEN A BAD VALUE IS
/*  PASSED IN RNUM.  THE RESULT IS LOOPING OR SOME KIND OF ABEND
/*  AFTER RUNNING OFF THE END OF THE DATA FILE EXTENT TABLE.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52422
   AFFECT PHASE=BIMGETSP
   ALTER 00176E D50330541014 : D61710001000
   ALTER 001774 4720B76A     : 4780B1B0
   ALTER 001778 D21732181000 : D50330541014
   ALTER 00177E D6173218     : 4720B76A
   ALTER 001782 32184780B1B0 : D21732181000
   RESOLVES 'UNPREDICTABLE ERRORS'
/*
/&
// JOB BG52423
/*
/*  FIX POSSIBLE PROBLEM WITH SYNCHRONIZATION ERRORS DUE TO A
/*  REENTRANCY PROBLEM.  THIS MAY ADDRESS *+1 ERRORS WITH
/*  BAD ECB VALUES.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52423
   AFFECT PHASE=BIM$TIDR
   ALTER 0009D8 4590652A         : 47F0AAF8
   ALTER 001AF8 47F0AAF800000000 : 4580A6844590652A
   ALTER 001B00 00000000         : 47F0B9FA
   ALTER 0023A0 4770             : 47F0
   ALTER 0023B0 9801AC709180B02A : 9180B02A471063BC
   ALTER 0023B8 471063C012FF0789 : 12FF07899001AC70
   RESOLVES '*+1 ERRORS ON INITIALIZATION'
/*
/&
// JOB BG52424
/*
/*  FIX PROBLEM WITH ADDRESSING EXCEPTION WHEN A DEFRAG IS RUN
/*  IN A PARTITION THAT HAS 31 BIT AREA.
/*
// EXEC MSHP,SIZE=720K
   CORRECT 2885-BGS-00-52D : BG52424
   AFFECT PHASE=BIM$PUDF
   ALTER 000078 A078A07AA07CA07E : 4100D048BFE8A08C
   ALTER 000080 A080A082A084A086 : 0B0E58DD000441E0
   ALTER 000088 A088A08AA08C     : E0000B0E8000
   ALTER 000182 4100D048         : 45E0A078
   ALTER 0002AA 58DD0004         : 45E0A082
   RESOLVES 'ABEND RUNNING DEFRAG IN 31-BIT'
/*
/&
// JOB  BG52425
/* CATALOG BG052425.fix TO the VIO PDS
/*
/* This patch fixes a problem with properly extracting a member
/* from one of our PROCS when it is the last member in the PROC
/* and so ends with a "/*" instead of "PDS=".
/*
/* This job only catalogs the fix to the VIO PDS.  To activate
/* this and other fixes you must run the BIM$UTFX imod using
/* BIM$RXBA and then execute the generated BGSSTEMP.PROC member
/* that is created:
/*
/*      // EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BGSS R=V5.2D'
/*      /*
/*
/* where lib.sublib is the location of your BIM-GSS library.
/* Since the above procedure creates a .PROC member you must have
/* write access to the BIM-GSS library/sublibrary or you will
/* receive an LOPENO error from the BIM$UTFX process.
/*
/* This process can be run multiple times without resulting in
/* any problems or duplication.  Each run will rebuild the PROC
/* with all .fix members found for the requested product and release
/* so that when you execute it all fixes are applied or reapplied.
/* The original PROC's for this release are never modified.
/*
/* Be sure the CAT= below has 'fix' in lowercase...
/*
// OPTION LOG,LOGSRC
/*
/*
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL'
PDS=VIO,CAT=BG052425.fix
MEM=BIM$UTFX.OAL PDS=MON REL=V5.2D TYP=FIX
E2C3C1D540C1D9C77E898640948395A34CF240A38885954085A789A340F9F9F9FF
C9D5E240F4FF
4040898640A2A39989974DA2A482A2A3994D9784A24B948395A36BF65D5D7E7D615C7D
4050408596868940A3888595408496FF
40404040409784A24B948395A37E7D7DFF
4040404040948395A37E948395A360F1FF
4040859584FF
615BFF
./ END
/*
/&