Re: Read subfile without clearing screen?

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

The current loop looks like this, with either read setting on
indicator 20 (F20) which toggles SelectSubFile

eval SelectSubFile = *Off
DoW NOT *IN03
  If *IN20
    SelectSubFile = NOT SelectSubFile
  EndIf
  Write SflHeader (from STR002FN)
  Write SflCtl    (From STR002FN)
  Write Str002FM  (Format S1)
  If SelectSubFile
    Read SflCtl (or Read Str002FN or ExFmt SflCtl)
  Else
    Read STR002FM
  EndIf
EndDo

Someone suggested RSTDSP and DFRWRT which I changed RSTDSP to *NO and
it actually worked, but then it broke it when I try to read STR002FM 
instead of STR002FN. Looking at that now.

Regards,

Jim Langston

Carel Teijgeler wrote:
> 
> Jim,
> 
> Where do you read the SflCtl record? If it is after testing  function key
> F20, that will be the problem I think.
> 
> I think you should combine all the reads in one place, like:
> 
> >   write SflHead (From Str002FN)
> >   write SflCtrl (From Str002FN)
> >   write Str002FM
> >   read Str002FM
>      read SflCtl
>      ....
>      test input
> 
> Hope this may help.
> 
> Regards,
> 
> Carel Teijgeler.
>
+---
| 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
+---