PK36754: THERE IS AN INCORRECT TITLE LINE IN DFHTRAP.A

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• TRAP TITLE '&CICS390 - GLOBAL TRAP EXIT PROGRAM' @L3C 00300000
  
  The ' & ' causes assembly to end with RC 8 and error message
  ASMA003E .
  Removing the ' & ' or replaceing it by a 'valid' character like
  a ' C '
  corrects the problem.
  If it looks like:
  TRAP TITLE 'CCICS390 - GLOBAL TRAP EXIT PROGRAM' @L3C 00300000
  CICS/TS mainenance on it.
  There is no problem with the CICS230 provide DFHTRAP.A .
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: A return code 8 is issued with message  *
  *                      ASMA003E when assembling DFHTRAP.       *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When assembling an unaltered DFHTRAP, the following message
  appears:
  '** ASMA003E Undeclared variable symbol'.
  This is due to an ampersand in the &CICS390 symbol on the
  title line.
  In addition, the following message:
  '** ASMA140W END record missing'
  appears because there is no END statement.
  
  Keywords: RC04 RC08 msgASMA003E msgASMA140W TRAP
  

Problem conclusion

• DFHTRAP has been altered so that the title line does not
  contain an ampersand. Also an END statement for the module
  has been added.
  

Temporary fix

• CICS ARB0P
  // JOB PK36754
  // EXEC MSHP,SIZE=600K
   CORRECT 5648-05-400 : PK36754
     /* ARB0P     NO APAR PREREQS */
     /* MODULE: DFHTRAP --- TYPE: SOURCE */
   AFFECTS MACRO = DFHTRAP  SUBLIB = A
   REPLACE :003000       /* TRAP     TITLE '&CICS390 - GLOB*/
  TRAP     TITLE 'CICS - GLOBAL TRAP EXIT PROGRAM'
                                             @BA36754 00300000
  /$
   REPLACE :992000       /*          LTORG ,               */
           LTORG                             @BA36754 99200000
           END   DFHTRANA                    @BA36754 99201000
  /$
  /*
  /&
  

Comments

APAR Information

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

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

  UK22638

Modules/Macros

•    DFHTRAP
  

Fix information

• Fixed component name

  CICSTS FOR VSE

• Fixed component ID

  564805400

Applicable component levels

• RB0P PSY UK22638

     UP07/03/05 P E411

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.