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



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.