Here I stand.
Cap in hand
Head bowed
After drinking my 9th cup of 24 ounce 7-11 coffee
MUCH appreciated
This gives me EXACTLY what I am looking for
VERY, VERY neat
Thanks
p.s. like I said, me just being my usual dense self
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
mgarrison@werner.
com
Sent by: To
midrange-l-bounce Midrange Systems Technical
s@xxxxxxxxxxxx Discussion
<midrange-l@xxxxxxxxxxxx>
cc
02/25/2010 09:18
AM Subject
Re: Tabbing to a field defined as
output on a subfile display
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
Maybe after you have had your second cup of coffee you should give my
program a try. Even though FLD0001, FLD0002, FLD003, FLD004 are defined
as a (B)oth field in column 38 the I in column 35 Inhibits Keyboard entry.
When executing my sample program you will see that you can tab into the
FLDxxx fields but are unable to enter any data. So, to answer your
question if you changed the first field in your subfile to a (B)oth field
in col 38 and I in col 35 and specified the ENTFLDATR keyword it will
provide what I believe you are asking for.
From: Alan Shore <AlanShore@xxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Cc: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
midrange-l-bounces@xxxxxxxxxxxx
Date: 02/25/2010 07:48 AM
Subject: Re: Tabbing to a field defined as output on a subfile
display
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Thanks for your reply
Maybe its too early in the morning, or not enough coffee or me just being
my usual dense self, but what is it that will give me what I am asking for
If its the ENTFLDATR, this will NOT give me the ability to tab down to a
field that is defined as output.
If you read my original e-mail, ALL the fields on the sub file are defined
as output, so unless someone knows of a neat trick, there is no way to tab
down to the first field of each successive line
However, I did a search on ENTFLDATR and came up with (amongst others) the
following web site
http://www.mcpressonline.com/programming/rpg/tips-and-techniques-entfldatr.html
DEFINITELY worth remembering
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
mgarrison@werner.
com
Sent by: To
midrange-l-bounce Midrange Systems Technical
s@xxxxxxxxxxxx Discussion
<midrange-l@xxxxxxxxxxxx>
cc
02/24/2010 06:07
PM Subject
Re: Tabbing to a field defined as
output on a subfile display
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
Alan,
Please see sample DSPF and RPGLE code below that may accomplish what you
are asking for. Hopefully it helps.
DSPF
A DSPSIZ(24 80 *DS3)
A INDARA
A CA03(03 'EOJ')
A*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
A*? MAIN SUBFILE
A*_______________________________________________________________
A R MAINS1 SFL
A SELECTFLD 1 B 5 2
A 5 5'Sfl Rcd#'
A MAINS1RRN 4Y 0O 5 14EDTCDE(Z)
A FLD001 10I B 5 20CHGINPDFT
A ENTFLDATR((*DSPATR HI RI))
A FLD002 10I B 5 32CHGINPDFT
A ENTFLDATR((*DSPATR HI RI))
A FLD003 10I B 5 44CHGINPDFT
A ENTFLDATR((*DSPATR HI RI))
A FLD004 10I B 5 56CHGINPDFT
A ENTFLDATR((*DSPATR HI RI))
A*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
A*? MAIN SUBFILE CONTROL
A*_______________________________________________________________
A R MAINC1 SFLCTL(MAINS1)
A OVERLAY
A 28 SFLDSP
A 28 SFLDSPCTL
A N28 SFLCLR
A SFLSIZ(0019)
A SFLPAG(0017)
A 4 2'S'
A DSPATR(UL)
A 4 5'Sfl Ctl Rcd '
A DSPATR(UL)
A 4 20'Field 1 '
A DSPATR(UL)
A 4 32'Field 2 '
A DSPATR(UL)
A 4 44'Field 3 '
A DSPATR(UL)
A 4 56'Field 4 '
A DSPATR(UL)
RPGLE
F#TESTDSPF cf e workstn indds(IndDs)
F sfile(MainS1:MainS1Rrn)
D IndDsPtr s * inz(%addr(*in))
D IndDs ds based(IndDsPtr)
D dspMainSfl n overlay(IndDs:28)
D SflFields ds
D FLD001 inz('Field 1')
D FLD002 inz('Field 2')
D FLD003 inz('Field 3')
D FLD004 inz('Field 4')
D MainS1Rrn s 4 0
/free
dspMainSfl = *on;
for MainS1Rrn = 1 to 25;
write MainS1;
endfor;
exfmt MainC1;
*inlr = *on;
return;
/end-free
From: Alan Shore <AlanShore@xxxxxxxx>
To: midrange-l@xxxxxxxxxxxx
Date: 02/24/2010 03:57 PM
Subject: Tabbing to a field defined as output on a subfile display
Sent by: midrange-l-bounces@xxxxxxxxxxxx
__________________
Good afternoon everyone
I have built a subfile display that ALL the fields are output only
Each line contains a number of different field
FieldA FieldB FieldC
FieldD
that are repeated a number of times (with differing values) on the screen
What I would like to do is start at the first line on FieldA, and then Tab
down to the next FieldA, then Tab down to the next FieldA (in this
instance
- 3rd line)
As ALL of these fields are output only, how can this be achieved.
Thanks in advance
As always - any and all help MUCH appreciated
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
midrange.com
