PK15306: HLASM R5 USING ISDEC, WE GET ABEND0C1 : CODE LIKE &ABC SETB (ISDEC(&D)) RESULT IN ABEND0C1 !

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• HLASM R5. When trying a new feature ISDEC, get abend0c1 !
  .
  Example of code :
  //JS01 EXEC ASMC
  MYSKEL CSECT
  MYSKEL RMODE 24
  MYSKEL AMODE 24
           LCLC  &FLD1
  &FLD1    SETC  ''
           EJECT
           LR    11,15
           USING MYSKEL,11
           BR  14
           LCLC  &D
           LCLB  &ABC
  &D       SETC  '+5'
  &ABC     SETB  (ISDEC(&D))
          END MYSKEL
  .
  This result in S0C1 from ASMA90:
  IEA995I SYMPTOM DUMP OUTPUT 865
  SYSTEM COMPLETION CODE=0C1 REASON CODE=00000001
  TIME=10.35.26 SEQ=35965 CPU=0000 ASID=012F
  PSW AT TIME OF ERROR 078D2000 8FE48684 ILC 6 INTC 01
  ACTIVE LOAD MODULE ADDRESS=0FE008F8 OFFSET=00047D8C
  NAME=ASMA90
  DATA AT PSW 0FE4867E - C81041A0 D07B47F0 C62895FF
  ...
  END OF SYMPTOM DUMP
  It appears to be a bad branch back from a subroutine. R14 points
  to x'D07B'. This is at CSECT ASMA2Y+612.
  .
  If I comment out the statement that uses ISDEC, the assembler
  runs RC=0.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users using the ISDEC, ISBIN, ISHEX or   *
  *                 ISSYM built-in functions within a            *
  *                 conditional Assembly instruction of SETB.    *
  *                                                              *
  *                 All users using the IS.. Built-in functions  *
  *                 within nested brackets for SETA and SETB.    *
  *                 ie. &ABC  SETB (ISDEC(123)).                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND=0C1 when using (ISDEC(123))       *
  *                      in conditional Assembly instruction.    *
  *                                                              *
  *                      Message **ASMA021E Illegal SET          *
  *                      statement - when using SETB and ISDEC   *
  *                      conditional Assembly instruction.       *
  ****************************************************************
  * RECOMMENDATION: Apply the PTF provided and only use the      *
  *                 following Built-in functions (ISDEC,         *
  *                 ISBIN, ISHEX, ISSYM) in SETA conditional     *
  *                 Assembly instructions.                       *
  ****************************************************************
  The Assembler will ABEND with an 0C1 when a nested conditional
  Assembly instruction is used for the Built-in function ISDEC.
  
  The Assembler Language reference Manual - SC26-4940-04
  incorrectly shows the following Built-in function (ISDEC, ISBIN,
  ISHEX, ISSYM) as being used within a SETB conditional Assembly
  instruction. This is incorrect and these functions should be
  used with the SETA instruction.
  

Problem conclusion

• The High Level Assembler has been modified so that:
  The Assembler correctly allows for the nesting of Built-in
  functions within a SETA statement.
  
  The documentation will be updated to reflect that the ISDEC,
  ISBIN, ISHEX and ISSYM Built-in functions are for SETA
  conditional Assembly instructions only.
  
  After the application of this PTF the following documentation
  changes apply to SC26-4940-04.
  
  Modify Chapter 9, Section on the SETB Instruction as follows:.
  The references to ISBIN, ISDEC, ISHEX and ISSYM (around pages
  365-366) should be removed from this section. They belong under
  the SETA instruction.
  Modify Chapter 9, Section on the SETA instruction to include
  the descriptions for ISBIN, ISDEC, ISHEX and ISSYM.
  

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:

  UK16004 UK16005 UK16006

Modules/Macros

• ASMAINFO ASMA1U   ASMA9Z
  

Fix information

• Fixed component name

  HLASM MVS, VM &

• Fixed component ID

  569623400

Applicable component levels

• R150 PSY UK16005

     UP06/08/02 P F608

• R350 PSY UK16004

     UP06/08/01 P 0608

• R589 PSY UK16006

     UP06/08/01 P E410

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.