PK48581: PROGRAM DEFINED AS THREADSAFE SHOWS WITH A CEMT INQUIRE AS QUASIRENT.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The problem here is that after ESTABLISH_LANGUAGE call from
  DFHPGLD
  the apli_cicsvar_threadsafe is not checked in
  refstep establish_language_load_response. In the working case,
  DFHPGPG
  uses refstep establish_language_response which is sensitive to
  apli_cicsvar_threadsafe.
  In the failing version, it means even when the PROGRAM is
  executed.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Programs compiled with option #pragma   *
  *                      runopts (ENVAR('CICSVAR=THREADSAFE'))   *
  *                      are not displayed as THREADSAFE after   *
  *                      CEMT INQUIRE command.                   *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A program defined as CONcurrency=>QUASIRENT and API=>CICSAPI is
  compiled with the CICS environment variable, CICSVAR, set to
  THREADSAFE. The program is then loaded using the CICS API. A
  CEMT INQUIRE issued against the program displays CONcurrency
  (QUASIRENT) but it should show it as CONcurrency(THREADSAFE).
  The #pragma runopts options are not being honored. At runtime
  the program executes using the RDO definitions not the #pragma
  runopts specified.
  This is because CICSVAR options are not checked after an API
  LOAD request and therefore are never set in the PPTE. The same
  error occurs if the program is ENABLED as an EXIT. The other
  CICSVAR settings OPENAPI and QUASIRENT are also not honored.
  
  Additional Keywords: CEEUOPT CEEXOPT PLIXOPT L8 L9 J8 J9
             ppte_threadsafe ppte_openapi OTE
  

Problem conclusion

• DFHPGLD and DFHPGEX have been changed to correctly use the
  CICSVAR setting after a program LOAD.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PK42678

• APAR is sysrouted TO one or more of the following:

  UK27824

Modules/Macros

•    DESPGCM  DESPGEX  DESPGLD  DFHPGEX  DFHPGLD
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UK27824

     UP07/08/08 P F708

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.