Re: screen indicators passing throgh loops

["Richard ECUYER" <recuyer@xxxxxxx>]

here is how i manage this type of situation if it can help youi :

IndicScreen = 1
Dow indicscreen > 0 

Select 
    When indicscreen = 1
        Exsr screen 1
    When Indicscreen = 2 
        Exsr Screen 2
    Endsl        

enddo

Screen1 management : and the same for each screen
Dow indicscree = 1
Exfmt
    If F03 
        Indicscreen = 0
    Endif
    If F12
        Indicscreen = Indicscreen - 1
    Endif
    On enter
    control screen 
    If not error
        Validate screen 1
        Indicscreen = Indicscreen + 1
    Endif
Enddo

Hope this help

----- Original Message ----- 
From: "Yivi" <nardus@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, September 23, 2005 12:43 PM
Subject: Re: screen indicators passing throgh loops


Now that you point it out, it feels astoundingly obvious.

Thanks a lot.

Regards,

I.-