× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



One for the archives in case anyone else comes across something similar (at
V5R1).. and in case the Toronto people on the list are interested (I
couldn't find this reported in any APARs).... 

We have had a problem with a program that was failing to compile with the
following error message in the compile listing:-

-----

Compilation stopped. Internal failure occurred. Error code is  1.

-----

And the following messages in the job log :

-----

RNS0203    Escape                  30    02/09/03   08:17:01   QRN4MAIN
QRPGLE      *STMT    QRN4MAIN     QRPGLE       *STMT 
                                     From module . . . . . . . . :
GRPFSMSC                                                      
                                     From procedure  . . . . . . :
sndmemmsg                                                     
                                     Statement . . . . . . . . . :   4

                                     To module . . . . . . . . . :
GRPFGSTR                                                      
                                     To procedure  . . . . . . . :
genxlatestr                                                   
                                     Statement . . . . . . . . . :   14

                                     Message . . . . :      æ   5
%   E                                                  

CPF93B6    Information             10    02/09/03   08:17:05   QPDSERR
QSYS        083C     QPDLOGER     QSYS         008A  
                                     Message . . . . :   Problem log
updated.                                                      
                                     Cause . . . . . :   A problem was
detected on the system, however no problem                  
                                       log entry was created.  This is
because a problem log entry already exists                  
                                       that describes this problem.
Existing problem log entry ID 0324154723 was                  
                                       updated to show this problem occurred
again.                                                

 RNS9311    Completion              50    02/09/03   08:17:12   QRN4CPP
QDEVTOOLS   *STMT    QCMD         QSYS         01A1
                                      From module . . . . . . . . :
GRP4CPP                                                     
                                      From procedure  . . . . . . :
cleanup                                                     
                                      Statement . . . . . . . . . :   11

                                      Message . . . . :   Compilation
stopped. Internal failure occurred. Error code              
                                        is  1.

                                      Cause . . . . . :   The possible error
codes are: 1  - Failure occurred in the              
                                        compiler front end. 2  - Failure
occurred while  exiting the command. 3  -                
                                        Failure occurred in the back end. 4
- Failure occurred in the command. 5  -              
                                        Memory allocation error occurred in
the command. 12 - Memory allocation                   
                                        error occurred in the front end. 13
- Read error occurred in the compiler                 
                                        front end. 14 - Write error occurred
in the compiler front end. Recovery  .   

----- 

This was traced to being caused by the developer using a constant containing
an empty string on an XLATE statement. The following code can be used to
recreate the problem in the compiler.  

D Star            C                   '*'                                   D 
Blank           C                   CONST('')                             
D Field           S             10A   INZ('STAR*BLANK')                     
C     Star:Blank    XLATE     Field         Field                           C   
                EVAL      *INLR = *ON                                   
C                   RETURN                

However, the following code generates a severity 30 error :


D Star            C                   '*'                                   D 
Field           S             10A   INZ('STAR*BLANK')                     

C     Star:''       XLATE     Field         Field                           C   
                EVAL      *INLR = *ON                                   
C                   RETURN                

Error generated: 
*RNF7564 30      1 The null literal is not allowed with this operation.

I guess that the compiler ought to be trapping the use of an null constant
string and returning a similar error rather than falling over.. 

Regards,
Stu                                  


If you are not the intended recipient, please notify the sender by return email 
and then delete the message from your computer. The Skandia UK Group reserves 
the right to monitor e-mail communications through its networks.

No contract may be concluded on behalf of the Skandia UK Group by email.

Skandia Life Assurance (Holdings) Limited Skandia Life Assurance Company 
Limited Skandia MultiFUNDS Limited, Skandia Investment Management Limited.

Registered Nos: 1606702, 1363932, 1680071, 4227837, England
Registered Office: Skandia House, Portland Terrace, Southampton SO14
7EJ, United Kingdom

Royal Skandia Life Assurance Limited Registered No : 24916 Isle of Man
Registered Office: Skandia House, King Edward Road, Onchan, Isle of Man IM99 
1NU, British Isles

Skandia Life Assurance Company Limited, Skandia MultiFUNDS Limited, Skandia 
Investment Management Limited and Royal Skandia Life Assurance Limited are 
authorised and regulated by the Financial Services Authority for UK
investment business.

Internet: www.skandia.co.uk


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.