A fix is available
APAR status
Closed as program error.
Error description
Set Program Phasein does not work in the following situation: 1) CICS region runs with LPA=YES 2) Application program, PROGRAMA, is defined with USELPACOPY(YES) 3) A version of PROGRAMA is installed in the LPA. 4) A different, newer, longer version of PROGRAMA is in a DFHRPL dataset. 5) To begin using the DFHRPL version of PROGRAMA, they do: SET PROGRAM(PROGRAMA) SHARESTATUS(PRIVATE) SET PROGRAM(PROGRAMA) COPY(PHASEIN) 6) If the SET SHARESTATUS(PRIVATE) is done while RESCOUNT is not zero, the PHASEIN does not work. The PHASEIN completes normally, but new users of PROGRAMA continue to get the LPA version. An INQUIRE PROGRAM(PROGRAMA) shows it is Private. But it continues to report for LENGTH the length of the LPA version. LIBRARY and LIBRARYDSN are null or blank. All of this remains the same when RESCOUNT is 0. Users of the program continue to get the LPA version. 7) At this point, doing another SET PROGRAM(PROGRAMA) PHASEIN does not change the situation. Also, doing a SET PROGRAM(PROGRAMA) NEWCOPY does not change the situation. PROGRAMA is stuck on the LPA version. When in this state, to get the program to use the Private DFHRPL version, you have to: 1) Do a SET PROGRAM(PROGRAMA) SHARESTATUS(PRIVATE) while RESCOUNT is 0. 2) Then the next use of the program, or the next PHASEIN or NEWCOPY, will bring in the private copy of the program.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users * **************************************************************** * PROBLEM DESCRIPTION: CICS cannot PHASEIN programs which * * were in the LPA. * **************************************************************** An application program was defined as USELPACOPY(YES) and was being used from the LPA. A programmer recompiled the program, and wanted CICS to load the new version of the program from a load library into a CICS DSA and execute the new copy of the program from the DSA. The user issued "CEMT SET PROGRAM(x) PRIVATE" to change USELPACOPY(YES) to USELPACOPY(NO). The user then issued "CEMT SET PROGRAM(x) PHASEIN" to bring the new version of the program into use. An error in the code caused the PHASEIN to continue to access the old version of the program from the LPA, and not access the new version from the load library.
Problem conclusion
CICS has been changed to resolve a problem which caused module DFHLDLD1 to refer to an APE control block instead of a CPE control block.
Temporary fix
Comments
APAR Information
APAR number
PH53278
Reported component name
CICS TS Z/OS V6
Reported component ID
5655YA100
Reported release
400
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-03-15
Closed date
2023-03-17
Last modified date
2023-04-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI91009
Modules/Macros
DFHLDLD1
Fix information
Fixed component name
CICS TS Z/OS V6
Fixed component ID
5655YA100
Applicable component levels
R400 PSY UI91009
UP23/03/21 P F303
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
03 April 2023