RE: Chaining to a SFLRCD

[Shelly.Sommerfeld@xxxxxxxxxxx]

Ron,

The way that my program is set up is that in my house keeping it does the
initial initialize.  Then I will go thru and see what function key was
pressed then from there I will do all my calculations with arrays and what
not and move all the values to the fields on the screen that is when I chain
with my RRN and with the debug that I use I can check to see what the values
are.  And all the values are there in the screen's fields but as soon as I
Chain they get zeroed out before I can do the update.  If need to I can
paste some of the code out.

Thanks for the Help
Shelly

-----Original Message-----
From: Ron Harvey [mailto:ron.harvey2@xxxxxxxxxxx] 
Sent: Friday, March 12, 2004 4:15 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Chaining to a SFLRCD


Shelly,

 

It sounds to me like you have not loaded any data into the subfile. When you
initialize a subfile, the values are zeros and blanks.

If you then chain to the subfile, all subfile fields will be overlaid by the
subfile values (blanks or zeros). 

 

Are you accumulating the data from the other files into subfile field names,
then chaining to the subfile?

Have you done anything with the subfile since initializing it, write or
update?

 

Ron

  

 

 

 

 

 

date: Fri, 12 Mar 2004 12:30:56 -0600

from: Shelly.Sommerfeld@xxxxxxxxxxx

subject: Chaining to a SFLRCD

 

Hi All,

 

I am having a bit of a problem with my subfile and chaining to it.  I have
done everything the exact same way as my other subfiles that I have done but
this one doesn't seem to want to work.  here is what I do:

 

I will first Initialize the subfile control.  EXFMT on the subfile to
display my screen.  I will then enter in the information that I am asking
for.  I will process that information for a single record (read from other
files and held into an array) Chain out the SFLRCD then update.  Continue
the process until it meets my counter.  

 

Any way when I go to Chain it clears my SFLRCD fields out.  I have double
checked my indicators, my dds, everything that I can think of.  My other
co-worker and I can't seem to figure this one out.  

 

Any advice or Ideas would be greatly appreciated!!

 

Shelly Sommerfeld

Programmer/Analyst

Bureau of Information and Telecommunications

Team 3

(605)773-5808

 

_______________________________________________
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.