Re: Cycle or Non-cycle ?

[rbbaird@xxxxxxxxxxx]

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.

 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  *                                    &n bsp;                                
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.