|
-----Original Message----- From: michael.franchino@cussys.com <michael.franchino@cussys.com> To: RPG400-L@midrange.com <RPG400-L@midrange.com> Date: Monday, April 05, 1999 11:31 PM Subject: Re: Cycle or Non-cycle ? > > >Non-cycle. > >1. No input primary file >2. Program has to control shutdown with *INLR = *ON > Columns . . . : 6 76 Edit OL86/DDSSRC SEU==> P0114 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ *************** Beginning of data ************************************* 001.00 FEMP_MASTL IF E k DISK 002.00 FEMP_REPORTO E PRINTER 003.00 * 004.00 DCOUNT S 3 0 005.00 C READ rec 40 006.00 C IF *IN40 = *OFF 007.00 C EVAL COUNT = COUNT + 1 008.00 C WRITE DETAIL 009.00 C ENDIF 010.00 * 011.00 C IF *IN40 = *ON 012.00 C WRITE TOTAL 0013.00 C EVAL *INLR = *ON 0014.00 C ENDIF 00150.00 * If this program is Non-cycle, How it can loop(I have tested) ? At last it read all records. I am not understanding. Thanks. > > >* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * >* 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 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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.