RE: Subfile question

[CWilt@xxxxxxxxxxxx]

Ron,

It doesn't.  But you'd want to make sure you use a reasonable name.

I'd recommend something like the following:

d CLEAR_SUBF        c                 '0'         
d DISPLAY_SUBF      c                 '1'         
                                                  
d gDspfCtl          ds                 qualified  
d  subfileCtl            50     50n               

 /free
   
    gDspfCtl.subfileCtl = CLEAR_SUBF;

    // someplace else
  
    gDspfCtl.subfileCtl = DISPLAY_SUBF;
    
 /end-free


Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: RPower@xxxxxxxxxx [mailto:RPower@xxxxxxxxxx]
> Sent: Thursday, December 16, 2004 1:40 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Subfile question
> 
> 
> How will that affect if you use named indicators?
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ______________________________________________________________
> _____________
> Success is going from failure to failure without a loss of 
> enthusiasm. - 
> Sir Winston Churchill
> 
> 
> 
> 
> Tony Carolla <carolla@xxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 16/12/2004 03:01 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: Subfile question
> 
> 
> 
> 
> 
> 
> Yes, that is the nature of the N in that specific position.  The
> possible issue would be if you wanted to do both operations, for
> example if you wanted to clear AND display the file, which you can't
> do anyways, so it is a good technique in this case.
> 
> In fact, I will probably start using it now ;-)
> 
> 
> On Thu, 16 Dec 2004 13:15:37 -0500, Bryon Cook 
> <bryonc@xxxxxxxxxxx> wrote:
> > I am not a strong programmer but I think I know the answer to this 
> question.
> > The first two lines:
> > 
> > A     50                                     SFLDSP
> > A     50                                     SFLDSPCTL
> > 
> > are conditioned so that when indicator 50 is on they will 
> be "executed".
> > 
> > The last line:
> > 
> >  A    N50                                     SFLCLR
> > 
> > will be "executed" when indicator 50 is NOT on (Not50 = 
> N50).  So they 
> are
> > opposites in that one set of commands is executed when 50 
> is on and the
> > other when 50 is off. (I think!)
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Douglas W. Palme
> > Sent: Thursday, December 16, 2004 12:59 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Subfile question
> > 
> > I decided I needed some text help on subfiles so I ordered the
> > book "Essentials of subfile Programming and advanced topics 
> in RPG IV"
> > 
> > One question I have is a comment the author made:
> > 
> > The SFLCLR must have the opposite indicator value.....
> > 
> > Is he talking about the opposite value of SFLDSP, SFLDSPCTL 
> or both? I
> > looked at a sample subfile a friend of mine sent me and he was using
> > indicators 51 for the SFLDSP and SFLDSPCTL fields and 50 for 
> SFLCLR....and
> > it works...
> > 
> > Can anyone explain what the author might have been talking about?
> > 
> > Here is the example he gave:
> > 
> > A     50                                     SFLDSP
> > A     50                                     SFLDSPCTL
> > A    N50                                     SFLCLR
> > 
> > Saying the N50 is the opposite of 50.
> > 
> > --
> > 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.
> > 
> > --
> > 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.
> > 
> > 
> 
> 
> -- 
> "Enter any 11-digit prime number to continue..."
> -- 
> 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.
> 
> 
> -- 
> 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.
>