Re: frozen app.

Hi Mohammad,
In reguards to your code, it sounds like you are in a loop. Check out
your "DO" structure. Make certain that the key you are using to do the
SETLL is valid.

Frank B

---mohammad khan <mohammadakhan@yahoo.com> wrote:
>
> hi,
> 
> i fixed my problems but now the 
> pgm. seemingly without any compile
> errors is freezing on the first 
> screen (subfile is 2nd scrn after
> entering appropriate info on 1st one)
> 
> when i enter a class sec. on scr1
> i ought to see a subfile on that
> sec with all relvnt. data but i don't.
> instead the msg of course not found
> shows up while the scrn (#1) remains
> stuck and frozen.
> 
> *IN03     IFEQ *OFF             NOT EXIT.    
> CRSKEY    SETLLSECTIONL         10MATCH FOUND  
> *IN10     IFEQ *OFF                                    
>           MOVE *ON       *IN90  FOR ERRMSG   
>           ELSE                  SETLL WORKED 
>           EXSR CLRSFL           CLEAR SUBFIL 
>           EXSR LODSFL           LOAD SUBFILE 
>           WRITEFOOTER           DISPLAY FOOT 
>           EXFMTCTLSEC           DISPLAY SUBF 
>           ENDIF                
>           ENDIF                
>           ENDDO                
>           MOVE *ON       *INLR 
>           RETRN                
> 
> my code matches the book's now so
> i don't understand why a succsfl.
> chain is not happening when i enter
> a sect. that was previously entered
> in the pf thru the dfu.
> 
> might the fact i am using a klist
> and kfld have something to do with 
> it? i doubt it and don't think so.
> 
> i'd be interested in anyone's thoughts.
> 
> 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      
   *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * *
> 

==


Frank D. Brough
The Money Store
fbrough@yahoo.com
(916) 485-1500 - Hm
(916) 617-2528 - Wk
_________________________________________________________
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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *