|
midrange.com
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.
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.
