Re: Cycle or Non-cycle ?

All RPG programs (unless specifically instructed by a compile option - I believe
they allow for that in a recent os version) include the cycle in the program.

The program you show below bypasses cycle logic.  The program in your previous
e-mail IS using the cycle.

And yes, the difference between them is the use of "P"rimary vs. "F"ull
procedural file processing.

The cycle is well documented and explained in the RPG manuals (on line).  The
cycle, while much maligned, isn't that hard to understand or use.  And it can
save you a ton of time when doing multiple control break reporting.

Rick


                                                              
                                                              
                                                              
  To:          rpg400-l@midrange.com                          
                                                              
  cc:          (bcc: Richard B Baird/Premium/US)              
                                                              
                                                              
                                                              
  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 C                   IF        *IN40 = *ON
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.