Re: How to view data in alphabetical order in a subfile

[MichaelQuigley@xxxxxxxxxx]

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
 

       .       .       .
       .       .       .
       .       .       .