RE: subfile question -- COBOL400-L

George,

If your not doing page-at-a-time loading of
your subfile (i.e. your loading all records)
then it's fairly simple to locate and
position yourself (and still permit normal
page up/down processing).

E-mail me privately and I can send an 
example to you.
        
Terry    

> -----Original Message-----
> From: cobol400-l-bounces@xxxxxxxxxxxx 
> [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Van 
> Eaton, George
> Sent: Tuesday, February 08, 2005 11:28 AM
> To: 'COBOL Programming on the iSeries/AS400'
> Subject: RE: [COBOL400-L] subfile question
> 
> 
> 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>,<mailt
> o: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>,<mailt
> o: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.
> _______________________________________________
> 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.
>