Re: Message Subfile

Denzil!

Clear the program(A) message SFL, prior to loading the data subfile.....
and after the control returns to RPG from CL.
This should work.

Vasant


----- Original Message -----
From: Denzil D'souza <Denzild@xxxxxxxxxxxxxxxxx>
To: 'RPG programming on the AS400 / iSeries' <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, June 19, 2003 2:25 PM
Subject: Message Subfile


> Hey,
>
> I have a RPG program(A) that invokes a CL Program(B) which does an OPNQRYF
> and copies the records to a temp file using CPYFRMQRYF command.
>
> The problem is, A is an ordinary subfile program with a message SFL
defined
> in line 22, the footer of the screen occupies both the 23 and the 24th
line.
>
> I get the message "Member XXTMPF added to file XXTMPF in QTEMP." whenever
> the CL is executed and in turn when the CPYFRMQRYF is executed.
> Now when the subfile has been rebuilt(from the temp file) and the control
> returns to the screen I get the above mentioned message in the Message SFL
> as my first message! (my program messages also appear but they go to the
> second line of the message sfl...it bloody irritating..:-) )
>
> Is there a way to get rid of these system process completion messages from
> coming in to my PGMQ?
>
> I dunno if this problem belongs out in a different list..but what the
> heck....:-)
>
> Can someone please enlighten me on this??
>
> Peace
> \m/    \m/
> DJD
>
>
> DISCLAIMER: Information contained and transmitted by this E-MAIL is
> proprietary to Mascot Systems Limited and is intended for use only by the
> individual or entity to which it is addressed, and may contain information
> that is privileged, confidential or exempt from disclosure under
applicable
> law. If this is a forwarded message, the content of this E-MAIL may not
have
> been sent with the authority of the Company. If you are not the intended
> recipient, an agent of the intended recipient or a person responsible for
> delivering the information to the named recipient, you are notified that
any
> use, distribution, transmission, printing, copying or dissemination of
this
> information in any way or in any manner is strictly prohibited. If you
have
> received this communication in error, please delete this mail & notify us
> immediately at Mailadmin@xxxxxxxxxxxxxxxxx Before opening attachments,
> please scan for viruses.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / 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.
>