SORTING array which has values from database

sasikumar1984 · Posted: Tue Mar 31, 2009 9:49 pm

Hi,

I have an array with below structure

01 WRK-CLOTHES OCCURS 10 TIMES
05 WRK-CLOTH PIC X(4)
05 WRK-VALUE PIC S9(3)V9(2)

I have filled the array already with values from database, now i want sort above array and fill the data in the below array

01 YRK-CLOTHES OCCURS 10 TIMES
05 YRK-CLOTH PIC X(4)
05 YRK-VALUE PIC S9(3)V9(2)

the different type of WRK-CLOTH are 'A001' 'A002' 'C001' 'C002' and few other values that start with 'B' or 'D'. Now i want sort the array such a way that first it should fill A001 and A002 and then that starts with 'B' or 'D' by highest WRK-VALUE to lowest WRK-VALUE and then C001 and C002. i may or may not gey A001, A002, C001, C002. Some timesi get one of this or two of this. its like depends. But the if it there then it should follow the order for SORTING.

Here is the eg:

A001 01020
B001 01030
B003 10400
B005 60500
C001 00920

My sorted array shoul be like this

A001 01020
B005 60500
B003 10400
B001 01030
C001 00920

Can someone provide me sample code for this. so that i will develop as per my values.

Thanks in advance,
Anand

dick scherrer · Posted: Wed Apr 01, 2009 12:07 am

Hello,

You need to post a more complete set of example data. SHow multiple A, C, and D entries in both the input and output.

An easy thing for you to do would be to use an SD and an internal SORT to arrange the data in the order you want.

sasikumar1984 · Posted: Wed Apr 01, 2009 12:13 am

i gave simple example which solves my problem also. what is SD? i dont understand that. And internal SORT?? can someone provide me some sample code??

Robert Sample · Posted: Wed Apr 01, 2009 12:18 am

If you have an A001 and A002, what order to you expect them in the output? Ditto for C001 and C002? You did not provide any explanation in your sample as to what to do in these cases.

There's a link at the top of the page to manuals -- the COBOL Language Reference and Programming Guide have details about using the SORT verb in COBOL to do an internal SORT using the SD file definition clause, which is used instead of FD for sorts. You can also find out about INPUT PROCEDURE and OUTPUT PROCEDURE which gives even more control over the sort.

sasikumar1984 · Posted: Wed Apr 01, 2009 12:29 am

if its A001 or A002, then it can be filled immediatly, no need to check the balances, but begingin of the array. Like that C001 and C002, but at end of the array. only for 'B' or 'D' series we need check value variable and fill from highest to lowest inbetween A and C series. If there is no A series means then it will start with E series and C series always end. And if there is not A and C series means then only E series with sorted order. hope i am clear here.

Robert Sample · Posted: Wed Apr 01, 2009 12:35 am

What you are saying is not clear to me. Are you stating that there will only be one A record? If this is not what you are saying, do you care if the order is A002 A001 ... versus A001 A002? The same applies for the C records -- is there only ever one? If there is more than one, do you care which order they come out in?

sasikumar1984 · Posted: Wed Apr 01, 2009 12:44 am

Hai Robert,

here is the example...

First array

A001 01020
C001 00920
C002 00890
B001 01030
B003 10400
B005 60500
C001 00920

My SORTED array should be

A001 01020
B005 60500
B003 10400
B001 01030
C001 00920
C002 00890

We are not sure i always receieve A001 and A002. sometime i receieve both and sometimes only one and sometimes none from A series. Like that C series also. E series should be sorted based on VALUES and should be inbwteen A and C series.

sasikumar1984 · Posted: Wed Apr 01, 2009 12:46 am

Hai Robert,

here is the example...

First array

A001 01020
C001 00920
C002 00890
B001 01030
B003 10400
B005 60500

My SORTED array should be

A001 01020
B005 60500
B003 10400
B001 01030
C001 00920
C002 00890

We are not sure i always receieve A001 and A002. sometime i receieve both and sometimes only one and sometimes none from A series. Like that C series also. E series should be sorted based on VALUES and should be inbwteen A and C series.

dick scherrer · Posted: Wed Apr 01, 2009 12:47 am

Hello,

Robert Sample · Posted: Wed Apr 01, 2009 1:04 am

Until you put this up

sasikumar1984 · Posted: Wed Apr 01, 2009 7:21 am

I have to do it in COBOL. Not in JCL SORTCARD. in comes in mid of the program.

Robert Sample · Posted: Wed Apr 01, 2009 8:01 am

Not a big deal -- the sort SD can be any layout you want. Define the SD 01 as

dick scherrer · Posted: Wed Apr 01, 2009 8:08 am

Hello,

dick scherrer · Posted: Wed Apr 01, 2009 8:13 am

Hi Robert,

I believe the sort needs 3 sort keys (one for the first byte, one for those that are ascending and another for descending) and the code needs to use one or the other of the a/d sort keys depending on the first byte.

If i've not misunderstood something. . .

Robert Sample · Posted: Wed Apr 01, 2009 4:38 pm

Dick: if the first character of the record is B or D, I recommended in my earlier post moving the value to the sort extra field, otherwise setting the sort extra field to 999 minus the value. That way, using my suggested sort, the record is sorted on the first byte, then ascending on the next three bytes if the first byte is A, C, E but descending for B and D.

dick scherrer · Posted: Wed Apr 01, 2009 8:13 pm

Yup, saw that earlier, but didn't see it in the code snippet.

Then i got to thinking (probably not a good thing

) that having an asecnding field and a descending field might be easier for some to handle than inverting the number. . .

Maybe we'll hear back on what progress has been made. . .

d