Re: Assistance with subfile???

[fkany@xxxxxxxxxxxxxxxxxx]

Ron,

Working with subfiles can be tricky, sometimes you have to go with what you
feel comfortable with.  If the way you thought would be easier for you,
then go for it.  The way I suggested is easiest for me if I had to do what
you're trying to do.  Someone else in the list may have a way that works
for them that's different than both of ours.

Frank





RPower@xxxxxxxxxx@midrange.com on 12/08/2004 09:31:55 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:    Re: Assistance with subfile???


Wouldn't it be easier to static code the descriptors onto the screen, then
only write the subfile record for those that exist, or one more for each
time they add a new one?

Example, first time a new guy setup, F6=Add Employment History, writes out
a new subfile record for that employment history?  Then you could edit
check the record to make sure that the data is entered?

Ron Power

I wrote:
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

Ron Wrote:
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