A fix is available
APAR status
Closed as new function.
Error description
The WHEN SET TO FALSE phase of the VALUE clause and the SET TO FALSE statement are both part of the 2002 ISO COBOL standard. The WHEN SET TO FALSE phrase allows specification of a FALSE condition value. This value is moved to the associated conditional variable when the SET TO FALSE statement is executed for the associated condition-name. With this feature, end user productivity will be increased significantly by avoiding explicit references to invalid values within the procedure division.
Local fix
N/A
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.2 who want to * * use the COBOL 2002 features WHEN SET TO * * FALSE and SET ... TO FALSE. * **************************************************************** * PROBLEM DESCRIPTION: New Function * **************************************************************** * RECOMMENDATION: Applied provided PTF. * **************************************************************** The COBOL 2002 Standard added FALSE to the SET statement for condition-names, and the WHEN SET TO FALSE phrase to the definition of condition names.
Problem conclusion
Temporary fix
Comments
These features are added to Enterprise COBOL by this APAR: Format 2: condition-name value >>-88--condition-name-1--+-VALUE--+----+---+-----------> | '-IS-' | '-VALUES--+-----+-' '-ARE-' .---------------------------------------. V | >----literal-1--+------------------------+-+-----------> '-+-THROUGH-+--literal-2-' '-THRU----' >-+-----------------------------------------------------+--.-> '-+------+--+-----+--+----+--FALSE--+----+--literal-3-' '-WHEN-' '-SET-' '-TO-' '-IS-' WHEN SET TO FALSE Allows specification of a FALSE condition value. This value is moved to the associated conditional variable when the SET TO FALSE statement is executed for the associated condition-name. literal-3 When a condition-name is referenced in a SET TO FALSE statement, the value of literal-3 from the FALSE phrase is placed in the associated conditional variable. Note: The true values of a conditional variable are all the values associated with its condition-names, and all other values are false values. The WHEN SET TO FALSE phrase specifies just one of possibly many false values. The purpose is to define a single value to be used by the SET TO FALSE statement. When a condition-name condition is tested, all the non-true values give a false result, not just the one false value defined by the WHEN SET TO FALSE phrase. Format 4: SET statement for condition-names .------------------. V | >>-SET----condition-name-1-+--TO--+-TRUE--+---------------> '-FALSE-' Note: If SET condition-name-1 TO FALSE is specified, there must be a corresponding WHEN SET TO FALSE phrase defined for condition-name-1.
APAR Information
APAR number
PI97160
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
620
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-04-24
Closed date
2018-05-28
Last modified date
2018-06-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCASMB IGYCCBE IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG IGYCDMAP IGYCDOPT IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8 IGYCJA$D IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2 IGYCOPI IGYCOPT IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV IGYEQCWI IGYMSGE IGYMSGK IGYMSGT IGYQCBE IGYZQDRV IGYZQENU IGYZQJPN
SC27871301 |
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R620 PSY UI56120
UP18/06/01 P F805
R621 PSY UI56121
UP18/06/01 P F805
R622 PSY UI56122
UP18/06/01 P F805
R62H PSY UI56123
UP18/06/01 P F805
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"620","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023