ADRDSSU code scenario

Sanath sekhar Reddy N · New User Joined: 31 Oct 2012 Posts: 30 Location: INDIA

Can any one let me know the significance of the ADRDSSU.
I have one situation here in my project ,Iam using a vsam file in the program ,this vsam file is an online activity file which means will get updated via online cics transactions.My job is the batch job, we have got file status 21 during the execution which means the vsam file being used by online transactions may have got error due to incorrect sequential access of the key i.e key sequence might have altered.
So we have decided to use ADRDSSU -flash copy before running the program step.
Can you please any one tell me how to code ADRDSSU in this scenario
For eg below

Current abend scenario
Job1
step10 --- program step using vsam file X.

Proposed scenario to jcl changes
Job1
Step005--- Flash copy step (ADRDSSU) ??? How to code for this?
Step010--- program step using vsam file X.
(This scenario also may have chance of contention error with any other cics region using vsam file X -not sure-then the job is passing step005 with return code 4 and abending in step010 with VSAM file open error -status code 97)

Your suggestion will be very helpful for us at this point of time.

Regards
Sanath

enrico-sorichetti · Posted: Fri Jan 25, 2013 2:55 pm

Robert Sample · Posted: Fri Jan 25, 2013 5:00 pm

I echo enrico's advice -- what you are doing is a very poor design and subject to all sorts of problems down the line.

However, if you think this is the way to go, look at the CONCURRENT option of the COPY verb of ADRDSSU in the manual. However, pay a LOT of attention to the potential problems, especially the potential of running out of storage, which you may well see.

Pete Wilson · Posted: Fri Feb 08, 2013 2:45 pm

It is easy enough to copy the file with DFDSS (ADRDSSU) even if the file is open as long as the file SHAREOPTIONS are set correctly to allow it. But the error condition and why it's occurred needs to be resolved first I would have thought.

With DFDSS it uses dataset level Flashcopy by default, i.e.
FASTREP(PREFERRED) if you have Flashcopy licenced on the DASD box.

Depending how the file is allocated to CICS you may have to specify the SHARE and TOLERATE(ENQF) as well, although TOL(ENQF) isn't allowed if you're specifying CONCURRENT

e.g.

COPY ALLE ALLD(*) SHR TOL(ENQF) TGTA(SRC) -
DSN(INC(input.file)) -
RENAMEU(input.file,target.file)

NOTE: If the dataset has AIX's and you also want to copy those you need the SPHERE parameter, and on the RENAMEU you'd have to include source and target names for each AIX and PATH.