Válasz: To....John smith -- RPG400-L

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