PH53278: SET PROGRAM PHASEIN DOES NOT ALWAYS WORK FOR A PROGRAM THAT IS IN BOTH LPA AND ON DFHRPL CONCATENTATION 23/03/16 PTF PECHANGE

Obtain the fix for this APAR.

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 is sysrouted FROM one or more of the following:

  PH53174

• 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.