RE: [COBOL400-L] subfile question

["Laurie Barnett" <labernat@xxxxxxxxxxx>]

  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-request@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-request@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.
  >