PI97160: ADDING SUPPORT FOR THE "WHEN SET TO FALSE" PHRASE OF THE VALUE CLAUSE AND THE SET TO FALSE STATEMENT.

Obtain the fix for this APAR.

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 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
  

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.