|
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 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.