PH48673: The >>DATA directive should only be used in WORKING-STORAGE, but is silently ignored in LINKAGE & LOCAL-STORAGE sections

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the >>DATA directive for LP(64) programs is specified in
  the LINKAGE or LOCAL-STORAGE sections of the DATA DIVISION, the
  directive is ignored and no error message is produced.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.4                *
  *                 compiling programs that specify the          *
  *                 DATA directive in a part of the              *
  *                 DATA DIVISION that is not the                *
  *                 WORKING-STORAGE section.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: Missing compiler error message.         *
  *                                                              *
  *                      The DATA directive is only supported    *
  *                      in the WORKING-STORAGE SECTION of the   *
  *                      DATA DIVISION. When the DATA            *
  *                      directive is specified in an            *
  *                      unsupported section of the DATA         *
  *                      DIVISION, the directive was             *
  *                      ignored and no error message was        *
  *                      produced.                               *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM supplied PTF                   *
  ****************************************************************
  The compiler code that was parsing the DATA directive was not
  properly checking that a DATA directive was only specified in
  the WORKING-STORAGE SECTION of the DATA DIVISION. If it was
  specified in the LINKAGE SECTION or the LOCAL-STORAGE SECTION of
  the DATA DIVISION, the directive was ignored without emitting
  any error indication to the compiler user.
  

Problem conclusion

• The compiler has been updated so that it properly checks that a
  DATA directive only appears in the WORKING-STORAGE SECTION of
  the DATA DIVISION. If a DATA directive is found anywhere else
  in the users' source program, an error message is produced and
  the directive is ignored.
  

Temporary fix

Comments

APAR Information

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

  PH47504

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

Modules/Macros

• IGY8RWTU IGYADXIT IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV
  IGYCDGEN IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3
  IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE
  IGYCINIT IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5
  IGYCJA$8 IGYCJA$D IGYCJA$R IGYCJBLD IGYCJBLS IGYCJDM1 IGYCJDM2
  IGYCJDM3 IGYCJDM4 IGYCJDM5 IGYCJDM6 IGYCJDMB IGYCJDMR IGYCJGEN
  IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8
  IGYCMALL IGYCOPI  IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC
  IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2
  IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF
  IGYDRV   IGYEQCWI IGYISMKD IGYMSGE  IGYMSGK  IGYMSGT  IGYMSGXT
  IGYQC    IGYQCB   IGYQCBE  IGYQCBG  IGYQSPLT IGYWACPT IGYWALOC
  IGYWAPLY IGYWC    IGYWCL   IGYWCLG  IGYWDDEF IGYWDOPT IGYWIVP1
  IGYWIVP2 IGYWRECV IGYWRWD  IGYWSMPE IGYWUOPT IGYWZFS  IGYZQEN6
  IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UP

     A

• R641 PSY UP

     A

• R642 PSY UI82932

     UP22/10/28 P F210

• R64H PSY UP

     A

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.