=?Windows-1250?q?V=E1lasz=3A_To=2E=2E=2E=2EJohn_smith_?=

[Refaie.Heba@xxxxxx]

Hello John,

Subfiles have indicators associated with them 

I think in your case the subfile clrear indicator is still on. you have to set it off before filling the subfile. check your display file and try again.
before the execute format of the subfile control to display the subfile,  you should write  some subroutines for clrearing and filling the subfile 
below there is a simple code that would help you.

Good Luck and best regards
Heba 


The indicators used here
Subfile clear            * in40
Subfile display        *in41
Subfile control         *in42



0008.00 FUS992     CF   E             WORKSTN                                
0009.00 F                                     SFILE(SFL1:SFKEY1)             
0010.00 F                                     SFILE(SFL2:SFKEY2)             
           

0496.00 C     CLRSF2        BEGSR                                          
0497.00  *                                                                 
0498.00 C                   EVAL      *IN40=*OFF                           
0499.00 C                   EVAL      *IN41=*OFF                           
0500.00 C                   EVAL      *IN42=*ON                            
0501.00  *                                                                 
0502.00 C                   Z-ADD     *ZEROS        SFKEY2                 
0503.00 C                   WRITE     CTL2                                 
0504.00  *                                                                 
0505.00 C                   EVAL      *IN40=*ON                            
0506.00 C                   EVAL      *IN41=*ON                            
0507.00 C                   EVAL      *IN42=*OFF                           
0508.00 C                   EVAL      *IN43=*OFF                           
0509.00  *                                                                 
0510.00 C                   ENDSR     


0517.00 C     BLDSF2        BEGSR                                                    
0518.00  *                                                                           
0519.00 C                   Set the pointer at the beginig of the datafile

                       
0520.00 C                                      
0521.00  *                                                                           
0522.00 C     Key           SETLL     Yourdatafile                                     
0523.00 C                   READ      Yourdatafile                             84      
0524.00  *                                                                           
0525.00 C     *IN84         DOWEQ     *OFF                                           
0526.00 C                                              
0527.00  *                                                                           
0528.00 C     *IN84         IFEQ      '0'                                            
0529.00 C                   ADD       1             SFKEY2                           
0531.00 C                   MOVELxxxx               subfile fields                          
0532.00 C                   WRITE     SFL2                                           
0533.00 C                   READ      yourdatafile                             84      
0534.00 C                   ENDIF                                                    
0535.00  *                                                                           
0536.00 C                   ENDDO

john smith <fr4987@yahoo.com> Feladó: owner-rpg400-l@midrange.com 07/25/01 01:14 PM Kérem, válaszoljon ennek a személynek: RPG400-L

Címzett: RPG400-L@midrange.com                     Másolat:                        Tárgy:

Hi all,

   I have just started programming subfiles (using RPG
IV)and I am getting a little problem: The pgm writes
some information to the subfile records 
e.g          
C* write something to a field of the subfile record
C               movel 'XXXX'  sfld1      
C* write the subfile record
C               write SFL
C* The above 2 instructions are repeated a few times
C* just to fill a few subfile records
C*
C* read/write the subfile ctl
C*              write SFLCTL

However the screen displays a blank subfile :
|------------------------------------|
|                                    |
|  ---   -------------               |
|  ---   -------------               |
|  ---   -------------               |
|  ---   -------------               |
|  ---   -------------               |
|  ---   -------------               |
|  ---   -------------               |
|                                    |
|------------------------------------|  

I am sure that there is something obvious (to all of
you experienced RPG programmers) that I am missing but
I have been battling with this simple problem for
almost 1 day without success. Any help please?

TIA

__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.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
+---