RE: Assistance with subfile??? -- RPG400-L

What is the error you are getting?

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 01:23 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: Assistance with subfile???






Jonothan,
I made the changes you suggested earlier, with the SFLLIN and the SFLSIZ 
to 
a 3 but I still getting error when I try to add the fields to the SFL 

Here is the DDS:

 A          R RECCTL                    SFLCTL(RECSFL) 
 A*%%TS  SD  20041208  114704  DPALME      REL-V5R2M0  5722-WDS 
 A  51                                  SFLDSP 
 A  51                                  SFLDSPCTL 
 A  52                                  SFLCLR 
 A                                      SFLSIZ(0003) 
 A                                      SFLPAG(0002) 
 A                                  4  7'EMPLOYER NAME:' 
 A                                  5  7'ADDRESS:' 
 A                                  6  7'CITY:' 
 A                                  6 41'ST:' 
 A                                  7  7'PHONE:' 
 A                                  7 42'FAX:' 
 A                                  8  8'START DATE:'
 A                                  8 42'END DATE:' 
 A                                  9  8'REASON:' 

On Wed, 8 Dec 2004 16:30:44 -0000, Jonathan Mason wrote
> Oops, guess I should follow the thread a bit more closely ;-)
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of RPower@xxxxxxxxxx
> Sent: 08 December 2004 15:01
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Assistance with subfile???
> 
> Doh I left that SFLLIN in there didn't I.  BTW, this was in response 
> to Douglas's question.  I coded the subfile to help him out lol.
> 
> 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
> 
> "Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 08/12/2004 11:04 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
> RE: Assistance with subfile???
> 
> Hi Ron
> 
> You're on the right track, a subfile is ideal for what you want.
> 
> First thing, take out the SFLLIN keyword, that causes records to be
> displayed in columns.  For example without SFLLIN specified you 
> normally get the records shown as:
> 
>                  Record 1
>                  Record 2
>                  Record 3
>                  Record 4
> 
> With SFLLIN(5) you would get
> 
>                  Record 1     Record 3
>                  Record 2     Record 4
> 
> The (5) being the number of spaces between columns.
> 
> Next, change the SFLSIZ to SFLSIZ(3) to define the subfile as an 
extending
> subfile.  The program then handles the page forward and you can 
> either add blank records to the subfile for entry or load from the 
> employees employment history as necessary.  You will need to add the 
> SFLEND keyword 
> (conditioned on an indicator) for this.
> 
> I would also add the following line to the subfile record so that 
> you get a blank line between each record:
> 
>      A                                 13  1' '
> 
> Hope it helps
> 
> All the best
> 
> Jonathan
> www.astradyne-uk.com
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of RPower@xxxxxxxxxx
> Sent: 08 December 2004 14:16
> To: RPG programming on the AS400 / iSeries
> Subject: 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.
> 
> --
> 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.
> 
> --
> 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.


--
Open WebMail Project (http://openwebmail.org)

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