PM08727: CMPL PRESENCE OF FIELD WITH PIC XBXBXB ETC. FOR 37 BYTES CAUSES COMPILER ERRORS IN PROCEDURE DIVISION CODE.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• This is a very specific example of the failing code.
  A program contains these definitions in WORKING-STORAGE:
   01  XX-EXPAND.
       05 XX-EXP PIC XBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBX.
   01  WK-AREA   PIC X(16).
  and this instruction in the PROCEDURE DIVISION:
  42     MOVE "...4...."  TO    WK-AREA.
  which is    7000F00007
              F00140000F in hex and X'1F4' is CCSID 500.
  43 NEXT-PARA.
  The following errors occur in the PROCEDURE DIVISION:
  42  IGYPS0001-W  A blank was missing before character "."
                   in column 19.  A blank was assumed.
  42  IGYPS2106-S  "." was found in the "MOVE" statement.  It was
                   not allowed in this context.  The statement
                   was discarded.
  42  IGYPS0027-S  Non-COBOL character(s) were found starting with
                   "." in column 23.  The characters were
                   discarded.
  43  IGYPS0007-E  An alphanumeric literal was not properly
                   continued.  The end of the literal was assumed
                   on the last source line.
  43  IGYPS0001-W  A blank was missing before character "N" in
                   column 8.  A blank was assumed.
  43  IGYPS2008-E  A period was required before procedure-name
                   "NEXT-PARA".  A  period was assumed before
                   "NEXT-PARA".
  In the messages, the . in "." is null or X'00'.
  *
  NOTE:  Also see APAR PM72648, which solves a similar problem.
  *
  

Local fix

• Split the edit word into smaller parts.
  If the edit word is shortened to 34 or fewer bytes
  the problem does not occur.
  *
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V4 using the SQL   *
  *                 compiler option on programs that have a      *
  *                 picture string that is more than 30          *
  *                 characters long for a numeric edited data    *
  *                 item.                                        *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When compiling a program with the SQL   *
  *                      option that has EXEC SQL statements     *
  *                      and a data item that is declared with   *
  *                      more than 30 characters in the picture  *
  *                      clause without any repetition factor    *
  *                      like the following:                     *
  *                      01 DN                                   *
  *                         PIC XBXBXBXBXBXBXBXBXBXBXBXBXBXBXBX  *
  *                      the compiler incorrectly issues the     *
  *                      following messages:                     *
  *                      IGYPS0001-W   A blank was missing       *
  *                      before character """ in column 18.      *
  *                      A blank was assumed.                    *
  *                      IGYPS2106-S   """ was found in the      *
  *                      "MOVE" statement.  It was not allowed   *
  *                      in this context.  The statement was     *
  *                      discarded.                              *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  Some storage corruption occurred at compile time when compiling
  a program with the SQL option that has an EXEC SQL statement
  and a data item declared with a PICTURE clause that has more tha
  30 characters in the picture string without repetition factor.
  

Problem conclusion

• The compiler was modified to avoid the storage corruption and
  no longer incorrectly issues the error messages.
  

Temporary fix

Comments

APAR Information

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

  PM08400

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

  UK54825 UK54826

Modules/Macros

•    IGYTSQL1 IGYTSQL2 SQLMACRO
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655S7100

Applicable component levels

• R400 PSY UK54825

     UP10/03/04 P F003

• R420 PSY UK54826

     UP10/03/04 P F003

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.