PH30265: NEW FUNCTION: SET OPTFILE AS DEFAULT WITHOUT AFFECTING SYSOPTF FILE AVAILABILITY

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• New function to allow users to set OPTFILE as default but not
  affect compiles with no SYSOPTF file available.
  Users would like to have the presence or absence of SYSOPTF
  determine whether it is used or not.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:  Users of Enterprise COBOL V6 who want a     *
  *                 flexible way to use OPTFILE and SYSOPTF for  *
  *                 compiler options or want to suppress         *
  *                 optimizer messages about inlining of code.   *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output: If OPTFILE is set as  *
  *                      a default compiler                      *
  *                      option, then compiles with no SYSOPTF   *
  *                      file will get RC=8 with an Error        *
  *                      message. Also, some users want to       *
  *                      suppress or ignore optimizer messages   *
  *                      about inlining (IGYCB7312)              *
  *                      .                                       *
  ****************************************************************
  * RECOMMENDATION: Apply the provide PTF and use new sample     *
  *                 MSGEXIT                                      *
  ****************************************************************
  The severity of message 4019 was 'E' so that if OPTFILE was
  specified and no SYSOPTF was found, the compile got a return
  code 8. Also, the sample MSGXIT routine, IGYMSGXT, did not have
  a sample suppression of optimizer inlining message IGYCB7312.
  

Problem conclusion

Temporary fix

Comments

• The severity of message 4019 was changed from 'E' to 'W' so that
  a MSGEXIT could be used to suppress the message entirely.  In
  addition, message 4019 was added to the sample MSGEXIT (Member
  IGYMSGXIT in SIGYSAMP) to show users how to customize the
  severity of message 4019.  With this customization, OPTFILE can
  be a system-wide default, but only compilations that specify a
  SYSOPTF file will be affected.  Compilations with no SYSOPTF
  file will behave exactly the same as before. In addition,
  message 7312 was added to the sample MSGXIT to suppress it.
  Here are the additions to IGYMSGXT, they can be added to any
  MSGEXIT routine:
  **********************************************************
  *  Change severity of message 4019 to suppress this message.
  *  Message 4019 says 'Compiler option "OPTFILE" was specified,
  *  but file SYSOPTF could not be opened.  No options from a
  *  "SYSOPTF" file were used.
  *  This customization would  allow users to specify OPTFILE
  *  as a default option and it would only have an affect
  *  if there is a SYSOPTF file present
  ************************************************************
         When(4019)
           Compute EXIT-USER-SEV = -1
  
  ************************************************************
  * Note: descriptions of 7300-7309 are unchanged)
  * 7312: Procedure starting at 'proc-name' (line 'num') was
  *       copied one or more times to be inlined for PERFORM
  *       statements. xxx total bytes were generated from
  *       copying that procedure.
  ***************************************************************
         When(7300) When(7301) When(7302) When(7304)
         When(7307) When(7309) When(7312)
           Compute EXIT-USER-SEV = -1    *> Suppress the messages
  

APAR Information

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

  PH29714

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

  UI71972 UI71973 UI71974

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP 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 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  IGYMSGXT IGYQCBE  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI71972

     UP20/10/10 P F010

• R621 PSY UI71973

     UP20/10/10 P F010

• R622 PSY UI71974

     UP20/10/10 P F010

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.