gnucobol-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[open-cobol-list] Sort utility within OC


From: schlehuberc
Subject: [open-cobol-list] Sort utility within OC
Date: Thu, 24 May 2007 16:16:12 -0500


MicroFocus provides the mfsort utility for the sorting of flat files using a DFSORT/Syncsort type parameter.

The product I work with is batch in nature, and uses sort about 30 times, and will expand in the future.

I searched the mailing list and forum, but could not find any discussions about a sort utility.  My search for an open source equivelant did not come up with anything.
So, two questions.

1)  Does anyone know of an open source equivilent
2)  Has any discussion been made about an ocsort that could piggyback off of the implementation of the SORT verb.  (I've started to look at it, but I'm more of a COBOL programmer than a C).


A sample sort parm card, with some other statements.

use $DD_SORTIN record=(f,171)
 SORT FIELDS=(1,38,BI,A)
  OUTFIL
    give $DD_SORTOF1
  OUTFIL
    INCLUDE=(32,7,CH,EQ,C'0000101'),
    OUTREC=(1:1,20,
            21:21,4,
            C'-',
            26:25,2,
            C'-',
            29:27,2,
            31:29,143)
    give $DD_SORTOF2 record=(f,173)

OR


use $DD_SORTIN record=(f,698)
 SORT FIELDS=(619,40,CH,A,71,4,CH,A,65,2,CH,A,
              68,2,CH,A,361,16,CH,A,665,4,CH,A
              659,2,CH,A,662,2,CH,A,377,8,CH,A,
              385,19,CH,A)
 OUTREC FIELDS=(1:1,91,
                X'999C',
                94:94,605)
give $DD_SORTOUT



Thanks.

Cris Schlehuber

reply via email to

[Prev in Thread] Current Thread [Next in Thread]