MVSFORUMS.com

Sumathi · Beginner Joined: 24 Mar 2004 Posts: 13 Topics: 3

Hi,

I have used the piece of jcl found in this forum, for my requirement. (My requirement is 2 files have to merged, duplicates have to be eliminated and results have to written into another dataset ). My jcl is

Frank Yaeger · Posted: Wed Mar 31, 2004 7:38 pm Post subject:

This DFSORT job is equivalent to using a DFSORT/ICETOOL SELECT statement like the following:

Sumathi · Beginner Joined: 24 Mar 2004 Posts: 13 Topics: 3

Hi Frank,

I tried select with NODUPS option earlier. The error msg what I got was,

SYSIN :
SELECT FROM(SORTIN) TO(SORTOUT) ON(1,14,CH) NODUPS
*
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

As required the example are given below;

1. VSAM File : lrecl 80 ; keys 1 to 14
2. Input file : lrecl 80 ;

Objective : The keys found in the input file will be used to delete the corresponding records in the vsam file.

To do that, the vsam file records will be repro'ed first and merged with input file and duplicates has to be removed. Then, the remaining records willbe repro'ed back to vsam file. But I could see that the record is not getting deleted. I do not know is there anything needs to be changed in the sort parameter. Please let me know.

Thanks, Sumathi

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

If anyone wishes me to, I can look up the proper syntax, using Quickref, for the SYNCSORT function when I get to work tomorrow.

Sumathi, it would help if I knew what version of SYNCSORT you are using.

Phantom · Posted: Wed Mar 31, 2004 11:58 pm Post subject:

Sumathi,

The problem with your code is that u have used the SORTIN and SORTOUT as your DD names for select statement. They are reserved for other purposes, so try using IN and OUT or any other DD name. I got the same error message and I changed the DD name and it worked for me..

Try using
SELECT FROM(IN) TO(OUT) ON(1,14,CH) NODUPS

Thanks,

kolusu · Posted: Thu Apr 01, 2004 5:46 am Post subject:

sumathi,

You need to post more details. Post detailed information on what you're trying to accomplish. Do not make people guess what you mean. This will give you a much better chance of getting a good answer to your questions.show us a sample input and desired output.

Your JCL looks fine and will eliminate duplicates. It is your repro which will not delete the records. when you repro it will not delete the existing contents, but will append new records or replace the contents. check this link to know more about repro

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt1v403/3.25?DT=19990113080956

As frank mentioned about select statement, it can be used with ICETOOL/SYNCTOOL but not along with pgm=sort.

The error you are getting is because you have control statement in pos 1. you need to have all your control statement in pos 2

Your shop has SYNCSORT, so you need to use the following JCL

Sumathi · Beginner Joined: 24 Mar 2004 Posts: 13 Topics: 3

Kolusu,

I have to use IDCAMS and SORT instead of SYNCTOOL. Hence I have been forced to do this way.
Here we go, the detailed information about my assignment.
I have to delete some records from the existing VSAM file(lrecl 80 - keys 1 to 14). The keys of the records to be deleted will be given in seq file(lrecl 80). What I am trying to do is as follows.
1. Do REPRO on a VSAM file to temp dataset(lrecl 80).
For ex the contents of VSAM file is,
AAAAAAAAAAAAAAasdfodfsdfsjfsdfsdjafdjf
BBBBBBBBBBBBBBfadfsdfdsfadsfsdfasdfff
CCCCCCCCCCCCCasdfsdfdasfasdfsdafsd

2. The record to be deleted is BBBBBBBBBBBBBB(will be in input file)
3. Concat the temp dataset with the input file.
After concat the records will be,
AAAAAAAAAAAAAAasdfodfsdfsjfsdfsdjafdjf
BBBBBBBBBBBBBBfadfsdfdsfadsfsdfasdfff
CCCCCCCCCCCCCasdfsdfdasfasdfsdafsd
BBBBBBBBBBBBBB

3. Now I want to delete the duplicates using SORT.
4. After SORT the records should be,
AAAAAAAAAAAAAAasdfodfsdfsjfsdfsdjafdjf
CCCCCCCCCCCCCasdfsdfdasfasdfsdafsd

5. REPRO back the above to VSAM file again.

After the above exercise I could see that the record is not deleted from VSAM file. I used file aid to view the contents of VSAM file.
My goal is to delete the records from VSAM file using IDCAMS and SORT. Please let me know if you have any other ideas as well.
Thanks, Sumathi

Sumathi · Beginner Joined: 24 Mar 2004 Posts: 13 Topics: 3

Hi Kolusu,

Now I found the problem. Though I am using REPRO with REPLACE at step 5, the VSAM file is not getting refreshed. That was the problem. To resolve this I have included 2 more steps. That is delete and create the vsam file before REPRO. Now I could see what I want.

Now my question is: Is that necessary to delete and recreate the VSAM file again? Will it not refreshed by itself?

Thanks, Sumathi

kolusu · Posted: Thu Apr 01, 2004 1:32 pm Post subject:

Sumathi,

Please be clear in your requirements. The first time you posted you asked for a JCL solution which was provided to you. Later you started another topic that duplicates are not deleted which is related to the same question.

Before you take up an assignment make sure to ask what exactly needs to be done. Don't waste time of other members with incomplete details.

You are after quick solutions but does not pay attention to read the instructions posted for the solutions. All you do is come up with a post that it is not working. If you had to use repro then you have to delete the vsam cluster and redefine the vsam cluster for the delete to work. Look at the bottom for the deletion and recreation step of the cluster.

Here is a solution with sort.

Insert Solution: