MVSFORUMS.com

MFdigger · Posted: Wed Sep 03, 2008 9:59 pm Post subject: Insert & delete record

Hi All,

I have to delete a record with a key value of 1111 and insert a key value of 2222 record in a VSAM dataset.

Can I do it without writing a cobol program using IDCAMS or any other utility. Could some one please help me on this.

Thank you
Rolling Eyes

_________________
Tx
Digger

expat · Posted: Thu Sep 04, 2008 1:34 am Post subject:

With IDCAMS the INSERT part is dead easy, just the DELETE part that might be a PITA.

You would need to unload to a flat file, delete the record and reload to the KSDS.

SORT - Probably easier to do the delete, but DO take a backup first as with sort you can use the same file as input & output to the sort, using an OMIT card - but any errors during the sort may result in a corrupt file.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

kolusu · Posted: Thu Sep 04, 2008 10:15 am Post subject:

MFdigger,

Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?p=9479#9479
_________________
Kolusu
www.linkedin.com/in/kolusu

MFdigger · Posted: Mon Oct 13, 2008 11:20 pm Post subject:

Hi Kolusu

Thank you for the link, I coded my JCL to delete the record from the VSAM in the same way as you mentioned in your link, While running the job, its returning the code of 16 and in the spool output its shwoing a message as:

WER255A VSAM LOGICAL ERROR 0C ON OUTPUT

in DFSMSG sysout

Could you please let me know how can I avoid this. Let me know if you need complete sysout
Rolling Eyes

_________________
Tx
Digger

expat · Posted: Tue Oct 14, 2008 2:12 am Post subject:

Kolusu's solution is for DFSORT - you are using SYNCSORT
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

MFdigger · Posted: Thu Oct 16, 2008 4:14 pm Post subject:

Hi Kosulu,expat

Could you please provide the idea on how I can work this out using SYNCSORT which I can use in input stream.

I used FIELDS=COPY just to verify if I can copy the VSAM records into flat file and its working but how I can change the rest in SYNCSORT as in DFSORT mentioned below. Please advice

//TOOLIN DD *
COPY FROM(VSAMIN) TO(T1)
SELECT FROM(CON) TO(OUT) ON(9,8,CH) NODUPS
//DFSPARM DD *
OPTION VSAMIO,RESET
/*

bonk

_________________
Tx
Digger