MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to DUMMYing out a PDS in a JCL DD statement

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
pzmohanty
Beginner


Joined: 20 May 2004
Posts: 97
Topics: 43
Location: hyderabad, India

PostPosted: Wed Apr 05, 2006 11:40 am    Post subject: How to DUMMYing out a PDS in a JCL DD statement Reply with quote

Hi all,

if I don't want to use a specific dataset in my DD statement in JCL , then I can use DD DUMMY or DD DSN=NULLFILE ( irespective of DISP parameter).

Similarily I have to use DD DUMMY,AMP=AMORG for DUMMYing out VSAM files.

But how to DUMMY out where in DD I have to give a PDS or when DSORG=PO.

Example :-
Code:
//DD21     DD  DSN=XXXX.TEST.PDS,               
//         DISP=(NEW,CATLG,DELETE),DSNTYPE=PDS,         
//         SPACE=(CYL,(100,100,510)),UNIT=SYSDA,       
//         DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)   


How to replace DSN here with some DUMMY things .

thanks
_________________
Priya Ranjan Mohanty
Consultant
Kanbay Software (I) pvt. Ltd.
Hyderabad
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Apr 05, 2006 11:47 am    Post subject: Reply with quote

pzmohanty,

Is this a trick Question ? Isn't it simple as this

Code:

//MYPROC   PROC
//*
//STEP0100 EXEC PGM=IEFBR14                             
//DD21     DD DSN=XXXX.TEST.PDS,                   
//            DISP=(NEW,CATLG,DELETE),DSNTYPE=PDS,     
//            SPACE=(CYL,(100,100,510)),UNIT=SYSDA,         
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
//*                                                     
//  PEND                                               
//GO       EXEC MYPROC                                 
//*                                                     
//STEP0100.DD21 DD DUMMY                               


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
pzmohanty
Beginner


Joined: 20 May 2004
Posts: 97
Topics: 43
Location: hyderabad, India

PostPosted: Wed Apr 05, 2006 12:06 pm    Post subject: Reply with quote

Hi Kolusu,

My requirement is I am using IEBCOPY to copy some PDS's member to some other PDS( which is created run-time).
On some specific scenarios ,I need to override the output PDS name to some DUMMY thing , so that no new PDS gets created after this job is complete.

As you suggested , I am using the following JCL code to achieve that objective , but I am getting return code of 8.

Code:
//MYPROC   PROC                                                     
//*                                                                 
//COPY01   EXEC PGM=IEBCOPY,REGION=4096K                           
//STEPLIB  DD  DSN=IMSVS.SMU.LOAD,DISP=SHR                         
//DD1      DD  DSN=XXX.INPUT.PDS,DISP=SHR         
//DD21     DD  DSN=YYYY.OUT.PDS.TEST,                     
//         DISP=(NEW,CATLG,DELETE),DSNTYPE=PDS,                     
//         SPACE=(CYL,(100,100,510)),UNIT=SYSDA,                   
//         DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)               
//SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))                         
//SYSUT4   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))   SPILL DATA SET       
//SYSPRINT DD  SYSOUT=*                                             
//SYSUDUMP DD  SYSOUT=*                                             
//*                                                                 
//  PEND                                                           
//GO       EXEC MYPROC                                             
//*                                                                 
//COPY01.DD21 DD DUMMY                                             
//COPY01.SYSIN DD *                                                 
 C I=DD1,O=DD21


If I execute above JCL , I am getting MAXCC=8 with following message in spool :
Code:
IEB1135I IEBCOPY  FMID HDZ11H0  SERVICE LEVEL UA14838  DATED 20041027 DFSMS 01.0
IEB1035I VENV31A  COPY01   GO       11:55:49 WED 05 APR 2006 PARM=''           
 C I=DD1,O=DD21                                                                 
IEB120I DD21     VALIDATION ERROR                                               
IEB187I NOT A DIRECT ACCESS OR TAPE DATA SET                                   
IEB1030I DDNAME DD1      REFERS TO PDS  DATA SET ON VOLUME HCM002 NAMED PICM.CP0
IEB1030I DDNAME DD21     REFERS TO PDS? DATA SET ON VOLUME        NAMED NULLFILE
IEB166I NO MEMBERS COPIED TO DATA SET REFERENCED BY DD21                       
IEB151I JOB HAS TERMINATED WITH ERROR(S)                                       
IEB147I END OF JOB - 8 WAS HIGHEST SEVERITY CODE                               


My objective is , on specific scenarios I need not create a new PDS , instead I route the OUTPUT PDS DD to DUMMY.
_________________
Priya Ranjan Mohanty
Consultant
Kanbay Software (I) pvt. Ltd.
Hyderabad
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Apr 05, 2006 12:26 pm    Post subject: Reply with quote

pzmohanty,

IEBCOPY's COPY operator is used to copy a PDS to another PDS and DUMMY is not a Pds. You need to use IEBPTPCH whenever you want to override with DUMMY dataset.

You need to code 2 steps one with IEBCOPY and another IEBPTCH. On the override condition run the IEBPTCH step and in the other case run IEBCOPY.

Another option is to replace the IEBCOPY step with Fileaid which takes cares of both the scenarios.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
pzmohanty
Beginner


Joined: 20 May 2004
Posts: 97
Topics: 43
Location: hyderabad, India

PostPosted: Wed Apr 05, 2006 12:41 pm    Post subject: Reply with quote

Thanks a lot Kolusu ,

Now I am using File-Aid to overcome this problem.
_________________
Priya Ranjan Mohanty
Consultant
Kanbay Software (I) pvt. Ltd.
Hyderabad
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Fri Apr 07, 2006 9:32 am    Post subject: Reply with quote

Priya Ranjan Mohanty,

Would you please post the solution over here.

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Fri Apr 07, 2006 10:00 am    Post subject: Reply with quote

mf_user,

try this

Code:

//MYPROC   PROC                                         
//*                                                     
//COPY01   EXEC PGM=FILEAID                             
//DD01     DD DSN=XXX.INPUT.PDS,DISP=SHR         
//DD01O    DD DSN=YYYY.OUT.PDS.TEST,
//            DISP=(NEW,CATLG,DELETE),DSNTYPE=PDS,     
//            SPACE=(CYL,(100,100,510)),UNIT=SYSDA,     
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSPRINT DD  SYSOUT=*                                 
//*                                                     
//  PEND                                               
//GO       EXEC MYPROC                                 
//*                                                     
//COPY01.DD01O DD DUMMY                                 
//COPY01.SYSIN DD *                                     
$$DD01 COPY   


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Fri Apr 07, 2006 10:04 am    Post subject: Reply with quote

That is cool stuff Kolusu. Thank you quicky.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group