|
midrange.com
Thanks...that helps a lot
On Wed, 8 Dec 2004 18:09:11 -0000, Jonathan Mason wrote
> Hi Douglas
>
> Normally the "static" fields and column headings would go in the Subfile
> Control record, however as you're creating a multi line subfile
> record you ought to have the labels on the subfile record as well:
>
> A R REC
> A SFL
> A 4 7'EMPLOYER NAME:'
> A EMPLYR 40 O 4 22
> A 5 7'ADDRESS:'
> A ADDR 40 O 5 22
> A 6 7'CITY:'
> A CITY 15 O 6 22
> A 6 41'ST:'
> A STATE 2 O 6 45
> A 7 7'PHONE:'
> A PHONE 15 O 7 14
> A 7 42'FAX:'
> A FAX 15 O 7 47
> A 8 8'START DATE:'
> A STRDTE 8 0O 8 20EDTWRD(' - - ')
> A 8 42'END DATE:'
> A ENDDTE 8 0O 8 52EDTWRD(' - - ')
> A 9 8'REASON:'
> A REASON 15 O 9 22
> A 10 1' '
> A R RECCTL SFLCTL(RECSFL)
> A 51 SFLDSP
> A 51 SFLDSPCTL
> A 52 SFLCLR
> A 53 SFLEND
> A SFLSIZ(0003)
> A SFLPAG(0002)
> A 2 3'Truck Driving Information'
>
> The field names and row/column positions will need to be changed to
> suit how you want them set out. I've assumed that you only want to
> display the values, if you want to input values into the subfile
> then change the "O" before the row number to "B".
>
> All the best
>
> Jonathan
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> Sent: 08 December 2004 17:22
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Assistance with subfile???
>
> I thought the static fields went on the CTL record? At least that is
> what I was shown how to do it, maybe I have been all of them
> incorrectly LOL......
>
> I'll try that and see if that makes any difference.
>
> On Wed, 8 Dec 2004 11:08:08 -0600 , Holden Tommy wrote
> > the text & fields for the SFL should be on the RECSFL record format
> > not the RECCTL format....could that be you're problem??
> >
> > Thanks,
> > Tommy Holden
> >
> > -----Original Message-----
> > From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxxxxxxxxxxxx]
> > Sent: Wednesday, December 08, 2004 10:54 AM
> > To: RPG programming on the AS400 / iSeries
> > 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.
> > --
> > 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.
>
> --
> 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)
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.
