× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. December 2004

RE: Assistance with subfile???

Did you get the example I sent?

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:52 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???






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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.