|
midrange.com
Yes, I have overlay on all formats being displayed.
Str002FM
DUMMY
ASSUME
S1
OVERLAY
SLNO(01)
CLRL(12)
Str002FN
DUMMY
ASSUME
SFLHEAD
KEEP
OVERLAY
SUBFILE
(nothing, won't allow to compile with keywords)
SFLCTL
KEEP
OVERLAY
I tried adding KEEP to the S1 format in STR002FM, which made me get rid of my
SLNO and CLRL, but it still did the same thing.
Also, in test I see that when I run my test program the screen is written with
S1, the screen is written with the Subfile, then the S1 record clears and I see
what was originally on the screen before I ran the program (I.E. I can see the
PDM screen).
It is like S1 is windowing onto the screen or something, I don't' quite
understand
what/why it's doing this.
Regards,
Jim Langston
Gary Monnier wrote:
>
> Jim,
>
> This might seem like a silly question, but do you have an overlay keyword in
> each of your display file record formats? It might be your EXFMT is
> replacing, rather than overlaying, your other record formats. Something to
> try anyway.
>
> --
> Gary Monnier garymon@powertechgroup.com
> The PowerTech Group 253.872.7788
> PowerLock Network Security www.400security.com
>
> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of Jim Langston
> Sent: Wednesday, June 27, 2001 8:28 AM
> To: RPG400-L@midrange.com
> Subject: Re: Read subfile without clearin
>
> 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
> +---
>
> +---
> | 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
> +---
--
Regards,
Jim Langston
Me transmitte sursum, Caledoni!
+---
| 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 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.
