× 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.



Really.  Well that's interesting.  Thank you.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Paul Morgan" <pmorgan@xxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/12/2004 12:22 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Re: Subfile question






Ron,

You can use an option indicator on those fields as long as you code the
subfile with SUBSIZ=SFLPAG.   Which means you have to control the roll
forward and backward in your program.  Here's an example which uses
*IN01=*ON for the total line and *IN01=*OFF for the date line:

     A          R SUBFILE                   SFL
     A  01                              3  1'Total:'
     A  01        CHAR          10A  B  3  8
     A N01                              3  1' Date:'
     A N01        DATE           8  0B  3  8EDTWRD('    /  /  ')
     A          R CONTROL                   SFLCTL(SUBFILE)
     A  31                                  SFLDSP
     A N30                                  SFLDSPCTL
     A  30                                  SFLCLR
     A                                      SFLSIZ(0005)
     A                                      SFLPAG(0005)

Hope this helps,
Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333
<RPower@xxxxxxxxxx> wrote in message
news:OF844E2CD6.D897C717-ONA3256F5E.0054EA9F-A3256F5E.005585E4@xxxxxxxxxxxx
.
> Ok,
> I have a subfile record where I'd like to display a character field with
> the value 'TOTAL: ' or an input/output field for date depending on the
> type of record it is.  If it is a Total record, then I want the char 
field
> to display (it's 10 long), if not I want the 8 signed date field with 
edit
> word ('    /  /  ') making it 10 long.  Here's the catch, I want to have
> both in the same starting position.  Now, it won't let me using an
> indicator on the fields for which one to display because it won't 
compile.
>  I tried using DSPATR(ND) based on the indicator, but there's an issue
> with that as well.  Because DSPATR(ND) still outputs the field, just 
hides
> it, and uses a bit code to do it, on the records with the date I see the
> date field, but the total records I see nothing because the date field 
is
> saying ND and thus causing the char field which is in the same place to 
ND
> as well.  Basically to sum it up, make two fields occupy same space in a
> subfile record, one or other shows depending on a condition.  Thanks,
>
>
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
>
___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> --
> 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 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.