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