RE: Read subfile without clearin -- RPG400-L

there are several subfile experts out there. i am one of them.
in your dds define your subfile. then define your subfile control record.

    C
    C                   WRITE     FT9029B2
    C                   WRITE     MSGCTL
    C                   EXFMT     FT9029C2
    C*

then after exfmt define a subroutine to do your readc.
   C     $SELECT2      BEGSR            
   C*
   C                   Z-ADD     RRN2          SVRRN2
   C*
   C                   READC     FT9029S2
   C                   IF        *IN77 = *OFF
   C*
   C                   IF        $OPT  <> *BLANKS
   C                   EVAL      $SELECTED = 'YES'
   C                   EVAL      #MODE = *BLANKS
   C*
   C                   SELECT
   C                   WHEN      $OPT  = '2' AND *IN71 = *ON
   C                   MOVEL     'UPDATE '     #MODE
   C                   EXSR      $SCRN3
   C*
   C                   WHEN      $OPT  = '4' AND *IN72 = *ON
   C                   MOVEL     'DELETE '     #MODE
   C                   EXSR      $SCRN3
    C*
    C                   WHEN      $OPT  = '5' AND *IN73 = *ON
    C                   MOVEL     'INQUIRY'     #MODE
    C                   EXSR      $SCRN3
    C                   OTHER
    C                   ADD       1             I
    C                   EVAL      MQI(I) = 'ONL0046'
    C                   EVAL      $SELECTED = 'NO '
    C                   ENDSL
    C*
    C                   CLEAR                   $OPT
    C                   UPDATE    FT9029S2
    C                   ENDIF
    C*
    C                   EVAL      BEGIN2 = RRN2
    C                   ENDIF
    C*
    C                   Z-ADD     SVRRN2        RRN2
    C*
    C                   ENDSR
    C*****************************************************************


this work if your loading all or page at a time. even with dynamic sql to
create a subfile.

ronald c putaski
oneida ltd
putaski4@oneida.com
------------------( Forwarded letter 1 follows )---------------------
Date: Tue, 26 Jun 2001 16:57:55 -0500
To: RPG400-L@midrange.com
From: MNWills@taylorcorp.com
Sender: rpg400-l-owner@midrange.com
Reply-To: RPG400-L@midrange.com
Subject: RE: Read subfile without clearing screen?

I am not sure...is there any subfile experts out there?

Mike Wills
IT Corporate Support
MNWills@taylorcorp.com


-----Original Message-----
From: Jim Langston [mailto:jimlangston@conexfreight.com]
Sent: Tuesday, June 26, 2001 4:13 PM
To: RPG400-L@midrange.com
Subject: Re: Read subfile without clearing screen?


I'm totally rewriting the screen after the user presses a key.

Logic goes like this in pseudo code:
DoW NOT *IN03
  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

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

"Wills, Mike N. (TC)" wrote:
>
> <snip>Hmm.. are you saying that if I change my Select field, the only
> both field in the subfile, to input it won't clear the display?</snip>
>
> No...I was thinking if they were all input, the fields clear when the
> screen disappears... Thought I would check the obvious first.
>
> Hmm... How is your function key defined? CA or CF. If I remember
> right, CF returns data to the program, CA doesn't. Maybe you need to
> have it defined as CF if it isn't already so the data is still there.
>
> Mike Wills
> IT Corporate Support
> MNWills@taylorcorp.com
> +---
> | 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
> +---

--
+---
| 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
+---
+---
| 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
+---
+---
| 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
+---