PM29970: ASMA254I MESSAGE AFTER ASSEMBLY OF AN EXCI ASSEMBLER PROGRAM

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• You are trying to write an EXCI assembler program under CICS TS
  v3.2 and you want to use relative addressing. When you specify
  XOPT(EXCI) and try to assemble the program it gets a message of:
  
  ** ASMA254I *** MNOTE ***   430+     8,CODEREG = EIBREG INVALID.
  
  But when you specify XOPT(CICS) the ASMA254I messages does not
  appear. The message seems to indicate that CODEREG is equal to
  EIBREG and is invalid. CODEREG is null because code register 0
  is specified for relative addressing. At the same time, EIBREG
  is also null because the program is a batch program and a check
  to see if CODEREG and EIBREG are not the same. When this fails
  the resulting return code is 8.
  
  Additional Symptom(s) Search Keyword(s):
  xopt exci asma254i
  KIXREVEPH
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Specifying CODEREG=0 as a parameter to  *
  *                      the DFHEIENT macro causes the assembly  *
  *                      to fail with return code 8.             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  Using the DFHEIENT macro when writing a CICS EXCI application
  and specifying CODEREG=0 as a parameter causes the assembly to
  fail with return code 8 and the MNOTE:
  "8,CODEREG = EIBREG INVALID.
      DEFAULT ASSUMED FOR CODEREG AND EIBREG"
  to be issued.
  Specifying CODEREG=0 should result in DFHEIENT producing code
  which uses relative addressing.
  

Problem conclusion

• Macro DFHEIENT has been changed to correctly produce relative
  addressing code when CODEREG=0 is specified and to bypass the
  check for an EIB register when the application using DFHEIENT
  is an EXCI application.  A change has also been made to the
  DFHEIRET macro to correctly generate relative addressing
  code when the DFHEIENT macro has had CODEREG=0 specified as a
  parameter.
  

Temporary fix

• CICS AR500
  ++ APAR (AM29970).
  ++ VER (C150) FMID(HCI6500).
  ++ MACUPD (DFHEIENT) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
     /* MODULE: DFHEIENT --- TYPE: MACRO */.
  ./ CHANGE NAME=DFHEIENT,SEQFLD=738
           GBLB  &DFHEIRA        USES RELATIVE
                           ADDRESSING        @BA29970 01150000
           AGO   .SETN1                      @BA29970 11205000
  &DFHEIRA SETB  1                           @BA29970 11213000
  .SETN1   ANOP                              @BA29970 11216000
  .******************************************************
                                     ******  @BA29970 50240000
  .*   CHECK IF EXCI PROGRAM, IF SO SKIP CHECK OF
                              EIBREG         @BA29970 50280000
  .******************************************************
                                     ******  @BA29970 50320000
           AIF   (&DFHEIDB).CODECK6          @BA29970 50360000
  .* IF NOT USING RELATIVE ADDRESSING, USE A NORMAL
                                LOAD         @BA29970 70860000
           AIF   (NOT &DFHEIRA).NORMLD       @BA29970 70880000
           LARL  1,DFHEILL                   @BA29970 70900000
           L     0,0(,1)                     @BA29970 70920000
           AGO   .GMOSSTG                    @BA29970 70940000
  .NORMLD  ANOP                              @BA29970 70960000
  .GMOSSTG ANOP                              @BA29970 71050000
  ./ ENDUP
  ++ MACUPD (DFHEIRET) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
     /* MODULE: DFHEIRET --- TYPE: MACRO */.
  ./ CHANGE NAME=DFHEIRET,SEQFLD=738
           GBLB  &DFHEIRA        USES RELATIVE
                           ADDRESSING        @BA29970 39800000
  .* IF NOT USING RELATIVE ADDRESSING, USE A NORMAL
                                LOAD         @BA29970 66100000
           AIF   (NOT &DFHEIRA).NORMLD       @BA29970 66200000
           LARL  1,DFHEILL                   @BA29970 66300000
           L     0,0(,1)                     @BA29970 66400000
           AGO   .ADRSTG                     @BA29970 66500000
  .NORMLD  ANOP                              @BA29970 66600000
  .ADRSTG  ANOP                              @BA29970 67500000
  ./ ENDUP
  

Comments

APAR Information

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

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

  PM30612 UK65426

Modules/Macros

•    DFHEIENT DFHEIRET
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UK65426

     UP11/03/08 P F103

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.