Re: Tabbing to a field defined as output on a subfile display

[Alan Shore <AlanShore@xxxxxxxx>]

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.