× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You can also code the SFLRCDNBR keyword in your subfile then position to 
the record.  I like this because the user can still page up and down 
through the whole subfile.  Sometimes users don't understand when the 
subfile starts somewhere in the middle and they press 'page-up' and 
receive a message saying they're at the top of the subfile.  Here's a very 
abbreviated sample of the coding:

In the display-file DDS, code  the following keyword on the record (before 
any fields are defined):

     A            SFLRCDNBR      4S 0H      SFLRCDNBR(CURSOR)

In your program, read sequentially through the subfile and compare the 
position-to value:

       .       .       .
       .       .       .
       .       .       .

           perform Scan-subfile
               varying SFLRRN from 1 by 1
               until SFLRRN > Save-max-rrn

       .       .       .
       .       .       .
       .       .       .

       Scan-subfile.
           read subfile Display-file
                   into        List-detail
                   format      'DETAIL'
                   invalid key
                       continue
           end-read
           if Lastname of List-detail >= Save-lastname
           or SFLRRN = Save-max-rrn
               move SFLRRN to SFLRCDNBR
               move Save-max-rrn to SFLRRN
           end-if

Original message:

------------------------------
date: Fri, 7 Apr 2006 12:28:19 +0800 
from: "Bhat, Chandra" <Chandra.Bhat@xxxxxxxxxxxx>
subject: [COBOL400-L] How to view data in alphabetical order in a
                 subfile

Folks,
 
In the below subfile, The records are displayed in the alphabetical order.
Now, what I want to know is how can I view records from a particular
customer name starting with alphabet say 'P' if when I enter P or PXXXXX 
in
the 'Position' to field? 
 
 
                                                              Position to 
.
. . . . 
 

 Type options, press Enter.

  2=Edit       3=Add     4=Delete 
 
     Cust.Name     City                     A/c No

      A1                MUMBAI              10001

      A2                DELHI                  10002

      B1                HYDERABAD       20001

      B2                KOLKATA            20002

      C1                PUNE                  30001

      C2                CHENNAI             30002

      D1                BANGALORE       40001

      D2                NAGPUR              40002

      -                    - 
      -                    - 
 
Rgds
 

       .       .       .
       .       .       .
       .       .       .
 



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.