Re: Assistance with subfile???

It compiled fine for me.

Here's the source I ended up with, forgive the default field naming, just 
a quickie.

     A*%%TS  DD  20041208  104346  RPower      REL-V5.0.1  WDSc
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R RECORD1
     A*%%TS  DD  20041208  104346  RPower      REL-V5.0.1  WDSc
     A                                      SFL
     A                                  7  3'Employer Name:'
     A                                  8  3'Address:'
     A            FIELD1        30   B  7 23
     A            FIELD2        30   B  8 23
     A                                  9  3'City:'
     A            FIELD3        30   B  9 23
     A                                  9 54'ST:'
     A            FIELD4         2   B  9 58
     A                                 10  3'Phone:'
     A            FIELD5        10Y 0B 10 23EDTWRD('(   )   -    ')
     A                                 10 39'Fax:'
     A            FIELD51       10Y 0B 10 47EDTWRD('(   )   -    ')
     A                                 11  3'Start Date:'
     A                                 12  3'Reason For Leaving:'
     A            FIELD52        8Y 0B 11 23EDTCDE(Y)
     A            FIELD521       8Y 0B 11 50EDTCDE(Y)
     A                                 11 39'End Date:'
     A            FIELD31       30   B 12 23
     A*%%GP SCREEN1    01
     A          R RECORD1CTL
     A*%%TS  DD  20041208  104346  RPower      REL-V5.0.1  WDSc
     A                                      SFLCTL(RECORD1)
     A                                      SFLDSPCTL
     A                                      SFLDSP
     A                                      SFLPAG(2)
     A                                      SFLSIZ(2)
     A                                      SFLLIN(5)
     A                                  2  3'Truck Driving Information'
     A*%%GP SCREEN1    02

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




"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/12/2004 10:25 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Assistance with subfile???






One of the modules I am working on is for trucking recruiting and I am not 

sure if it can be implemented the way I have envisioned it.

When a truck driver calls us to apply for a job, we of course enter their 
relevant information into the system, name, address, phone, date of birth, 

etc.  Included in that is their work history for the past ten years.  It 
is 
the work history that I am having a problem with.

We basically get the following information:  Employers name, address, 
city, 
state, zip, phone, fax, start date, end date, and reason for leaving. 

I was wanting to display this information in a subfile like the following, 

with up to two employers per page:



EMPLOYER NAME: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
ADDRESS:       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
CITY:          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  ST: XX
PHONE:         XXXXXXXXXX        FAX:      XXXXXXXXXX
START DATE:    XXXXXXXX          END DATE:   XXXXXXXX
REASON FOR LEAVING:   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


However, when I try to setup the subfile it errors out telling me that I 
am 
overlaying the fields, or something like that....so I started thinking 
that 
maybe a subfile wasn't the best way to do this....

I am open to suggestions or ideas that someone else may have....it would 
be 
nice to see several employers at once.

the other thought I had was display the name and dates of empoyment in a 
subfile and allow the recruiter to select an entry to drill down to the 
detail...but since I have never done selections within a subfile that 
might 
be getting beyond my abilities.

Douglas

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