Re: Read subfile without clearin

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

As soon as my program hit the EXFMT it would clear the screen of the
formats that aren't contained in the subfile display file though.

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Ron.Putaski@ONEIDA.COM wrote:
> 
> 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
+---
| 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
+---