PH20284: CODE COVERAGE RESULTS ARE INVALID IF EJECT, SKIP, OR TITLE ARE IN THE SOURCE.

APAR status

• Closed as program error.

Error description

• Code Coverage results are invalid if EJECT or SKIP or TITLE
  commands are in the source.
  Source:
        PROCEDURE       DIVISION  .
        A-COVERAGE           SECTION.
        A00.
            MOVE     'START' TO    TEXT_FIELD .
            MOVE     'THIS LINE IS NOT OFFSET' TO TEXT_FIELD .
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
            EJECT
            MOVE     'THE PREVIOUS LINE CONTAINS EJECT' TO
  TEXT_FIELD .
            MOVE     'THIS LINE IS OFFSET BY 1' TO TEXT_FIELD .
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
            SKIP1
            MOVE     'THE PREVIOUS LINE CONTAINS SKIP1' TO
  TEXT_FIELD .
            MOVE     'THIS LINE IS OFFSET BY 2' TO TEXT_FIELD .
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
            SKIP2
            MOVE     'THE PREVIOUS LINE CONTAINS SKIP2' TO
  TEXT_FIELD .
            MOVE     'THIS LINE IS OFFSET BY 3' TO TEXT_FIELD .
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
            GOBACK.
       *    PADDING #1
       *    PADDING #2
            MOVE     'UNREACHABLE CODE' TO    TEXT_FIELD .
       *    PADDING #3
       *    PADDING #4
       *    THIS LINE IS A COMMENT AND SHOULD NOT BE COVERED
  
  ****************************************************************
  
  The program flow is very linear.  Only MOVE statements,
  comments,
   one GOBACK at the end.
  MOVE are grouped by two. between, this is what seems to be the
  problem's cause, EJECT and SKIP.
  Hence, the first group of MOVE is correct. Over the first
  EJECT, it is wrong.
  Instead of MOVE (G (=GREEN)) MOVE (G) COMMENT (no colour), we
  see MOVE (no colour) MOVE (G) COMMENGT (G)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * z/OS Debugger 14.1 users who have COBOL programs with EJECT, *
  * SKIP or TITLE and that want to do Code Coverage.             *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * Code Coverage results are invalid if                         *
  * EJECT or SKIP or TITLE commands are in                       *
  * the COBOL source.                                            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * Install this service if you do Code Coverage on COBOL        *
  * programs.                                                    *
  ****************************************************************
  

Problem conclusion

• Problem resolved.
  

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:

Modules/Macros

• EQADCCN0 EQA10LST EQA0PDBI EQASG006 EQA0SRPC EQA00EXE EQA0SCL2
  EQA0SCL1 EQAS0SBM EQAS0CUS EQA0SDBI EQA08CUS EQAEV006 EQA00CIC
  EQA00SBM EQA04CUS EQA02CUS EQA00CUS EQAYSMMN EQA0CINF EQA00DBG
  EQA00GDF EQA00DBI EQAS0DBG EQA00GLV EQAS0ABE EQA00CCV EQASPDBI
  EQA00CCX EQA10PRC EQA00CND EQAAFSPS EQA05CUS EQA0SDU  EQA03CUS
  EQALMA   EQAS0CND EQA0SRP1 EQA0SRP2 EQA00ABE
  

Fix information

• Fixed component name

  ZOS DEBUGGER

• Fixed component ID

  5724T0713

Applicable component levels