IBM Support

PH03401: IBM DEVELOPER FOR Z SYSTEMS (IDZ) COBOL EDITOR DOES NOT HANDLE REPLACE IN DEBUGGING MODE STATEMENTS

Subscribe to this APAR

By subscribing, you receive periodic emails alerting you to the status of the APAR, along with a link to the fix after it becomes available. You can track this item individually or track all items by product.

Notify me when this APAR changes.

Notify me when an APAR for this component changes.

 

APAR status

  • Closed as program error.

Error description

  • IBM Developer for z Systems - IDz - v14
When a COBOL program has REPLACE debbugging code the code that
is suppose to be replaced is not handled properly by the COBOL
editor.   After running a remote syntax check the code has lots
of syntax errors.

For example,  if I have the replace statements below:
       SOURCE-COMPUTER. IBM-370 WITH DEBUGGING MODE.
       DATA DIVISION.
000239D REPLACE
      D  ==:<TR>:== BY
      D  ==IF BRANCHFLAG > 1 DISPLAY IN-TEXT '.'==
      D  ==:</TR>:== BY
      D  ==MOVE 1 TO BRANCHFLAG END-IF==
      D  ==:<TR/>:== BY
      D  ==IF BRANCHFLAG <  2 MOVE 2 TO BRANCHFLAG END-IF==
000250D .

And, in the Procedure division I have:
000050D    :<TR>: 'INITIALISATIONS'   :</TR>:
           DISPLAY "Start 1"
           Initialize BRANCHFLAG
                      Program-flags
                      OUT-TEXT.
000060D    :<TR/>:


The lines that are suppose to be REPLACED are all flagged with
ERROR TOKEN warnings.  But, they compile successfully, and look
like this in the compiled listing:

000077D    IF BRANCHFLAG > 1 DISPLAY IN-TEXT '.'
000078D    MOVE 1 TO BRANCHFLAG END-IF
000079                    DISPLAY "Start 1"
000080                    Initialize BRANCHFLAG
000081                               Program-flags
000082                               OUT-TEXT.
000083D    IF BRANCHFLAG < 2 MOVE 2 TO BRANCHFLAG END-I

Local fix

  • Avoid using REPLACE Debug statements

Problem summary

  • Debug lines were not being checked inside of Replace statements.

Problem conclusion

  • Replace statements on Debug lines work when Debugging mode
is on.

Temporary fix

  • 



Comments


    

  • 



APAR Information




    

  • APAR number
    PH03401
    • 

  • Reported component name
    DEV FOR Z SYS
    • 

  • Reported component ID
    5724T0700
    • 

  • Reported release
    E00
    • 

  • Status
    CLOSED  PER
    • 

  • PE
    NoPE
    • 

  • HIPER
    NoHIPER
    • 

  • Special Attention
    NoSpecatt / Xsystem
    • 

  • Submitted date
    2018-09-28
    • 

  • Closed date
    2019-01-24
    • 

  • Last modified date
    2019-01-24
    • 





    

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

    • 

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

    • 



Fix information


    

  • Fixed component name
    DEV FOR Z SYS
    • 

  • Fixed component ID
    5724T0700
    • 



Applicable component levels


    








      
              
                            

              

              [{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSJK49","label":"IBM Developer for z Systems"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"E00","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
              

                          

          
 
        

      

    

      

        

          

            
Document Information


            

            


                        

            Modified date:
            

            27 October 2020
            

            
                      

        


        

        


      

    

  



    

  

  
    
            

          
Page Feedback