APAR status
Closed as program error.
Error description
IBM Developer for z Systems - IDz - v14.2.1 Using the following COBOL program, this warning message is shown whereas syntax is valid and program compiles normally: â POSITIVEâ expected after this token For example, using following COBOL program will trigger this issue: IDENTIFICATION DIVISION. PROGRAM-ID. COS-572. AUTHOR. UNKNOWN. DATA DIVISION. WORKING-STORAGE SECTION. 01 P98Y951 PIC X(08) VALUE 'P98Y951 '. PROCEDURE DIVISION. A00-STEUERUNG SECTION. EVALUATE P98Y951 WHEN (NOT '???') CONTINUE END-EVALUATE EVALUATE P98Y95 CONTINUE END-EVALUATE. GOBACK. The error is on parameter WHEN (NOT â ???â ) immediately following the first â of the SPACE parameter. "POSITIVE" is expected after this Token.
Local fix
Problem summary
The problem was that there was a syntax check error in when clase when surrounded by brackets. As a result, the program did not compile. The goal was to make the program compile since the compiler does not recognize this as an error.
Problem conclusion
The problem has been fixed.
Temporary fix
Comments
APAR Information
APAR number
PH23221
Reported component name
DEV FOR Z/OS
Reported component ID
5724T0700
Reported release
E20
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-03-12
Closed date
2020-06-11
Last modified date
2020-06-11
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/OS
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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"E20","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
27 October 2020