A couple of other clues:
When I step through the code, with DFRWRT(*NO) specified, I can see
the screen displayed with the subfile visible. Everything looks good,
except for the last record, which seem to stop at the customer name
field.
This seems confirmed in the 5250 trace (relevant lines only):
[41] 10/13 10:04:34.52,(00A6) len=2925, 5250 Emulator.Communication
data.0001, 00001120:00001188
Length = 2904 Session ID = b
Summary:
[ IAC EOR ]
[ 5250 (PUT) ]
[ IAC EOR ]
[ 5250 (PUT) ]
Outbound data :
...... 343 .......... 5.......... 4/30..........
8:00..........17:00.....-....S.....-............-..........-....
160200444444444fff421111602004f21111602004f6ff21121602004f7ff2112160200ff7ff2113162200e2113162200000211316220002114162200
d3000d00000000034300188d3000205018dd30005041300184d3000508a00018ad3000517a000183d0000120187d00003000018dd0000100182d0000f
TALBOTS INC.........-..........-....48377...-.-................
4...?...... .......... ...=...... ..... Mo
ecdcdee4cdc4000211516220002115162200fffff2116162200002116160200444f2116160200444421171602004444211716020044442117244444d9
31326320953b0000184d0000100188d00005483770180d00002000187d300040004018fd3000400000187d300040000018ed300040000019720000046
re......
984442fe
95bbb0ff
(note the 343 is the value in the first field shown, it's only
preceded by a selector field)
I little while later I see:
[66] 10/13 10:04:52.47,(00BF) len=6646, 5250 Emulator.Communication
data.0001, 00001120:00001140
Length = 6625 Session ID = b
Summary:
[ 5250 (SAVED DATA) ]
[ IAC EOR ]
Inbound data :
343
444444444fff
000000000343
.... 5... 4/30..
8:00.17:00....S........................................................................................
420024f2024f6ff224f7ff2ff7ff2002e2020002020200000000000000000000000000000000000000000000000000000000000000000000000000000
0000005000041300008a00017a00000020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
.........................................................................................................................
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
....F3=Close.............F4=Prompt.................F5=Refresh.............F17=Filter...
.................................
0003cf7c99a82000000000003cf7d9999a20000000000000003cf7d8898a82000000000003cff7c89a894444200000000000000000000000000000000
000a63e33625000000000000a64e7964730000000000000000a65e9569528000000000000a617e693359bbb0000000000000000000000000000000000
When the screen is saved, the last subfile record data is missing from
the customer name on. The rest of the records are complete in the
save.
This occurs irregardless of the data. I can switch to a different
location's data and get the same error, so it's nothing to do with the
data itself.
Does anybody see an issue with what is being sent to the screen?
Charles
On Mon, Oct 13, 2008 at 1:33 PM, Charles Wilt <charles.wilt@xxxxxxxxx> 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.
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
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.
midrange.com
