ndevriendt
Programmer
Hello,
I get the error 'No invites outstanding for file VBL400FM in library ZKHPGM. (C I) '
when I use the page down button on my subfile.
Is there somebody that can tell me how I can fix this.
I'm using the invite keyword in my DDS.
See here some code of my screen and RPGLE program
A DSPSIZ(24 80 *DS3
A 27 132 *DS4)
A N89 ROLLUP(96 'Rollup')
A R S01A SFL
A 94 SFLNXTCHG
A FLD01 2A B 11 2
.....
A R C01A SFLCTL(S01A)
A SFLSIZ(0006)
A SFLPAG(0004)
A 91 SFLDSP
A 90 SFLDSPCTL
A 92 SFLCLR
A N92 INVITE
A 93 SFLEND(*MORE)
A N91 ERASE(S01A)
A SFLMODE(SFMD)
A R S01B SFL
A 94 SFLNXTCHG
A FLD01 2A B 11 2
.....
A R C01B SFLCTL(S01B)
A SFLSIZ(0009)
A SFLPAG(0008)
A 91 SFLDSP
A 90 SFLDSPCTL
A 92 SFLCLR
A N92 INVITE
A 93 SFLEND(*MORE)
A N91 ERASE(S01B)
A SFLMODE(SFMD)
RPG program:
FVBL400FM CF E WORKSTN MAXDEV(*FILE)
F SFILE(S01A:#1RRNS)
F SFILE(S01B:#1RRNS)
F INFDS($IDSPF)
Write C01A
Read(E) VBL400FM 50
I get the error 'No invites outstanding for file VBL400FM in library ZKHPGM. (C I) '
when I use the page down button on my subfile.
Is there somebody that can tell me how I can fix this.
I'm using the invite keyword in my DDS.
See here some code of my screen and RPGLE program
A DSPSIZ(24 80 *DS3
A 27 132 *DS4)
A N89 ROLLUP(96 'Rollup')
A R S01A SFL
A 94 SFLNXTCHG
A FLD01 2A B 11 2
.....
A R C01A SFLCTL(S01A)
A SFLSIZ(0006)
A SFLPAG(0004)
A 91 SFLDSP
A 90 SFLDSPCTL
A 92 SFLCLR
A N92 INVITE
A 93 SFLEND(*MORE)
A N91 ERASE(S01A)
A SFLMODE(SFMD)
A R S01B SFL
A 94 SFLNXTCHG
A FLD01 2A B 11 2
.....
A R C01B SFLCTL(S01B)
A SFLSIZ(0009)
A SFLPAG(0008)
A 91 SFLDSP
A 90 SFLDSPCTL
A 92 SFLCLR
A N92 INVITE
A 93 SFLEND(*MORE)
A N91 ERASE(S01B)
A SFLMODE(SFMD)
RPG program:
FVBL400FM CF E WORKSTN MAXDEV(*FILE)
F SFILE(S01A:#1RRNS)
F SFILE(S01B:#1RRNS)
F INFDS($IDSPF)
Write C01A
Read(E) VBL400FM 50