MVSFORUMS.com

stansaraczewski

I've never encountered this before; a newly defined ESDS file cannot be REPRO'ed to a SAM file (as a backup) unless it has a record in it.

REPRO INFILE (PWA) OUTFILE (BPWA)
IDC3300I ERROR OPENING PICES44V.PREV.WEEK.ADJ
IDC3351I ** VSAM OPEN RETURN CODE IS 160
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

I understand that a delete flag within the record can be set - does anyone know how to do this, or better yet have a program they are willing to share ?

Thank you...

kolusu · Posted: Wed Sep 06, 2006 9:26 pm Post subject:

stansaraczewski,

Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?t=5592&highlight=vsamemt

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

stansaraczewski · Posted: Wed Sep 06, 2006 10:20 pm Post subject:

I'm confused - what does the link show ? It is not the same error message and code that I am getting, and I am READING the vsam file, not writing to it as the sample in the link shows.

Thanks anyway.

stansaraczewski · Posted: Wed Sep 06, 2006 10:23 pm Post subject:

I see now the topic you wanted me to see is nested.

Yes, I knew that and I was looking for a program to set the byte that is discussed.

I'm ready to write my own in assembler if no one has one.

kolusu · Posted: Thu Sep 07, 2006 7:05 am Post subject:

stansaraczewski,

apologies. I thought the other way round. You want to copy an empty vsam cluster to a flat file.

Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?t=2600&highlight=vsamemt

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

stansaraczewski · Posted: Thu Sep 07, 2006 7:21 am Post subject:

Thank you. I did not know that such a parm existed. We recently converted to a non-IBM sort product and I'll need to research its' availability.

My problem is that five or six vsam datasets are being repro'd to sam files in one job step. The empty esds file in question is not always empty and created elsewhere in another job. It is in that job that I need to make the file readable, empty or not.

There is a method using assembler to set a certain flag in the file so that it can be read. This is what I am after, to add a jobstep after the file is created to execute the program to alter the file.

kolusu · Posted: Thu Sep 07, 2006 7:34 am Post subject:

stansaraczewski · Posted: Thu Sep 07, 2006 7:38 am Post subject:

Thanks again...

I will need to find the supporting article for the program as it apparently does quite a few other things.

It will serve as a starting point.