IBM Support

SE66801 - RPGLE-CMPL-INCORROUT **FREE SQLRPGLE COMPILE-TIME DATA TRUNCATED

Subscribe to this APAR

By subscribing, you receive periodic emails alerting you to the status of the APAR, along with a link to the fix after it becomes available. You can track this item individually or track all items by product.

Notify me when this APAR changes.

Notify me when an APAR for this component changes.

 APAR (Authorized Program Analysis Report)

Abstract

RPGLE-CMPL-INCORROUT **FREE SQLRPGLE COMPILE-TIME DATA TRUNCATED

Error Description

When a fully-free ILE RPG source member with embedded SQL has  
compile-time data, the compile-time data records may be        
truncated if RPGPPOPT(*LVL1) or RPGPPOPT(*LVL2) is specified    
for the CRTSQLRPGI command.                                    

Problem Summary

****************************************************************
* USERS AFFECTED: All ILE RPG programmers.                     *
****************************************************************
* PROBLEM DESCRIPTION: When a fully-free ILE RPG source member *
*                      with embedded SQL has compile-time      *
*                      data, the compile-time data records may *
*                      be truncated if RPGPPOPT(*LVL1) or      *
*                      RPGPPOPT(*LVL2) is specified for the    *
*                      CRTSQLRPGI command.                     *
****************************************************************
* RECOMMENDATION:                                              *
****************************************************************
When a fully-free ILE RPG source member with embedded SQL has  
compile-time data, the compile-time data records may be        
truncated if RPGPPOPT(*LVL1) or RPGPPOPT(*LVL2) is specified    
for the CRTSQLRPGI command.                                    

Problem Conclusion

The preprocessor feature of the ILE RPG compiler will be changed
so that compile time data is copied correctly to the temporary  
output file QTEMP/QSQLPRE.                                      

Temporary Fix

Comments

Circumvention


Place a non-blank character on the first ** line so that it is  

positioned at or after the position of the longest compile-time
data.                                                          
                                                               
For example, change this                                        
                                                               
**free                                                          
dcl-s arr char(20) dim(1) ctdata;                              
dcl-s arr2 char(30) dim(1) ctdata;                              
return;                                                        
**ctdata arr                                                    
abcdefghijklmnopqrst                                            
**ctdata arr2                                                  
123456789012345678901234567890                                  
                                                               
To this                                                        
                                                               
**free                                                          
dcl-s arr char(20) dim(1) ctdata;                              
dcl-s arr2 char(30) dim(1) ctdata;                              
return;                                                        
**ctdata arr .................x                                
abcdefghijklmnopqrst                                            
**ctdata arr2                                                  
123456789012345678901234567890                                  

PTFs Available

R710 SI64482 PTF Cover Letter   7192
 R720 SI64483 PTF Cover Letter   7290
 R730 SI64484 PTF Cover Letter   7283

Affected Modules

         
         

Affected Publications

Summary Information

Status............................................ CLOSED PER
HIPER........................................... No
Component.................................. 5770WDS30
Failing Module.......................... NONE
Reported Release................... R710
Duplicate Of..............................




System i Support

IBM disclaims all warranties, whether express or implied, including, but not limited to, the implied warranties of merchantability and fitness for a particular purpose. By furnishing this document, IBM grants no licenses to any related patents or copyrights. Copyright © 1996,1997,1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 IBM Corporation. Any trademarks and product or brand names referenced in this document are the property of their respective owners. Consult the Terms of use link for trademark information

[{"Type":"MASTER","Line of Business":{"code":"LOB57","label":"Power"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SWG60","label":"IBM i"},"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"7.2.0"},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG15Q","label":"APARs - OS\/400 General"},"Component":"","ARM Category":[],"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"V7R1M0;V7R2M0;V7R3M0","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
28 October 2017

Page Feedback