RE: Subfile question

[RPower@xxxxxxxxxx]

Yeah, that's pretty much what I had thought about doing.  Too bad they 
don't support that like it is in a regular record format.

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




"Fisher, Don" <Dfisher@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/12/2004 12:25 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: Subfile question






I've been programming subfiles for a long time and have never discovered 
an
easy way around this.  Perhaps someone else on the list has had success 
and
will share.  Failing that, try the following: 

Define one field as 10A B with CHGINPDFT and an indicator for DSPATR(PR) 
and
DSPATR(UL).  When you want to display "TOTAL:", activate the indicator for
DSPATR(PR) and populate the field with that value. 

When you want the date field to be entered, it gets trickier.  You'll need 
a
procedure to edit the character field to ensure the entry of numeric
characters in succession with no other characters except blanks.  You can
then use TEST(D) to determine if the entered values are a date.
%CHAR(%DATE(<extracted numeric values>:*ISO):*ISO) can be used to populate
the screen field with the formatted version of the entered values. 

Hope that helps. 

Donald R. Fisher, III
Project Manager
Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@xxxxxxxxxxxxx

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