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



Thank you. Guess I DIDN'T do that in the dark ages, eh? 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow (ML)
Sent: Wednesday, December 06, 2006 11:32 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Indicator Redux

Hi Dave,

What you have is a conditioned field overlaying a portion of an
unconditioned field.  Try this instead in your display file:

     A N27                             23 53'F17=Exclude System'
     A                                      COLOR(BLU)
     A  27                             23 53'F17=Include System'
     A                                      COLOR(BLU)

Any field defined on the display file is always preceded by an attribute
byte that takes up one displayable position.  So if you had been able to
overlay "F17=Exclude System" with "In", what you actually would've
gotten is "F17= Inlude System" or maybe "F17=In ude System"; probably
not what you wanted.

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /

Turnidge, Dave wrote:
Hokkaii... Here is the portion of the screen that's supposed to
change:

 F17=Exclude System

When I click on F17 it turns variable F17System *ON.

D Workstnind      ds
     D  FunctionKeys          01     30                        
       ----
     D  F17System             17     17n  <---------------
      ----
     D  ExcludeSys            27     27n  <---------------

Then I turn ExcludeSys on or off

                // Exclude system in sort
                When F17system;
                   if ExcludeSys;
                      ExcludeSys = *OFF;
                   else;
                      ExcludeSys = *ON;
                   endif;                 

At this point (first time through) ExcludeSys is *ON

However, my display file never changes...

     A                                 23 53'F17=Exclude System'
     A                                      COLOR(BLU)
     A  27                             23 58'In'
     A                                      COLOR(BLU)

What it should show is "F17=Include System"
But it still shows "F17=Exclude System"

What am I doing wrong?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, December 06, 2006 10:58 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Indicator Redux

That looks good to me. Sure you've got the right display file, and 
that it compiled with no errors regarding INDARA?

On 12/6/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:
  
A                                      DSPSIZ(24 80 *DS3)
A                                      VLDCMDKEY(75 'RETURN')
A                                      INDARA
<------------------------
A*                                     PRINT
A*                                     HELP

    

  

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



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.