Re: Permanent I/O Error occured to DSPF

["Charles Wilt" <charles.wilt@xxxxxxxxx>]

Terry,

Actually Simon's been working with me off-list.

The problem turn out to be that I did indeed have more that 256 input
capable fields defined on the screen at once.  Basically, on a 27x132
screen I had a 15 row subfile with 17 fields plus 4 fields at the top
of the screen...17*15+4 = 259.

I didn't realize that each subfile row was counted separately.  Though
it makes sense now that I know. <grin>

Charles

On Mon, Oct 20, 2008 at 5:07 PM, Terrence Enger <tenger@xxxxxxxxxxxxxxxx> wrote:
> On Mon, 2008-10-13 at 13:33 -0400, Charles Wilt wrote:
> > Terry,
> >
> > I'm not sure how to use STRSDA option(3) given the subfile.  Testing a
> > record other than the subfile or subfile control, seems to work (even
> > with those to listed as "additional records to display".  But when I
> > try to test the subfile or subfile control record, I get an error
> > about SFLRCDNBR not being correct.
>
> At command line issue the command STRSDA OPTION(3).  System presents
> panel "Test Display File"
>
> Enter
>    Display file        = FV011PP
>    Library             = whatever
>    Record to be tested = ZFM1
> System presents panel "Set Separate Indicators Area"
>
> Type '1' beside '05'.  System presents panel "Set Test Output Data".
>
> Under heading 'Value' for field ZRD1, type "0001:" without the question
> marks.  System shows your subfile.
>
> > Also, it'd take some work to figure out what all the indicators
> > settings should be.
> >
> > Here's the full source, but beware, it is generated code.
> > http://code.midrange.com/dd884c0071.html
>
> I have tested the dspf using STRSDA 3, as I outlined above.  I have also
> written a minimal RPG program to exercise the subfile, and it runs
> without hangup.  Of course, if I put x'01' in the middle of field
> S000IV, I can provoke CPF5192 with negative response code 1005012B and
> the resulting RNX1215.  The system accepted all writes to the subfile
> record and only raised the error on the READ to the subfile control
> record.
>
> I have managed so far not to learn to read the 5250 data stream, so I
> cannot give you help in that direction.  How about ...
> (*) look at each S000IV in interactive debugger
> (*) twenty-five (maybe only 15 times), on your input file, do CPYF
> INCCHAR(*RCD <position> *LT X'40').  Or something, depending on your
> code page.
>
> I wish I could be more helpful.
>
> Cheers,
> Terry.
>
> > Charles
> >
> >
> > On Mon, Oct 13, 2008 at 12:13 PM, Terrence Enger
> > <tenger@xxxxxxxxxxxxxxxx> wrote:
> > > On Mon, 2008-10-13 at 11:10 -0400, Charles Wilt wrote:
> > > > Ok,
> > > >
> > > > I added some code to '-' fill the fields but I still get the same error.
> > > >
> > > > I'm not sure rather to feel better or worse...but apparently the x'00'
> > > > fill of the field was in keeping with the specs.  Of course, now I'm
> > > > back to were I started....
> > > >
> > > > Charles
> > >
> > > Charles,
> > >
> > > Is STRSDA OPTION(3) happy with the file?
> > >
> > > Can you share the dspf with us?
> > >
> > > Cheers,
> > > Terry.
> > >
> > >
> > > --
> > > 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.