RE: Subfile validation issues

[Michael_Schutte@xxxxxxxxxxxx]

Alright,  you need to check for  %Found() instead of %EOF().

Here's how your code should go.

DoW '1';                                // Creates and infinite loop
  Chain SFLRRN scn01b;                  // Chains to subfile record
  If not %Found(display file name);     // Check to see if subfile record
number was found
     Leave;                             // if not found, leave loop
  EndIf;
  ExSr Validate;                        // Validate subfile record
  ...                                   // do something else
  ...
  UPDATE scn01b;                        // update subfile record
  SFLRRN += 1;                          // advance to next subfile record
EndDo;

BTW, don't worry, you'll get a hang of it.  You just have to develop your
own style.



Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             Jen Raihala                                                   
             <jen_raihala@yaho                                             
             o.com>                                                     To 
             Sent by:                  Midrange Systems Technical          
             midrange-l-bounce         Discussion                          
             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
                                                                           
             03/10/2006 02:11                                      Subject 
             PM                        RE: Subfile validation issues       
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Checking for EOF (There are only 42 lines in the subfile and I want to  get
it going "manually" before stuffing it in a FOR loop).

  And only updating on the subfile (once everything is correct (and F5 is
pressed), a different loop writes to the actual pf)

  Probably duplicating and making spaghetti out of something that should be
15 lines of code I know, but I am learning slowly.

Grizzly Malchow <grizzlym@xxxxxxxxxxxxxxxxxxxxx> wrote:  Is sf1rrn equal to
the first rrn in the subfile before you chain?
When you say EOF are you chaining and checking for %EOF, or chaining and

checking for %Found, or both?
Are you only updating if the record is %FOUND in the subfile?

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jen Raihala
Sent: Friday, March 10, 2006 11:59 AM
To: Midrange Systems Technical Discussion
Subject: RE: Subfile validation issues

I have the loop set up to Chain, Validate, Update, Add one to sf1rrn.
Rinse, repeat til EOF.

  Only trouble is, I can't get through the first validate. Because of
the "without prior input" error.

  Subfiles...ya gotta love 'em :o)

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.