RE: frozen app.

Some other things you can check as it is difficult not seeing the compiled
copy
of your entire program.

1.) I notice you define the field cours, but I never see anything moved into
it.
    If it is a both field from the DDS (first screen) you do not have to
define it here.

2.) Some other things that come to mind are you using the physical file you
inputted
    through DFU or a logical. If you are using a logical make sure it's
pointing
    to the right physical file.

3.) Make sure that both fields dds and the file are aligned the same way

4.) lastly Teach yourself some debug, it's a tool that will tell you exactly
whats
    in that field at the time the setll instruction executes. It can save
hours of
    work knowing whats in the field.

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of mohammad khan
Sent: Thursday, January 28, 1999 5:57 PM
To: RPG400-L@midrange.com
Subject: Re: frozen app.







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

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