RE: Side By Side Subfile -- RPG400-L

That is true, it looks pretty good when you define the wdwborder that way. 
 Was just curious if there was an easier way.  Didn't want the user to 
have to press a function key to toggle back and forth, wanted it to be 
smart enough to figure which window it was in based on positioning but I 
don't think I could get that to work could I?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




T.Bryant@xxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/10/2004 09:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Side By Side Subfile










It is not an ugly approach if you use WDWBORDER((*CHAR '        ')) which
effectively creates an invisible border.
Use a Function key to keep track of which window to write and which to
exfmt on.

 * Indicator definitions data structure
D DSPIND          DS
D  EXIT                  03     03n
D  PROMPT                04     04n
D  TOGGLE                09     09n
------------------------------------
when toggle;
    if which_one = '1';
        which_one = '2';
        rrn1 = sflrrn;
    else;
        which_one = '1';
        rrn2 = sflrrn;
    endif;
--------------------------------------------------------------------------
if which_one = '1';
    write sf2ctl;
    exfmt sf1ctl;
else;
    write sf1ctl;
    exfmt sf2ctl;
endif;

Also use the keyword USRRSTDSP on the second Subfile which will stop your
second window being removed when the first one is written again.
(Embedded image moved to file: pic00041.jpg)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Troy Bryant
Analyst Programmer
Patrick Autocare.
Phone: +61 03 9926 9913
Fax: +61 03 9926 9977
Mobile: +61 0408 397 333
T.Bryant@xxxxxxxxxxxxxx


  
                      "DeLong, Eric"   
                      <EDeLong@Sallybeau        To:       "'RPG 
programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> 
                      ty.com>                   cc:    
                      Sent by:                  Subject:  RE: Side By Side 
Subfile 
                      rpg400-l-bounces@m   
                      idrange.com   
  
  
                      11/06/2004 08:02   
                      AM   
                      Please respond to   
                      RPG programming on   
                      the AS400 /   
                      iSeries   
  
  




As suggested by the requester, this *could* be done in side-by-side window
sfl records, but the window frames (and the corresponding loss of columns)
makes this an ugly approach.  Still, if you absolutely need side by side
subfiles, you could make it work....

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Lim Hock-Chai [mailto:Lim.Hock-Chai@xxxxxxxx]
Sent: Thursday, June 10, 2004 4:53 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Side By Side Subfile


you are right side by side doesn't work.  Sorry.

It only work if it is top and bottom.  Strange.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Lokesh Gupta
Sent: Thursday, June 10, 2004 4:32 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Side By Side Subfile


Actually, I tried as you explained... but it doesn't work.
Whatever subfile you wrote later shows up and the earlier one wouldn't...
even after using 'Overlay'...




--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




This OutBound email has been scanned for Viruses