Quellcode-Bibliothek sortby.free.cob   Sprache: Cobol

* http://www.cobug.com/cobug/forums/cobolLang/130.shtml
*I am tasked with sorting an input file via an account
* number. This account number is not numeric, it is
* alpha numeric. It contains numbers only but can also
* have letters (in most cases). When I sort by acct
* nbr, the sort is incorrect because acct nbrs that
* are greater than others are not in the correct 
* places. Is there a way for me to sort correctly
* by just the numbers in the account number while
* ignoring the letters?

* The acct nbr can show up like the following
* examples:

* 123456ABC
* 456789
* 123ABC
* 12345678ABC
* 1234

* Thanks


* Ru1

* 4/09/2008 08:46:43
* RE: COBOL sort by


*Message:
* If the account number is an alpha field, you can
* check for numberics fir
            SD SortFile.
      01 Sort-record.
      05 sr-account-nbr-key pic 9(12).
      05 sr-account-nbr-x pic x(12).
      
      fd acct-file.
      01 acct-rec.
      05 in-acct pic x(12).
      05 in-acct-x redefines in-acct.
      10 in-acct-entry pic x(01) occurs 12.
      
      working-storage.
      05 sub Pic 9(02).
      05 ws-account-nbr Pic x(12).
      05 ws-account-nbr-n redefines ws-account-nbr
      pic 9(12).
      
      05 ws-account-nbr-t redefines ws-account-nbr.
      03 ws-acct-entry pic x(01) occurs 12.
      
      05 ws-ctr pic 9(01) value zeros.
      
      Procedure Division.
      
      read record.
      move in-acct to ws-account-nbr.
      if in-account-nbr numeric
      move ws-account-nbr-n to sr-account-nbr-key
      else
      perform 0000-handle-alpha.
      
      0000-handle-alpha.
      move spaces to ws-account-nbr.
      perform 0000-build-sort-key
      varying sub from 1 by 1
      until sub > 12
      or in-acct-entry(sub) numeric.
      
      move ws-account-nbr-n to sr-account-nbr-key.
      
      0000-build-sort-key.
      move in-acct-entry(sub) to ws-acct-entry(sub).