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



Thanks, Lim...



Florin Todor

Programmer/Analyst


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of hockchai Lim
Sent: Monday, October 11, 2010 2:46 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Unwanted messages

There is no such thing. Subfile is not an actual file. If your subfile
has
20 records, then all 20 records exist in the subfile (blank or not).
There
is no such thing as deleted (or as you refer to as blank) sub-file
record.

I agreed with Duane that "Subfile record not found" is likely to be
caused
by coding issue and should be corrected.

In INFDS, there is a field that will tell you how many record you have
in
your sub-file. When you loop thru you subfile, use that as the max rrn
for
the loop. I believe the field is NUM_RCDS.

FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++
+++Comments++++++++++
FMYFILE CF E WORKSTN INFDS(DSPFBK)
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
+++Comments++++++++++
DDSPFBK DS
D DSP_FLAG1 367 368
*
Display flags
D DSP_AID 369 369
*
AID byte
D CURSOR 370 371
*
Cursor location
D DATA_LEN 372 375I 0
*
Actual data len
D SF_RRN 376 377I 0
*
Subfile rrn
D MIN_RRN 378 379I 0
*
Subfile min rrn
D NUM_RCDS 380 381I 0
*
Subfile num rcds
D ACT_CURS 382 383
*
Active window
D
*
cursor location
D DSP_MAJOR 401 402
*
Major ret code
D DSP_MINOR 403 404
*
Minor ret code


"Florin Todor - YYZ Concord" <ftodor@xxxxxxxxxxxxxxxx> wrote in message
news:mailman.5841.1286482296.2702.rpg400-l@xxxxxxxxxxxxxxx
Duane,

I 100% agree with you and believe me, I try hard to avoid that, but...
The idea is that I have this subfile with, let's say, maximum 20
records. There are only five populated, but they are not necessary one
after the other. Could be blank records intercalated (because the user
deleted them, for example); how am I going to get all the non-blank
records? I issue a CHAIN opcode and, when the record is blank ("not
found") I skip it; but the system issues the "Subfile record not found"
message (even worse, two times for one blank record).

Probably it is a better way to accomplish this and I would be very happy
to learn something....


Thank you


Florin Todor

Programmer/Analyst



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Christen, Duane
Sent: Thursday, October 07, 2010 3:34 PM
To: RPG programming on the IBM i / System i
Subject: RE: Unwanted messages

Florin, Alan;

Before you throw messages away you should always understand why the
message was sent. In this case Florin is probably trying to read a
subfile record that does not exist which IMO shouldn't happen.
Determining why the message is occurring and fixing that issue will
solve the problem of the user seeing the message and IMO improve the
code.

Duane Christen


--


Duane Christen
Senior Software Engineer
(319) 790-7162
Duane.Christen@xxxxxxxxxx

Visit PAETEC.COM


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Thursday, October 07, 2010 1:38 PM
To: RPG programming on the IBM i / System i
Cc: rpg400-l@xxxxxxxxxxxx; rpg400-l-bounces@xxxxxxxxxxxx
Subject: Re: Unwanted messages


Hi Florin
there is a command called RMVJLMSG that I have downloaded and now use
extensively to remove whatever message is wanted to be removed (in my
case
CPF5020)
However, it only seems to be available from systemiNetwork The author is
named Rory Hewitt


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill




"Florin Todor -

YYZ Concord"

<ftodor@concordtr
To
ans.com> <rpg400-l@xxxxxxxxxxxx>

Sent by:
cc
rpg400-l-bounces@

midrange.com
Subject
Unwanted messages



10/07/2010 02:29

PM





Please respond to

RPG programming

on the IBM i /

System i

<rpg400-l@midrang

e.com>









Hello,



I have this interactive program processing a display file with a
subfile; the user enters values in the input fields (both, Control and
Subfile records). When the values are wrong, the program issues error
messages (in a subfile message record), using QMHSNDPM API, which are
shown the next time when the file is displayed. The problem is that the
system issues, also, messages, like "Subfile Record not found" followed
by a "C" (for Cancel) and the user sees this messages, too.



My question is how could I get rid of these system messages, so the user
sees only error messages directly related to the values he enters?

(Hopefully I was clear enough with my explanation...)







Thank you





Florin Todor



Programmer/Analyst





<mailto:ftodor@xxxxxxxxxxxxxxxx>



--
This is the RPG programming on the IBM i / System i (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.


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.