Re: Stupid RPG cycle question

[dhandy@xxxxxxxxxxx (Douglas Handy)]

Raul,

>I think the *InzSr is executed before 1P output.  

Not in RPG II code; there is no *InzSr.

Jim had specified this was a S/36 program, so I ass-u-me-d that it
either ran on a S/36 (or *M36) or was a RPG36 program in the S36EE.
Either way, you don't have a *InzSr available.

That's one reason my S36 standard was to condition headings by just
OF, seton OF in the first cycle code block (no *InzSr), then use fetch
overflow during detail/exception printing.

In RPG II, it worked quit well.  With RPG III and IV, we not only have
*InzSr (which does precede 1P output), but with external printer files
the whole method of handling overflow is a different paradigm.

Doug
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---