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