Re: frozen app.

[mohammad khan <mohammadakhan@xxxxxxxxx>]

---alan shore <SHOREA@Dime.com> wrote:
>
> Instead of the first line
> *IN03     IFEQ *OFF             NOT EXIT.   
> try 
> *IN03     DOWEQ *OFF        NOT EXIT.
> because the command
> EXFMTCTLSEC           DISPLAY SUBF 
> is not only a display of the subfile screen, but also a read at the
same time (or so I believe - if this is incorrect, I hope someone will
point this out)

actually, the start of my code is:

CRSKEY    KLIST                           
          KFLD           COURS   6        
*IN03     DOWEQ*OFF                       
          EXFMTCORINQ                     
*IN03     IFEQ *OFF                       
CRSKEY    SETLLSECTIONL                 10
*IN10     IFEQ *OFF                       
          MOVE *ON       *IN90            
          ELSE                            
          EXSR CLRSFL                     
          EXSR LODSFL                     
          WRITEFOOTER                     
          EXFMTCTLSEC                     
 
so you can see that i have a
while condition for *in03. taking
it out and substituting other
stuff has different and somewhat similar
efx.

Regards,

Mohammad    

_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *