PM30612: 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 bypasss 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 AR600
  ++ APAR (AM30612).
  ++ VER (C150) FMID(HCI6600).
  ++ MACUPD (DFHEIENT) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
     /* MODULE: DFHEIENT --- TYPE: MACRO */.
  ./ CHANGE NAME=DFHEIENT,SEQFLD=738
  .*** &N1      SETA  0      DELETED BY APAR @BA30612 11220000
  &N1      SETA  0                           @BA30612 11237000
  .******************************************************
                                     ******* @BA30612 50240000
  .*     CHECK IF EXCI PROGRAM, IF SO SKIP CHECK OF
                                EIBREG       @BA30612 50280000
  .******************************************************
                                     ******* @BA30612 50320000
           AIF   (&DFHEIDB).CODECK6          @BA30612 50360000
  .* IF NOT USING RELATIVE ADDRESSING USE A NORMAL LOAD
                                             @BA30612 70948000
           AIF   (NOT &DFHEIRA).NORMLD       @BA30612 70956000
           LARL  1,DFHEILL                   @BA30612 70964000
           L     0,0(,1)                     @BA30612 70972000
           AGO   .GMOSSTG                    @BA30612 70980000
  .NORMLD  ANOP                              @BA30612 70988000
  .GMOSSTG ANOP                              @BA30612 71050000
  ./ ENDUP
  ++ MACUPD (DFHEIRET) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
     /* MODULE: DFHEIRET --- TYPE: MACRO */.
  ./ CHANGE NAME=DFHEIRET,SEQFLD=738
  .* IF NOT USING RELATIVE ADDRESSING, USE A NORMAL
                                LOAD         @BA30612 66100000
           AIF   (NOT &DFHEIRA).NORMLD       @BA30612 66200000
           LARL  1,DFHEILL                   @BA30612 66300000
           L     0,0(,1)                     @BA30612 66400000
           AGO   .ADRSTG                     @BA30612 66500000
  .NORMLD  ANOP                              @BA30612 66600000
  .ADRSTG  ANOP                              @BA30612 67500000
  ./ ENDUP
  

Comments

APAR Information

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

  PM29970

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

  UK65405

Modules/Macros

•    DFHEIENT DFHEIRET
  

Fix information

• Fixed component name

  CICS TS Z/OS V4

• Fixed component ID

  5655S9700

Applicable component levels

• R600 PSY UK65405

     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.