× 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.


  1.  Home
  2. RPG400-L
  3. August 2017

RE: A Strange Problem with compiling an SQLRPGLE

Michael,

I think I have found the problem. I was using concatenated case statements and it wasn't quite balanced. Until I balanced it I had this trouble. But once it was balanced it compiled successfully.

By Balanced I mean the correct number of concatenate (5) covering all the case statements (6).

So long and thanks for all the help.

Thanks,
 
Marvin
No trees were killed in the sending of this message, but a large number of electrons were terribly inconvenienced, traumatized, triggered, and crying for their safe spaces.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of MichaelQuigley@xxxxxxxxxx
Sent: Thursday, August 31, 2017 1:54 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: A Strange Problem with compiling an SQLRPGLE

When you specified the TOSRCFILE parameter, did you specify a library with it? By default the TOSOURCE is in QTEMP (and the actual compile creating your RPG program is done from the QTEMP source). Also, you have to specify a TOSOURCE file other than the one where your main source resides--it uses the same member name.

Michael Quigley
Computer Services
The Way International

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 08/31/2017 12:27:07
PM:
----- Message from Marvin Radding
<marvin.radding@xxxxxxxxxxxxxxxxxxxxx> on Thu, 31 Aug 2017 16:20:49
+0000 -----

To:

"RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>

Subject:

RE: A Strange Problem with compiling an SQLRPGLE

Jeff,

I tried to compile the program interactively. The first source file
had the complete program in it, but the second source file member had
zero records. I think this is what you are referring to. The errors
occur between the two passes of the compiler. And I don't understand
why I am getting this error. It started yesterday but before I had no
problems.

Thanks,

Marvin
No trees were killed in the sending of this message, but a large
number of electrons were terribly inconvenienced, traumatized,
triggered, and crying for their safe spaces.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Jeff
Young
Sent: Thursday, August 31, 2017 7:08 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: A Strange Problem with compiling an SQLRPGLE

Marvin,
Try the compile specifying the TOSRCFILE keyword with a different
source file. This will create the expanded source in that file/
member. Then try to compile the expanded source and see if you are
having the same issue.
This will allow you to determine if there is a problem in the
CRTRPGSQLI command processing or in the compiler.

Jeff Young
Sr. Programmer Analyst

On Thu, Aug 31, 2017 at 10:02 AM, Marvin Radding <
marvin.radding@xxxxxxxxxxxxxxxxxxxxx> wrote:

No RDi. This is actually during the transfer from the Pre-Compiler
to the RPG/LE Compiler. I get a full listing from the Pre-Compiler
with no errors as the first diagnostic message states.

Thanks,

Marvin
No trees were killed in the sending of this message, but a large
number of electrons were terribly inconvenienced, traumatized,
triggered, and crying for their safe spaces.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Justin Taylor
Sent: Thursday, August 31, 2017 6:44 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxx>
Subject: RE: A Strange Problem with compiling an SQLRPGLE

Have a verify with RDi? I find that to be helpful sometimes when I
get unusual errors from the pre-compiler.



-----Original Message-----
From: Marvin Radding [mailto:marvin.radding@xxxxxxxxxxxxxxxxxxxxx]
Sent: Thursday, August 31, 2017 8:38 AM
To: 'RPG programming on the IBM i (AS/400 and iSeries)' <
rpg400-l@xxxxxxxxxxxx>
Subject: A Strange Problem with compiling an SQLRPGLE

I am having a very strange problem trying to compile an SQLRPGLE.
The following is the job log. I have trimmed it down to the errors
that I think are relevant to the problem. Has anyone had a problem
like this and what did you do to correct it?

Message . . . . : Diagnostic
check
of source is complete. Highest severity
is 00.
Cause . . . . . : The
diagnostic
check of the specified source member is
------------ 34 data records excluded
------------------------------
-----------------------------------------------------
MCH1210 Escape 40 08/31/17 06:24:38.870799
QSQRCHK QSYS *STMT QSQRCHK QSYS
From module . . . . . . . . :
QSQRCHK
From procedure . . . . . . :
EXPRTYPE
Statement . . . . . . . . . :
46287
To module . . . . . . . . . :
QSQRCHK
To procedure . . . . . . . :
EXPRTYPE
Statement . . . . . . . . . :
46287
Message . . . . : Receiver
value
too small to hold result.
CPF9549 Escape 40 08/31/17 06:24:38.891595
QTEUTILS QSYS *STMT QSQPMAIN QSYS
From module . . . . . . . . :
TEEXCH
From procedure . . . . . . :
_Exception_Handler_Exit_Environment
Statement . . . . . . . . . : 4
To module . . . . . . . . . :
QSQPMAIN
To procedure . . . . . . . :
BLD_VIEW_COMMON
Statement . . . . . . . . . :
8700
Message . . . . : Error
addressing
API Parameter.
Cause . . . . . : An error
occurred addressing parameter 2 of the
QteAddViewText API. The
reason

code was 2. The following are the reasons
why this message is issued.
1
-- A pointer was used that is not available
------------ 13 data records excluded
------------------------------
---------------------------------------------------
CPF9999 Escape 40 08/31/17 06:24:38.891667
QMHUNMSG *N QSQPMAIN QSYS
To module . . . . . . . . . :
QSQPMAIN
To procedure . . . . . . . :
QSQPMAIN
Statement . . . . . . . . . :
8733
Message . . . . : Function
check.
CPF9549 unmonitored by QSQPMAIN at
statement 0000008700,
instruction X'0000'.
Cause . . . . . : An escape
exception message was sent to a program which
did not monitor for that
message.
The full name of the program to which the
------------- 8 data records excluded
------------------------------
-----------------------------------------------------
CPF2410 Escape 40 08/31/17 06:24:38.891699
QMHRCVPM QSYS 15E9 QSQPMAIN QSYS
To module . . . . . . . . . :
QSQPMAIN
To procedure . . . . . . . :
QSQPMAIN
Statement . . . . . . . . . :
15203
Message . . . . : Message key
not
found in message queue QJOBMSGQ.
Cause . . . . . : Message key
X'40404040' may have been deleted from message
queue QJOBMSGQ, or message
key

X'40404040' may not be valid. Recovery . . .
: Verify the correct message
key
(MSGKEY) parameter is used or omit the
request. The message key is
valid only if obtained in one of the following
ways: -- Returned in the
message reference key (KEYVAR) parameter on the
Receive Message (RCVMSG)
command or Send Program Message (SNDPGMMSG)
------------- 7 data records excluded
------------------------------
-----------------------------------------------------
CEE9901 Escape 30 08/31/17 06:24:38.994940
QLEAWI QSYS *STMT QSQPRUN QSQL
From module . . . . . . . . :
QLEDEH
From procedure . . . . . . : Q
LE
leDefaultEh2
Statement . . . . . . . . . : 175
Message . . . . : Application
error. CPF2410 unmonitored by QSQPMAIN at
statement 0000015203,
instruction X'0000'.
Cause . . . . . : The
application
ended abnormally because an exception
occurred and was not handled.
The name of the program to which the
unhandled exception is sent
is QSQPMAIN QSQPMAIN QSQPMAIN. The program was
stopped at the high-level
language statement number(s) 0000015203 at the
time the message was sent.
If more than one statement number is shown, the
----------- 336 data records excluded ------------------------------
-----------------------------------------------------

Thanks,

Marvin
No trees were killed in the sending of this message, but a large
number of electrons were terribly inconvenienced, traumatized,
triggered, and crying for their safe spaces.

Notice: This e-mail transmission may contain information that is
proprietary, privileged and/or confidential and is intended
exclusively for the person(s) to whom it is addressed. This message
may also contain Protected Health Information (PHI) and must be
treated confidentially and handled in accordance with HIPAA and
other federal and state privacy laws.
Any use, copying, retention or disclosure by any person other than
the

intended recipient or the intended recipient's designees is strictly
prohibited. If you are not the intended recipient or their designee,
please notify the sender immediately and delete this e-mail (and any
accompanying attachments).

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: http://amzn.to/2dEadiD
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: http://amzn.to/2dEadiD

--
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
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.