Re: control level indicators

Ah a cycle question. Lets see if I can recall how it works!

If the level indicator is checked at detail time, it is on for the first
record. Then in total processing, 'Lx' in position 7, a check is made to
see if a control break has occurred. If it has not, the level indicator is
set off.
ex.

     Iworkrec
     I                                          code2       L3
     I                                          pos2          L2
     I                                          pos1          L1

The first time through, the l2headdsc line is built and printed.

?    C                   IF        *inl2
     C                   EVAL      l2heddsc = %trim(GetAcctClsDsc
('2':pos2))
     C                          '/' + %trim(GetAcctClsDsc('1':pos1)) +
     C                          '/' + %trim(GetAcctClsDSc('3':pos3)) +
     C                   EXCEPT    l2head
     C                   EVAL      linecount = linecount + 3
     C                   EVAL      l2heddsc = %trimr(l2heddsc) +
     C                             ' cont''d'
?    C                   ENDIF
.
.    Detail calcs here
.
.
.
Then when pos2 changes, @l2tot is executed and remains on for the next
detail process and is checked and set accordingly.
?    CL2                 EXSR      @l2tot

Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040


                                                                                
                                  
                    "Reis,Pedro (rp)"                                           
                                  
                    <reisped@hilti.co        To:     "'MIDR'" 
<RPG400-L@midrange.com>                             
                    m>                       cc:                                
                                  
                    Sent by:                 Subject:     control level 
indicators                                
                    owner-rpg400-l@mi                                           
                                  
                    drange.com                                                  
                                  
                                                                                
                                  
                                                                                
                                  
                    05/10/01 12:48 PM                                           
                                  
                    Please respond to                                           
                                  
                    RPG400-L                                                    
                                  
                                                                                
                                  
                                                                                
                                  




hello,

 Can anyone tell me 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 ?


thanks!

Pedro Salé Reis
MIS Assistent
Deptº Informática
Hilti (PORTUGAL)
Tel. +351 22 956 8145
Fax. +351 22 953 76 96
E-mail reisped@hilti.com


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




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