RE: MCH0601

That is as good a routine as any... but you can accomplish the same thing
from just displaying the control file and a message that there is no data
available in the subfile ... or the file from which the subfile is loaded ..


Gene Hockemeyer
Sunbeam Corporation
Manager EDI and EC Business Development
561 912-4877
hockemg@sunbeam.com



-----Original Message-----
From: booth@martinvt.com [mailto:booth@martinvt.com]
Sent: Tuesday, January 09, 2001 4:37 PM
To: RPG400-L@midrange.com
Subject: Re: MCH0601


At the end of the FillSflSR subroutine I check the RRN number for the 
subfile.  If it is 0 I write one record with a notation "No Records to 
display".  In that way, the subfile is never empty.

_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




RReddy@medicalartspress.com
Sent by: owner-rpg400-l@midrange.com
01/09/2001 02:58 PM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        Re: MCH0601


Sometimes.... the subfile would have no data to display.. in that case i
would setoff indicator for subfile display & just show the control 
record..
only..





"James W. Kilgore" <qappdsn@attglobal.net>@midrange.com on 01/09/2001
01:44:52 PM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   RPG400-L@midrange.com
cc:

Subject:  Re: MCH0601


Reddy,

Are you sure that the subfile you are trying to display contains data?  I
seem to
recall getting a message like this when I tried to display an empty
subfile.

RReddy@medicalartspress.com wrote:

> I am not using pointers in the program.
>
> All the program does is switching back and forth between the different
> subfiles.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---