I want to use condition check in sort.

amardeep_sahoo · New User Joined: 21 Oct 2008 Posts: 4 Location: India

Hi! I have a problem related to SORT utility. I want to check certain conditions while copying from sortin to sortout.
If the condition satisfies, then i need a particular character constant in a particular position of the output rec. If the condition is not satisfied, then it should copy the input rec as it is as per the position specified in the outrec.
Could anyone help me on this?

Escapa · Posted: Mon Nov 03, 2008 11:26 am

You need to post sample input data with file specification like LRECL, RECFM and also expected output.

amardeep_sahoo · New User Joined: 21 Oct 2008 Posts: 4 Location: India

Input data I have is as below:

2008103018500313502008103022595379PAL00015612632FE
2008103018500313502008103022595379PAL01023277632FE
2008103018500313502008103022595379PAL04016452632FE

In the output dataset, I want
1. At the first 9 positions in the output file, I want the 9 characters from position 37 of the input file.
2. I want the records to be copied into the output file starting from the 22nd record in the output file.
2. At the end, I want to have a ')' symbol in the output file.

The file should look like this:

.
.
.
.
L00015612 (This should be the 22nd record in the outputfile)
L01023277
L04016452
)

Escapa · Posted: Mon Nov 03, 2008 11:51 am

Does output dataset is already present and have 21 records?
or it has many records and you want to insert your records starting from 22nd record?

amardeep_sahoo · New User Joined: 21 Oct 2008 Posts: 4 Location: India

The output dataset is already present and already has 21 records.
I want to start inserting from the 22nd record.

keyarika · New User Joined: 24 May 2008 Posts: 10 Location: bangalore

Hi,
Have you treid anything!!

gcicchet · Posted: Mon Nov 03, 2008 1:15 pm

Hi,

amardeep_sahoo · New User Joined: 21 Oct 2008 Posts: 4 Location: India

I have just tried
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:37,9)
SUM FIELDS=NONE
/*

This only copies the fields starting from position 37 till 9 characters into the output file.
But I need the sort to start writing from record 22 in the output file and at the end of the list I need it to insert a ')' symbol.

Escapa · Posted: Mon Nov 03, 2008 5:52 pm

I assume you need first 21 lines of output file as blank records and then required records and last record as '('

Skolusu · Posted: Mon Nov 03, 2008 11:29 pm

You can do this kind of thing quite easily and efficiently with the new DATASORT function of DFSORT available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) like this. The first 21 records are copied as is and starting from 22nd record we take 9 bytes from pos 37 and sort and remove the duplicates and append a ')' at the end of the list.