× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I assume this would go into the SFL record for a subfile versus the control 
record, correct? or does it matter?


On Thu, 12 Jan 2006 14:54:17 -0330, RPower wrote
> On the DDS for the screen:
> A                                      RTNCSRLOC(&RCD &FLD &POS)
> A            RCD           10A  H
> A            FLD           10A  H
> A            POS            4S 0H
> 
> &FLD will return the actual field name that the key is pressed on.
> 
> c                   select 
> c                   when      fld = 'HAPRNT' 
> c                   movel     prmeq#        haprnt 
> c                   when      fld = 'HAOTH1' 
> c                   movel     prmeq#        haoth1 
> c                   when      fld = 'HAOTH2' 
> c                   movel     prmeq#        haoth2 
> c                   when      fld = 'HAOTH3' 
> c                   movel     prmeq#        haoth3 
> c                   when      fld = 'HAOTH4' 
> c                   movel     prmeq#        haoth4 
> c                   when      fld = 'HAOTH5' 
> c                   movel     prmeq#        haoth5 
> c                   other 
> c                   movel     prmeq#        hamont 
> c                   endsl
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of 
> enthusiasm. - Sir Winston Churchill
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/12 02:46 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: Problem w/ Window subfile not called
> 
> Is there a way to also get the field I am on?
> 
> On Thu, 12 Jan 2006 14:33:02 -0330, RPower wrote
> > SFLRCDNBR(CURSOR)
> > returns the sfl record number at the point where the cursor is.  Use 
> > the sflrcdnbr to chain to the subfile to get your input.
> > 
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > 709-576-8132
> > rpower@xxxxxxxxxx
> > http://www.stjohns.ca/
> > 
> ___________________________________________________________________________
> > Success is going from failure to failure without a loss of 
> > enthusiasm. - Sir Winston Churchill
> > 
> > Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx> 
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 2006/01/12 02:24 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: Problem w/ Window subfile not called
> > 
> > On Thu, 2006-01-12 at 09:55 -0700, steema@xxxxxxxxxxxxx wrote:
> > > My problem now is that the file to base this on has changed.
> > > But in general, how do I get the data from the window subfile?
> > > 
> > > WHen they hit enter, there is this underline feature to this subfile. 
> > One
> > > of those is underlines by the scrolling keys. How do I capture this
> > > selection?
> > > 
> > > POSITION TO DESIRED CLS
> > > PRESS F12 TO RETURN
> > > 
> > > CLASS CODE          CLASS DESC.
> > > AAA EEERFERFEEEEEEEEEEEEEEEEE
> > > ACC AAA
> > > BBB CLASS
> > > CCC SSS
> > > CLB CLUB
> > > CL2 CLASS TEST TEST
> > > FFF FFFFFFFFFFFFFFFFFFFFFFFFF
> > >
> > 
> > You can get a record out of the subfile by it's ordinal number.  The
> > first record is 1, the second record is 2, and so on.
> > 
> > Get the fifth subfile record:
> > 
> > chain 5 subfile;
> > if %found(subfile);
> >     // got the fifth record, do something.
> > endif;
> > 
> > POSITION TO DESIRED CLS
> > > PRESS F12 TO RETURN
> > >
> > 
> > Many subfiles use the IBM convention and have an input field on each
> > line where the user can indicate an action, like 2=Change, 5=Display 
> > and so forth.  In that case, you read all the subfile records and 
> > check the selection field to see what action to perform.
> > 
> > Yours, however, appears to be driven by the cursor location.  Have a
> > look at documentation for the RTNCSRLOC dds keyword.  There is probably
> > some translation in the code from the row number (or perhaps a field
> > name) to the subfile record number.
> > 
> > -- 
> > 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.
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.