Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ADRDSSU code scenario

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Sanath sekhar Reddy N

New User


Joined: 31 Oct 2012
Posts: 31
Location: INDIA

PostPosted: Fri Jan 25, 2013 2:50 pm    Post subject: ADRDSSU code scenario
Reply with quote

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
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10255
Location: italy

PostPosted: Fri Jan 25, 2013 2:55 pm    Post subject: Reply to: ADRDSSU code scenario
Reply with quote

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


do not access in <batch> a dataset <owned> by CICS icon_cool.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Fri Jan 25, 2013 5:00 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Pete Wilson

Active User


Joined: 31 Dec 2009
Posts: 440
Location: London

PostPosted: Fri Feb 08, 2013 2:45 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us