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

Hi Frank

The added bonus of this method generally is that you can omit blank lines to
keep things tidy.  However, Ron's example has the fields as input capable so
assuming that he wants to enter the employment history into the system he
would be better off using a multi-line subfile.

All the best

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: 08 December 2004 14:27
To: CN=RPG programming on the AS400/O=iSeries
Subject: Re: Assistance with subfile???




For me, the easiest way to duplicate what you're trying to do, is to have
one subfile field 70+ positions long and build the subfile field each time
it's written. Use some kind of routine to do the following:

==================================================
EVAL SFLFIELD = 'EMPLOYER NAME:' + %TRIM(EMPNAME)
EVAL SFLRRN = SFLRRN + 1
WRITE SFLRECORD

EVAL SFLFIELD = 'ADDRESS:' + %TRIM(EMPADR1)
EVAL SFLRRN = SFLRRN + 1
WRITE SFLRECORD

EVAL SFLFIELD = 'CITY:' + %TRIM(EMPCITY)
EVAL %SUBST(SFLFIELD:50:3) = 'ST:'
EVAL %SUBST(SFLFIELD:54:2) = EMPSTATE
EVAL SFLRRN = SFLRRN + 1
WRITE SFLRECORD

ETC.....
===================================================

HTH,

Frank





"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>@midrange.com on
12/08/2004 08:55:01 AM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@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.