PM42564: Too many WITHs results in Generation Failed

APAR status

• Closed as program error.

Error description

• When an Ada function WITHs too many packages, attolpreproADA
  fails without giving any other information than 'Generation
  failed.'
  
  A workaround is:
  
  Edit lib/Scripts/TestScript.pl
  Look for function atu_prepro
  
  Change the line marked by '<-------------' in the following code
  
    if(@COMPLETE_INCLUDE_DIR_LIST) {
        my $opt = '
  -incl=\''.join('\',\'',@COMPLETE_INCLUDE_DIR_LIST ).'\'';
        $opt=~ s,([\\\/])',$1.',g;
        if(scalar(@COMPLETE_INCLUDE_DIR_LIST)<=5){
        $atu_options .=$opt;
        } else {
   open(OPT, '>$INTDIR/prepro.opt') || die
  &PerlTranslate('TestScript.pl', 'Unable to create the option
  file %1\n','%1 is the temporary file','$INTDIR/prepro.opt');
   print OPT $opt,'\n';
   close OPT;
   $atu_options .=' $INTDIR/prepro.opt';  '<-------------
  remove \@
        }
    }
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  IBM Rational Test RealTime - Component Testing for Ada -
  When an Ada function WITHs too many packages, attolpreproADA
  fails without giving any other information than "Generation
  failed.
  

Problem conclusion

• Fixed in version 8.0
  

Temporary fix

Comments

APAR Information

• 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

  TEST REALTIME

• Fixed component ID

  5724G2000

Applicable component levels

• R750 PSN

     UP