PK27923: CICS PRE-COMPILER IGNORES LOWERCASE 'D' DEBUGGING LINES IN COBOL PROGRAMS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When compiling a cobol program with the compile-time switch set
  to activate debugging lines as follows:
        d    DISPLAY '*cantp* in debug mode'
        D    DISPLAY '*cantp* IN DEBUG MODE'
             IF CS-GEKPSTAT = 'XXXXXXXX'
        d       or CS-GEKPSTAT = 'GEKPSTAT'
                DISPLAY '*cantp* in conditional debug mode'
             END-IF
             IF CS-GEKPSTAT = 'XXXXXXXX'
        D       or CS-GEKPSTAT = 'GEKPSTAT'
                DISPLAY '*cantp* IN CONDITIONAL DEBUG MODE'
             END-IF
  the compiler output ignores and removes the lowercase 'd' as
  follows:
        d    DISPLAY '*cantp* in debug mode'
        D    DISPLAY '*cantp* IN DEBUG MODE'
             IF CS-GEKPSTAT = 'XXXXXXXX'
                or CS-GEKPSTAT = 'GEKPSTAT'
                DISPLAY '*cantp* in conditional debug mode'
             END-IF
             IF CS-GEKPSTAT = 'XXXXXXXX'
        D       or CS-GEKPSTAT = 'GEKPSTAT'
                DISPLAY '*cantp* IN CONDITIONAL DEBUG MODE'
             END-IF
  If an uppercase 'D' is used, the compile works fine.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: A 'd' in col 7 (indicating a debug      *
  *                      line) is removed by the translator.     *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The Cobol for z/OS manuals state that a 'd' or a 'D' in column 7
  (the Indicator column) of a Cobol application will cause that
  line to be a debugging line. This is true for EXEC CICS
  statements. However, for a line of native Cobol, only uppercase
  'D' is recognised. Code a lowercase 'd' and the translator will
  strip out the 'd' and the line of native Cobol code will be
  treated as of it were a 'non-debug' line of code by the
  compiler.  This problem is inapplicable to the Integrated
  translator.
  

Problem conclusion

• DFHECM14 has been modified and will now preserve a 'd' coded
  in the Indicator area (col 7) of a line of native Cobol within
  a Cobol application.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  UK17646

Modules/Macros

•    DFHECM14 DFHEDM14 DFHEIM14 DFHEPM14
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK17646

     UP06/09/01 P F608

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.