|
Non-cycle as your input file is Full Procedural 'F' as opposed to Primary which is 'P'. -----Original Message----- From: Shen Jianjun [mailto:ipacsjj@public.sta.net.cn] Sent: Monday, April 05, 1999 2:17 PM To: rpg400-l@midrange.com Subject: Cycle or Non-cycle ? Columns . . . : 6 76 Browse OL86/DDSSRC SEU== P0114 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ *************** Beginning of data ************************************* 0001.00 FEMP_MASTL IF E k DISK 0002.00 FEMP_REPORTO E PRINTER 0004.00 * 0005.00 DCOUNT S 3 0 0006.00 C READ REC 40 0007.00 C IF *IN40 = *OFF 0008.00 C EVAL COUNT = COUNT + 1 0010.00 C WRITE DETAIL 0012.00 C ENDIF 0013.00 * 0014.00 0016.00 C WRITE TOTAL 0018.00 C EVAL *INLR = *ON 0019.00 C ENDIF Hi, about this program, is it Cycle or Non-cycle? How can I know it? 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 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.