RE: [COBOL400-L] subfile question

["Van Eaton, George" <George.VanEaton@xxxxxxxxxxxxxxxx>]

How would I handle a roll back?

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Laurie Barnett
Sent: Tuesday, February 08, 2005 10:25 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: RE: [COBOL400-L] subfile question


   George - I am assuming your subfile is being loaded from a keyed file.
If
   so, just read the loading file from the search key.  Reload the subfile
   starting at that point.

   >From: "Van Eaton, George" <George.VanEaton@xxxxxxxxxxxxxxxx>
   >Reply-To: COBOL Programming on the iSeries/AS400
   <cobol400-l@xxxxxxxxxxxx>
   >To: "Cobol List (E-mail)" <cobol400-l@xxxxxxxxxxxx>
   >Subject: [COBOL400-L] subfile question
   >Date: Tue, 8 Feb 2005 10:48:18 -0500
   >MIME-Version: 1.0
   >X-Originating-IP: [65.170.88.37]
   >Received: from mail.midrange.com ([69.3.23.26]) by MC6-F27.hotmail.com
   with Microsoft SMTPSVC(6.0.3790.211); Tue, 8 Feb 2005 07:48:32 -0800
   >Received: from linux.midrange.com (localhost [127.0.0.1])by
   mail.midrange.com (8.13.1/8.13.1) with ESMTP id j18FmUM3014050;Tue, 8 Feb
   2005 09:48:30 -0600
   >Received: from mail108.messagelabs.com
   (mail108.messagelabs.com[216.82.255.115])by mail.midrange.com
   (8.13.1/8.13.1) with SMTP id j18FmLRh013946for <cobol400-l@xxxxxxxxxxxx>;
   Tue, 8 Feb 2005 09:48:26 -0600
   >Received: (qmail 21764 invoked from network); 8 Feb 2005 15:48:19 -0000
   >Received: from smtpscan.meritorwabco.com (HELO
   citcon002.arvinmeritor.com)(65.170.88.37) by
   server-15.tower-108.messagelabs.com with SMTP;8 Feb 2005 15:48:19 -0000
   >Received: through eSafe SMTP Relay 1107140314; Tue Feb 08 10:48:18 2005
   >Received: by citcon002.arvinmeritor.com with Internet Mail
   Service(5.5.2657.72) id <1QQ6MNQN>; Tue, 8 Feb 2005 10:48:18 -0500
   >X-Message-Info: jl7Vrt/mfsrz1qpHAdrDKQzYYZiYNYvWiJ+8MySd/fg=
   >X-VirusChecked: Checked
   >X-Env-Sender: George.VanEaton@xxxxxxxxxxxxxxxx
   >X-Msg-Ref: server-15.tower-108.messagelabs.com!1107877699!10595823!1
   >X-StarScan-Version: 5.4.8; banners=-,-,-
   >X-Mailer: Internet Mail Service (5.5.2657.72)
   >X-Virus-Scanned: ClamAV 0.82/700/Thu Feb 3 17:33:15 2005 on
   linux.midrange.com
   >X-Virus-Status: Clean
   >X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-1.7.2
   (mail.midrange.com [0.0.0.0]); Tue, 08 Feb 2005 09:48:30 -0600 (CST)
   >X-Greylist: Default is to whitelist mail, not delayed by
   milter-greylist-1.7.2(mail.midrange.com [69.3.23.26]);Tue, 08 Feb 2005
   09:48:27 -0600 (CST)
   >X-Content-Filtered-By: Mailman/MimeDel 2.1.5
   >X-BeenThere: cobol400-l@xxxxxxxxxxxx
   >X-Mailman-Version: 2.1.5
   >Precedence: list
   >List-Id: COBOL Programming on the iSeries/AS400
<cobol400-l.midrange.com>
   >List-Unsubscribe:
 
<http://lists.midrange.com/mailman/listinfo/cobol400-l>,<mailto:cobol400-l-r
equest@xxxxxxxxxxxx?subject=unsubscribe>
   >List-Archive: <http://archive.midrange.com/cobol400-l>
   >List-Post: <mailto:cobol400-l@xxxxxxxxxxxx>
   >List-Help: <mailto:cobol400-l-request@xxxxxxxxxxxx?subject=help>
   >List-Subscribe:
 
<http://lists.midrange.com/mailman/listinfo/cobol400-l>,<mailto:cobol400-l-r
equest@xxxxxxxxxxxx?subject=subscribe>
   >Errors-To: cobol400-l-bounces@xxxxxxxxxxxx
   >Return-Path: cobol400-l-bounces@xxxxxxxxxxxx
   >X-OriginalArrivalTime: 08 Feb 2005 15:48:32.0585 (UTC)
   FILETIME=[A4604B90:01C50DF5]
   >
   >I currently have a cobol app that uses subfiles.  I have to modify that
   app
   >to add a search field for the already loaded subfile.
   >
   >My subfile, subfile1 has 4 fields, fld1, fld2, fld3, fld4.
   >
   >When the subfile is initially loaded, it can contain hundreds of
records,
   >which could take hours paging up/down to find the correct one to change
   or
   >view.  After the subfile is initially loaded, I want to take my search
   >string..srchfld and position to that value that will be in fld1.  Then
   >redisplay my subfile which is now positioned to that record.
   >
   >I cant find any good examples anywhere, which is why I am asking.
   >
   >Any good advice?
   >
   >Thanks
   >
   >George Van Eaton
   >Systems Analyst
   >ArvinMeritor
   >george.vaneaton@xxxxxxxxxxxxxxxx
   >Phone 615.221.7409
   >Fax 615.221.7185
   >
   >
   >_______________________________________________
   >This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
   list
   >To post a message email: COBOL400-L@xxxxxxxxxxxx
   >To subscribe, unsubscribe, or change list options,
   >visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
   >or email: COBOL400-L-request@xxxxxxxxxxxx
   >Before posting, please take a moment to review the archives
   >at http://archive.midrange.com/cobol400-l.
   >
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.