Re: old COBOL program - how to add array sort

[thomas burrows <thomas.burrows.1957@xxxxxxxxx>]

Havfe you thought about writing the array to a file that is keyed on
what your sort needs to be. Then read file back into array with your
records now sorted.

The Cobol Kid in Texas

On 3/21/12, Morgan, Paul <Paul.Morgan@xxxxxxxxxxx> wrote:
> COBOL SORT uses the same sort utility as the FMTDTA command.  Maybe calling
> out to FMTDTA would be an alternative.
>
> Have you considered coding a bubble sort?
> http://www.codecodex.com/wiki/Bubble_sort#COBOL
>
> Paul Morgan
>
> Principal Programmer Analyst
> IT Supply Chain/Replenishment
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
> Sent: Wednesday, March 21, 2012 3:47 PM
> To: 'midrange-l@xxxxxxxxxxxx'
> Subject: old COBOL program - how to add array sort
>
> I have an old COBOL (OPM) screen pgm which needs to have an internal array
> sorted.
>
>
>
> Will the COBOL "SORT" command do the job?  That is usually used for file
> sorts.
>
>
>
> The SORT command displays messages to the job log as shown below.
>
>
>
> Will this mess me up (add time and write too much stuff to the job log or
> constantly display annoying "released & returned" messages?
>
>
>
> Is there a way to suppress these msgs?  CHGJOB LOG(4 99 *NOLIST)
> STSMSG(*NONE) ??
>
>
>
> Cant seem to stop them!
>
>
>
> Should the old COBOL Sort command be used only for file sorts, and not for
> screens?  Maybe there is too much startup overhead for this COBOL command
> with an internal array.
>
>
>
> Or will it work just fine for internal small arrays?
>
>
>
> When will COBOL add the SORTA command like RPG :)
>
>
>
>
>
> Thanks
>
>
>
>
>
>
>
>
>
>                          Additional Message Information
>
>
>
>  Message ID . . . . . . :   LBE7408
>
>  Date sent  . . . . . . :   03/21/12      Time sent  . . . . . . :
> 11:51:31
>
>
>
>  Message . . . . :      30 records released to sort/merge.
>
>
>
>
>
>                         30 records returned from sort/merge
>
>
>
>
> ______________________________________________________________________
> This outbound email has been scanned for all viruses by the MessageLabs
> Skyscan service.
> For more information please visit http://www.symanteccloud.com
> ______________________________________________________________________
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.