× 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???

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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.