IBM Support

SI61169 - RPGLE-CMPL-INCORROUT NO SOURCE INFO MIXEDCASE SRCSTMF(/QSYS.

PTF Cover Letter


PTF ( Program Temporary Fixes ) Cover letter


Order this fix

Abstract

RPGLE-CMPL-INCORROUT NO SOURCE INFO MIXEDCASE SRCSTMF(/QSYS.


Pre/Co-Requisite PTF / Fix List

REQ  LICENSED      PTF/FIX  LEVEL

TYPE PROGRAM  REL  NUMBER   MIN/MAX  OPTION
---- -------- ---  -------  -------  ------
PRE  5770SS1  710  SI58913   00/00    0000
PRE  5770SS1  710  SI58107   00/00    0000
PRE  5770SS1  710  SI57877   00/00    0000



NOTICE:
-------
Application of this PTF may disable or render ineffective programs that
use system memory addresses not generated by the IBM translator,
including programs that circumvent control technology designed to limit
interactive capacity to purchased levels.  This PTF may be a prerequisite
for future PTFs.  By applying this PTF you authorize and agree to the
foregoing.

This PTF is subject to the terms of the license agreement which
accompanied, or was contained in, the Program for which you are obtaining
the PTF.  You are not authorized to install or use the PTF except as part
of a Program for which you have a valid Proof of Entitlement.

SUBJECT TO ANY WARRANTIES WHICH CAN NOT BE EXCLUDED OR EXCEPT AS EXPLICITLY
AGREED TO IN THE APPLICABLE LICENSE AGREEMENT OR AN APPLICABLE SUPPORT
AGREEMENT, IBM MAKES NO WARRANTIES OR CONDITIONS EITHER EXPRESS OR IMPLIED,
INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OR CONDITIONS OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON INFRINGEMENT,
REGARDING THE PTF.

The applicable license agreement may have been provided to you in printed
form and/or may be viewed using the Work with Software Agreements (WRKSFWAGR)
CL command.





APAR Error Description / Circumvention

-----------------------------------------------
A data structure LEVEL1 has a date, time, or timestamp subfield
with keyword INZ(*SYS), and another data structure LEVEL2 has a
subfield defined with keywords LIKEDS(LEVEL1) INZ(*LIKEDS).

A procedure has a parameter defined with keyword LIKEDS(LEVEL2).

When the procedure is called for the first time, the timestamp
in the nested data structure subfield of the parameter is set to
the current system value while the procedure is being called.
This modifies both the parameter within the procedure and the
variable that was passed to the subprocedure as a parameter.

This does not occur for subsequent calls to the procedure.

If the procedure is a cycle main procedure, the issue occurs
the first time the procedure is called, and each time the
procedure is called after LR was set on for the previous call.

The problem also exists for character subfields defined
with INZ(*USER).

CORRECTION FOR APAR SE64989 :
-----------------------------
The ILE RPG compiler will be changed so that if a data structure
DS1 has a subfield defined with INZ(*SYS) or INZ(*USER), the
special initialization values will not be used for any data
structure defined with LIKEDS(DS1) unless that data structure
has keyword INZ(*LIKEDS).

Note that this problem also affects non-parameter data
structures. The following example illustrates this:

dcl-ds ds1 qualified template;
sub1 char(10) inz(*user);
sub2 date inz(*sys);
end-ds;
dcl-ds ds2 qualified;
subds1 likeds(ds1) inz;
end-ds;
dcl-ds ds3 qualified;
subds2 likeds(ds1) inz;
end-ds;

Data structure DS2.DS1 is correctly initialized with
default initializations, but data structure DS3.DS2.DS1
is initialized with the special initializations from
the parent data structure DS1.
DS3.DS2.DS1.sub1 is initialized with the current user
DS3.DS2.DS1.sub2 is initialized with the current date

With this PTF, DS3.DS2.DS1 will be correctly initialized
with default initializations.

CIRCUMVENTION FOR APAR SE64989 :
--------------------------------
None.


DESCRIPTION OF PROBLEM FIXED FOR APAR SE64988 :
-----------------------------------------------
When the parameter for the SRCSTMF parameter for CRTRPGMOD or
CRTBNDRPG is in the form
'/QSYS.LIB/MYLIB.LIB/MYSRCFILE.FILE/MYMBR.MBR')
and the parameter is not entirely in upper case, DSPMOD does
not show that the module was compiled from file MYLIB/MYSRCFILE
member MYMBR.

If '/QSYS.LIB' is uppercase, and the remainder of the parameter
is not entirely uppercase, the compile may fail with msgRNS9311
RC 1.

CORRECTION FOR APAR SE64988 :
-----------------------------
The ILE RPG compiler will be changed so that the source library,
file, and member will be placed in the module if the SRCSTMF
parameter is in the form
'/qsys.lib/srclib.lib/srcfile.file/srcmbr.mbr'
and it is specified in all uppercase, all lowercase, or a
mixture of upper and lower case.

CIRCUMVENTION FOR APAR SE64988 :
--------------------------------
Specify the parameter for SRCSTMF with all uppercase.


Activation Instructions


None.




Special Instructions


None.


Default Instructions

THIS PTF CAN BE APPLIED IMMEDIATE OR DELAYED.



Supersedes

PTF/FIX NO(S).  APAR TITLE LINE
--------------  ------------------------------------------------------------
   SI60688      RPGLE-RUN REMOVING ENDFOR BREAKPOINT REMOVES WRONG BREAKPOIN
   SI60688      RPGLE-RUN-INCORROUT %ELEM RETURNS 0 FOR SUBPROC INDICATOR AR
   SI60688      RPGLE-RUN-INCORROUT DBGVIEW(*LIST) SHOWS EXTRA TEXT IN STRDB
   SI60060      RPGLE-CMPL-MSGCPF3BC7 XML-INTO or XML-SAX IN CCSID 65535 SOU
   SI59809      RPGLE-CMPL-MSGRNF5505 CRTSQLRPGI RPGPPOPT **FREE WITH /COPY
   SI59809      RPGLE-CMPL-MSGRNF7544 RESET QUALIFIED MAIN ENTRY PARM SUBFIE
   SI58914      RPGLE-CMPL-MSGRNF0224 XML-INTO XML-SAX WITH LITERAL OPTIONS
   SI58914      RPGLE-CMPL-MSGMCH4227-RC12 *ZEROS PASSED TO CONST FLOAT PARM
   SI58914      RPGLE-CMPL-INCORROUT /COPY IN **FREE CRTSQLRPGI+RPGPPOPT NOT
   SI58914      RPGLE-CMPL-MSGMCH4227 CHGSRVPGM PRFDTA(*APYALL) KEYED I/O
   SI58136      RPGLE-CMPL SUPPORT FREE-FORM FROM COLUMN 1 TO END OF LINE
   SI57842      RPGLE-CMPL-MSGRNF5377 %DATE WITH NO PARMS FOLLOWED BY AND /
   SI57842      RPGLE-CMPL-MSGRNF1250 MAIN PI WITHOUT EXTPGM WITH CRTBNDRPG
   SI57842      RPGLE-CMPL-T/QRN4MAIN-MSGMCH3601 EVAL-CORR FOR UNDEFINED LIK
   SI56638      RPGLE-CMPL-MSGMCH4229 RESET OF A DATA STRUCTURE ARRAY SUBFIE
   SI56405      RPGLE-CMPL-INCORROUT PCML MISSING NAME TAG FOR UNNAMED MAIN
   SI56405      RPGLE-CMPL-MSGRNS9311-RC1 PROC WITH SAME NAME AS GLOBAL SUBF
   SI55987      RPGLE-CMPL-MSGRNF0202 %SIZE(DS) UNDEFINED FOR A FREEFORM KEY
   SI55340      RPGLE-CMPL PCML USABILITY: MIXED CASE; PCML FOR ONLY SOME PR
   SI55148      RPGLE-CMPL-MSGCPD5D02 %PADDR(PROC) WHEN PROC HAS NO PR OR PI
   SI55148      RPGLE-RUN-INCORROUT BREAKPOINT LINE FOR DCL-PROC AND END-PRO
   SI54502      RPGLE-CMPL ALIAS FOR FILES; RELAX RULES FOR I/O DATA STRUCTU
   SI54502      RPGLE-CMPL-MSGMCH0602 MSGMCH0602 SQL FUNCTION RETURN *BLANKS
   SI54103      RPGLE-CMPL-MSGRNF3320 FREE-FORM KEYWORD IN SUBPROC WITH GLOB
   SI54103      RPGLE-CMPL-MSGRNF7062 MESSAGE MSGRNF7062 IS NOT BEING FLAGGE
   SI53610      RPGLE-CMPL-MSGMCH3203 EXTPGM FOR A NON-MAIN SUBPROCEDURE
   SI53610      RPGLE-CMPL-MSGMCH4216 CONCATENATION EXPRESSION PASSED TO CON
   SI53610      RPGLE-CMPL-MSGRNF0267 CONTINUED LITERAL WITH CRTSQLRPGI RPGP
   SI52846      RPGLE-RUN-MSGMCH1202 MCH1202 FOR SUBDUR(E) WITH INVALID
   SI52846      RPGLE-CMPL-INCORROUT DTAARA(*VAR:FLD) DOES NOT CAUSE A READ
   SI52846      RPGLE-CMPL-MSGRNF0257 FOR DCL-XX AFTER A CALCULATION
   SI52307      RPGLE-CMPL-F/QTESYMS--MSGCPF955E LIKEREC WITH PAGE FIELD
   SI52307      RPGLE-CMPL-MSGRNF7030 OPTION(*NOXREF) WITH DTAARA KEYWORD
   SI52307      RPGLE-RUN-INCORROUT O SPEC RECORDNAME BLANK IN OA HANDLER PA
   SI52307      RPGLE-CMPL-MSGRNF7030 *INLR NOT DEFINED FOR A PRIMARY FILE
   SI52307      RPGLE-RUN-INCORROUT OPEN ACCESS OUTPUTBUFFERLEN > RECORD LEN
   SI52307      RPGLE-CMPL-MSGRNX0103 SUBTRACTING TWO %SUBDT GETS OVERFLOW E
   SI51640      RPGLE-CMPL-MSGRNF0203 ("/IF GROUP BEGINNING...") SQL RPGPPOP
   SI51337      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI51094      RPGLE-CMPL SUPPORT FREE-FORM H F D AND P STATEMENTS
   SI50860      RPGLE-CMPL-MSGRNF6040 EDITWORD CONTAINING DBCS CHARACTERS
   SI50533      RPGLE-CMPL-INCORROUT MISSING ERROR FOR ASTERISK PASSED AS PA
   SI50455      RPGLE-CMPL-MSGMCH6906 WITH DEBUG MEMORY MANAGER ACTIVE
   SI50221      RPGLE-CMPL-MSGRNF3530 EXTERNAL DS WITH EXTNAME(DDMF:*KEY)
   SI50221      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI49240      RPGLE-CMPL-MSGRNF0267 CRTSQLRPGI WITH RPGPPOPT(*LVL1) OR *LV
   SI49240      RSE-RPGLE CRTSQLRPGI RPGPPOPT(*LVL1) ERROR LIST OPENS WRONG
   SI48671      RPGLE-RUN-INCORROUT CCSID CONVERSIONS DURING ACTGRP EXIT
   SI48475      RSE-RPGLE-MSGRNF3907 ERROR LIST POINTS TO FIRST LINE IN EDIT
   SI47646      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI47646      RPGLE-CMPL-MSGRNF0662 %SCANRPL HEX LITERAL AS 1ST OR 2ND PAR
   SI47345      RSE-RPGLE-MSGRNF5177 WRONG LINE FOR MISSING ENDIF WITH *SRCS
   SI47291      RPGLE-CMPL-MSGMCH3601 LIKE KEYWORD TO DEFINE OBJECT FOR JAVA
   SI47113      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI46836      RSE-RPGLE-MSGRNF5177 ERROR LIST POINTS TO WRONG LINE IN EDIT
   SI46836      RPGLE-CMPL-MSGMCH3601 USING QUALIFIED NAME FOR LIKEDS KEYWOR
   SI46561      RPGLE-CMPL-MSGMCH4227 CYCLE FILE WITH HANDLER KEYWORD
   SI46561      RPGLE-CMPL-INCORROUT COMPARISON USING ALTSEQ AND OPTIMIZE(*F
   SI45903      RPGLE-CMPL ALLOW OPEN ACCESS WITHOUT LICENSE FOR 5733-OAR
   SI44389      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI43157      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI43157      RPGLE-RUN-MSGMCH4429 PASSING CONCATENATED STRING TO CONST PA
   SI43157      RPGLE-CMPL ILLEGAL PROGRAM CREATED USING CRTBNDRPG
   SI42509      RPGLE-CMPL-INCORROUT ALIAS NAME FOR EXT FIELD WITH TEXT DATA
   SI42509      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI41005      RPGLE-CMPL-MSGMCH3601 %LEN(DS.SUBF:*MAX) WITH QUALIFIED SUBF
   SI41005      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI41005      RPGLE-CMPL OPEN-ACCESS: SUPPORT COMMIT, SLN, ACTGRP-EXIT CLO
   SI40657      RPGLE-CMPL-MSGMCH4227-RC7 COMPILING A SUBPROCEDURE W/O PROTO
   SI38772      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED
   SI33776      RPGLE-CMPL-INCORROUT SEVERAL PROBLEMS FIXED

Summary Information

System..............................i
Models..............................
Release.............................V7R1M0
Licensed Program...............5770WDS
APAR Fixed..........................View details for APAR SE64989
View details for APAR SE64988
Superseded by:......................View fix details for PTF SI66801
Recompile...........................Y
Library.............................QRPGLE
MRI Feature ........................NONE
Cum Level...........................C6320710


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, 2018 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.1.0"},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG15V","label":"PTF Cover Letters - OS\/400 General"},"Component":"","ARM Category":[],"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"V7R1M0","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
06 July 2016