× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Read subfile without clearin
  • From: Ron.Putaski@xxxxxxxxxx
  • Date: Wed, 27 Jun 2001 06:40:54 -0400

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.