Re: Unusual error that I cannto figure out

If there is no data you might want to give the user a peek into the display.
With no data in the subfile just display associated format(s) including the
SFLDSPCTL
while omiting the SFLDSP.

While your at it you can also display a special format with one line that
overlays where the
subfile data would normaly display. This one line would say '(no records
found)'.


joem




----- Original Message -----
From: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, November 22, 2004 12:56 PM
Subject: RE: Unusual error that I cannto figure out


> which raise an interesting question as why the 5250 has to error that out.
If there is no data, just don't display it.  Never understand why we need
SFLDSP and SFLDSPCTL keywords.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Lim Hock-Chai
> Sent: Monday, November 22, 2004 11:42 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Unusual error that I cannto figure out
>
>
> The error is likely to cause by program did not load any record to subfile
but indicator that control the SFLDSP keyword is on.
>
> Try to load a record to the subfile or turnoff the indicator the control
SFLDSP.  Looking at you subfile control you might need to use a different
indicator for SFLDSP and SFLDSPCTL.
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> Sent: Monday, November 22, 2004 11:19 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Unusual error that I cannto figure out
>
>
> I am working with subfiles and thought I had this down, but unfortunately
I am getting an unusual error message when I try to run the program.  Here
is the dds for the subfile and the program that is calling it.
>
> All I am trying to do at the moment is display the subfile to the screen.
>
> The error message is the following, which I have never seen before:
>
> Job 182784/DPALME/QPADEV0010 started on 11/22/04 at 11:45:21 in subsystem
BA
> Session or device error occurred in file SUBFILE (C G D F).
>
> Application error.  RNX1255 unmonitored by JDEAL at statement
0000000014,...
>
> Any suggestions or comments would be appreciated.
>
> Douglas
>
>
> DDS:
>  A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS
>  A*%%EC
>  A                                      DSPSIZ(24 80 *DS3)
>  A          R RECSFL                    SFL
>  A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS
>  A            NOTES         75   B  3  5
>  A          R RECCTL                    SFLCTL(RECSFL)
>  A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS
>  A                                      CA03(03)
>  A  51                                  SFLDSP
>  A  51                                  SFLDSPCTL
>  A  52                                  SFLCLR
>  A                                      SFLSIZ(0016)
>  A                                      SFLPAG(0015)
>  A                                  1 24'THIS IS THE CONTROL RECORD
HEADER'
>
> PGM:
>
>  *program: subfiler
> Fsubfile   CF   E             workstn
> F                                     sfile(recsfl:rrn)
> Drrn              s              3  0
> C                   DOU       *IN03
> C                   EVAL      *IN52 = *ON
> C                   WRITE     RECCTL
> C                   EVAL      *IN52 = *OFF
> C                   EVAL      *IN51 = *ON
> C                   EXFMT     RECCTL
> C                   ENDDO
> C                   EVAL      *INLR = *ON
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>