IBM Support

SI68994 - RPGLE-CMPL-F/QRN4MAIN-MSGMCH3601 DS WITH EXTNAME('GDDM')

PTF Cover Letter


PTF ( Program Temporary Fixes ) Cover letter


Order this fix

Abstract

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 SI76100
Recompile...........................Y
Library.............................QRPGLE
MRI Feature ........................NONE
Cum Level...........................C9116730


IBM 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, 2019, 2020, 2021 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.

[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"7.3","Product":{"code":"SG15V","label":"PTF Cover Letters - IBM i General"},"Component":"5770WDS","Edition":""},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"7.3","Product":{"code":"SG16H","label":"PTF Cover Letters - IBM i 7.3"},"Component":"5770WDS","Edition":""}]

Document Information

Modified date:
15 April 2021