|
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.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
