PTF Cover Letter
PTF ( Program Temporary Fixes ) Cover letter
RPGLE-CMPL-F/QRN4MAIN-MSGMCH3601 DS WITH EXTNAME('GDDM')
Pre/Co-Requisite PTF / Fix List
REQ LICENSED PTF/FIX LEVEL
TYPE PROGRAM RELEASE NUMBER MIN/MAX OPTION
---- -------- --------- ------- ------- ------
PRE 5770SS1 V7R3M0 SI67187 00/00 0000
PRE 5770WDS V7R3M0 SI66739 NONE 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
-----------------------------------------------
When a data structure is defined with EXTNAME('GDDM'), the
compile fails with msgMCH3601 in 'parse_external_object_name'.
The same problem may occur if the name 'GDDM' is used as an
external name in other situations, such as the DTAARA keyword
for a data definition, or the EXTFILE or EXTDESC keyword for a
file.
CORRECTION FOR APAR SE70125 :
-----------------------------
The ILE RPG compiler will be changed so that 'GDDM' can be used
as an external name.
CIRCUMVENTION FOR APAR SE70125 :
--------------------------------
Change the external name to '*LIBL/GDDM'.
DESCRIPTION OF PROBLEM FIXED FOR APAR SE70272 :
-----------------------------------------------
An RPG program or module fails to compile with msgCPF955D
indicating that there is overflow in the debug data. In
earlier releases prior to release 7.2, the program compiled
successfully, although the amount of debug data in the program
was near the limit in the previous release.
CORRECTION FOR APAR SE70272 :
-----------------------------
The ILE RPG compiler will be changed to reduce the amount
of debug data when none of the source files used in the
compilation contains **FREE.
CIRCUMVENTION FOR APAR SE70272 :
--------------------------------
If none of the source files in the compilation have **FREE,
adding the following environment variable at compile time may
allow the program to compile.
==> ADDENVVAR QIBM_RPG_FULL_FREE_DEBUG VALUE('N')
DESCRIPTION OF PROBLEM FIXED FOR APAR SE70386 :
-----------------------------------------------
When PCML is generated for an RPG program or module and one of
the parameters is a timestamp, the generated PCML is not
correct if the timestamp does not have the default of 6
fractional digits.
CORRECTION FOR APAR SE70386 :
-----------------------------
The ILE RPG compiler will be changed so that the PCML generated
for a timestamp will have the "length" attribute if the
timestamp does not have the default length of 26.
CIRCUMVENTION FOR APAR SE70386 :
--------------------------------
If the PCML is generated into the module, there is no
circumvention.
If the PCML is generated into a stream file, edit the stream
file and add the "length" attribute to the timestamp.
For example, if the cross reference shows Z(23) for the
timestamp, change the PCML for the parameter from
<data name="TS" type="timestamp" usage="input" />
to
<data name="TS" type="timestamp" usage="input" length="23"/>
DESCRIPTION OF PROBLEM FIXED FOR APAR SE70460 :
-----------------------------------------------
When a procedure with an ON-EXIT section has a call within a
MONITOR group, and the program is cancelled during or after
the call, the ON-EXIT section may not run.
For example, if the job running the following program is ended
with ENDJOB *IMMED while it is running the sleep() call, the
ON-EXIT section will not run. The QPRINT file will not be
produced.
ctl-opt dftactgrp(*no);
dcl-pr sleep uns(10) extproc(*dclcase);
secs uns(10) value;
end-pr;
proc();
return;
dcl-proc proc;
dcl-f qprint printer(80) usropn;
dcl-ds prtds len(80) end-ds;
monitor;
sleep(999);
on-error *all;
endmon;
on-exit;
prtds = 'IN ON-EXIT';
write qprint prtds;
end-proc;
CORRECTION FOR APAR SE70460 :
-----------------------------
The ILE RPG compiler will be changed so that a call operation
within a NONITOR group does not prevent the ON-EXIT section
from runnning.
CIRCUMVENTION FOR APAR SE70460 :
--------------------------------
Move the MONITOR group to another subprocedure that does not
have an ON-EXIT section.
For example:
ctl-opt dftactgrp(*no);
dcl-pr sleep uns(10) extproc(*dclcase);
secs uns(10) value;
end-pr;
proc();
return;
dcl-proc proc;
dcl-f qprint printer(80) usropn;
dcl-ds prtds len(80) end-ds;
procSub(); // Replace MONITOR group with call
on-exit;
prtds = 'IN ON-EXIT';
write qprint prtds;
end-proc;
dcl-proc procSub; // Move MONITOR group here
monitor;
sleep(999);
on-error *all;
endmon;
end-proc;
Activation Instructions
None.
Special Instructions
None.
Default Instructions
THIS PTF CAN BE APPLIED IMMEDIATE OR DELAYED.
Supersedes
PTF/FIX NO(S). APAR TITLE LINE
-------------- ------------------------------------------------------------
SI68420 RPGLE-CMPL-MSGMCH4297 MSGMCH4297-RC02 DUPLICATE EXPORTED
SI68420 RPGLE-CMPL-MSGMCH4227 TEMPLATE DS IN PROCEDURE WITH ON-EXIT
SI68235 RPGLE-CMPL-MSGMCH4227 MONITOR IN ON-EXIT SECTION
SI68235 RPGLE-CMPL-INCORROUT XML-SAX(E) MONITORED ERROR IN HANDLER P
SI68235 RPGLE-CMPL-MSGMCH4227 FILE WITH HANDLER KEYWORD AND O SPECS
SI67717 RPGLE-CMPL-INCORROUT NESTED DCL-DS ARRAY CHANGES INITIALIZAT
SI67717 RPGLE-CMPL-INCORROUT %PARMS WITH LIKEFILE PARMS AND OPDESC
SI67717 RPGLE-CMPL-INCORROUT CONCATENATION WITH HUGE VARYING VALUE
SI67717 RPGLE MSGMCH1210-OVERFLOW ERROR WITH %DIFF IN A DIVISION
SI67185 RPGLE-CMPL ENHANCEMENT TO SUPPORT THE DATA-INTO OPERATION CO
SI66799 RPGLE-CMPL-MSGMCH0601 %PROC CAN CAUSE THE COMPILER TO FAIL
SI66799 RPGLE-CMPL-INCORROUT NO AF JOURNAL ENTRY FOR FAILED COMPILE
SI66799 RPGLE-CMPL-INCORROUT PCML MISSING CCSID FOR CHAR PARAMETERS
SI66799 RPGLE-RUN-MSGRNX0453 IMPLICIT CCSID CONVERSION FOR CONCATENA
SI66150 RPGLE-CMPL-MSGMCH4227 MISSING DIAG FOR TEMPLATE WITH EXTFILE
SI66150 RPGLE-CMPL-INCORROUT MSGRNF0369 FOR %PARMNUM WHEN PARM IS NO
SI66150 RPGLE-CMPL-MSGRNF0202 MSGRNF0202 %CHAR REQUIRES *JOBRUN
SI66150 RPGLE-CMPL-MSGMCH3203 THIRD PARM OF %TIMESTAMP MUST BE CONST
SI66150 RPGLE-CMPL SEVERAL ENHANCEMENTS FOR ILE RPG
SI65575 RPGLE-CMPL-INCORROUT %CHAR WITH MORE THAN 30 DECIMAL PLACES
SI65575 RPGLE-CMPL-INCORROUT **FREE GENERATED I/O SPECS ARE INCOMPLE
SI65341 RPGLE-CMPL-MSGRNF0099 CC-UTIL CLEAR GRAPHIC FIELD CCSID(6553
SI65341 RPGLE-CMPL-LOOP *FREE WITH UNEXPECTED CODE PAST COLUMN 80
SI64925 RPGLE-CMPL-INCORROUT ON-EXIT NOT RUN WHEN PROCEDURE HAS
SI64484 RPGLE-CMPL-INCORROUT **FREE SQLRPGLE COMPILE-TIME DATA TRUNC
SI64484 RPGLE-CMPL-RC12-MSGMCH4227 ASSIGN ('0' OR LOGICAL EXPRESSION
SI64484 RPGLE-CMPL-MSGRNF0726 CCSID(*JOBRUNMIX) WTIH ALTSEQ
SI64484 RPGLE-CMPL-MSGMCH3601-T/CHECKMAINEXTPGMSAME EXTPGM BAD PARM
SI64484 RPGLE-CMPL-INCORROUT INPUT FOR FILE WITH PREFIX('DS.') ALIAS
SI63822 RPGLE-CMPL-MSGMCH42B0-RCX'010E' ON-EXIT WITH DFTACTGRP(*YES)
SI63822 RPGLE-CMPL-INCORROUT CVTOPT IN H-SPEC IGNORED WITH OUTPUT(*N
SI63822 RPGLE-CMPL NESTED DCL-DS, %MAX/%MIN, ALIGN(*FULL) ENHANCEMEN
SI62957 RPGLE-CMPL-INCORROUT OA HANDLER PROGRAM MISSING FROM DSPPGMR
SI62957 RPGLE-CMPL-INCORROUT **FREE CTDATA HAS X'00' IN TRAILING BLA
SI62957 RPGLE-CMPL-MSGRNF0293 /COPY NOT FOUND IF /QSYS.LIB IN RPGINC
SI62957 RPGLE-CMPL ON-EXIT SECTION TO RUN WHEN PROCEDURE ENDS
SI62608 RPGLE-RUN-PERFM UNNECESSARY CALLS TO QUSRJOBI DURING *INIT P
SI62608 RPGLE-CMPL-INCORROUT-MSGRNF0308 CRTSQLRPGI RPGPPOPT(*LVL1/*L
SI62608 RPGLE-CMPL-INCORROUT NO SOURCE INFO MIXEDCASE SRCSTMF(/QSYS.
SI61030 RPGLE-RUN-INCORROUT %ELEM RETURNS 0 FOR SUBPROC INDICATOR AR
SI61030 RPGLE-CMPL-INCORROUT += ASSIGNMENT WHEN RHS HAS MULTIPLE CCS
SI61030 RPGLE-RUN REMOVING ENDFOR BREAKPOINT REMOVES WRONG BREAKPOIN
SI61030 RPGLE-RUN-INCORROUT RESET OF SUBFIELD FROM DS WITH A POINTER
SI60418 RPGLE-CMPL-MSGCPF9549 CRTSQLRPGI COMPILEOPT('OUTPUT(*NONE)')
SI60418 RPGLE-CMPL-MSGCPF3BC7 XML-INTO or XML-SAX IN CCSID 65535 SOU
SI60418 RPGLE-RUN-INCORROUT DBGVIEW(*LIST) SHOWS EXTRA TEXT IN STRDB
SI59847 RPGLE-CMPL-MSGRNF0224 XML-INTO XML-SAX WITH LITERAL OPTIONS
SI59847 RPGLE-CMPL-INCORROUT UCS-2 WITH OPEN ACCESS WHEN CCSIDS DIFF
SI59847 RPGLE-CMPL-MSGMCH4227 CHGSRVPGM PRFDTA(*APYALL) KEYED I/O
SI59847 RPGLE-CMPL-MSGMCH4227-RC12 *ZEROS PASSED TO CONST FLOAT PARM
SI59847 RPGLE-CMPL-INCORROUT /COPY IN **FREE CRTSQLRPGI+RPGPPOPT NOT
SI59847 RPGLE-CMPL-MSGRNF5505 CRTSQLRPGI RPGPPOPT **FREE WITH /COPY
SI59847 RPGLE-CMPL-MSGRNF7544 RESET QUALIFIED MAIN ENTRY PARM SUBFIE
Summary Information
System.............................. i
Models..............................
Release............................. V7R3M0
Licensed Program.................... 5770WDS
APAR Fixed.......................... View details for APAR SE70125
View details for APAR SE70272
View details for APAR SE70386
View details for APAR SE70460
Superseded by:...................... View fix details for PTF SI80263
Recompile........................... Y
Library............................. QRPGLE
MRI Feature ........................ NONE
Cum Level........................... C9116730
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, 2019, 2020, 2021, 2022 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.
Was this topic helpful?
Document Information
Modified date:
15 June 2022