PH36829: ARSUUPDC SAMPLE NOT SETTING ARSUUPDA-INPDDN AND ARSUUPDA-SSS2P

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The ARSUUPDC sample exit does not set ARSUUPDA-INPDDN and
  ARSUUPDA-SSS2P which can cause issues if not calling ARSUUPDX.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All Content Manager OnDemand for z/OS 10.1   *
  *                 and above using arsload -E and loading files *
  *                 from the JES spool.                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: 1.USER COMPLETION CODE=4088             *
  *                      REASON CODE=00000078 when using the     *
  *                      supplied "C" arsusec, arsuperm, or      *
  *                      arsuupdt to call a COBOL program.       *
  *                                                              *
  *                      2.When running arsload -E, loading from *
  *                      the spool, and using either the         *
  *                      "C" arsuupdt or COBOL arsuupdc but not  *
  *                      the supplied ARSUUPDX, the              *
  *                      ARSUUPDA-SSS2P/ ARSUUPDA_SSS2P is NULL. *
  ****************************************************************
  1.arsusec, arsuperm, and arsuupdt were specifying #pragma
  linkage (Asm_Func, OS_NOSTACK) for ARSUSECX and ARSUUPDX.
  This caused ARSUSECX/ARSUUPDX to be invoked without registers
  valid for an upward-growing LE stack, resulting in a U4088.
  
  2.ARSUUPDX is setting fields such as the
  ARSUUPDA-SSS2P/ ARSUUPDA_SSS2P  in the ARSUUPDA. If the supplied
  ARSUUPDX is not invoked, those fields will not be set.
  

Problem conclusion

• 1.arsusec, arsuperm, and arsuupdt are changed to specifying
  #pragma linkage (Asm_Func, OS_UPSTACK).  This will cause
  ARSUSECX/ARSUUPDX to get invoked with an upward-growing LE
  stack.
  2.Arsuupdt and arsuupdc are changed to set the fields in the
  ARSUUPDA that were being set by ARSUUPDX.
  

Temporary fix

Comments

APAR Information

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

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

  UI75784 UI75785

Modules/Macros

• ARSCSXIC ARSCSXIT ARSUPERM ARSUSEC  ARSUUPDC ARSUUPDT
  

Fix information

• Fixed component name

  CM OD Z/OS, OD/

• Fixed component ID

  5655H3900

Applicable component levels

• RA10 PSY UI75784

     UP21/06/11 P F106

• RA50 PSY UI75785

     UP21/06/11 P F106

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.