RE: sub:control level indicators

["Ken & Gloria Cox" <kgc@xxxxxxxxxx>]

if you don't want to process the l1 detail time
use an indicator
sample

            *inl1    ifeq  *on
            *in87    andeq *on

              do your work her but skip first break
                      endif

            *Inl1    ifeq *on
                     move *on     *in87
                     endif


memories of the past

Ken
--Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of boldt@ca.ibm.com
Sent: Wednesday, July 07, 1999 7:36 AM
To: RPG400-L@midrange.com
Subject: Re: sub:control level indicators




Tony wrote:
>Hi all,
>
>What will be the value of the control level indicators after the first read
>of a primary file ?
>If it is ' ON'  ,  a control break will occur in the first record itself
>.How can we handle such a situation ?

Read Chapter 4 of the RPG Reference Manual.  In the section called
"Control Level Indicators (L1-L9)", it says:

  "A control break can occur after the first record containing
  a control field is read.   The control fields in this record
  are compared to an area in storage that contains hexadecimal
  zeros.  Because fields from two different records are not
  being compared, total calculations and total output operations
  are bypassed for this cycle."

In other words, although the control level indicator is on when
the first record is read, total calcs and output are skipped the
first time through the cycle.

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *