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
 

 

Repro latest GDG backup to the new flat file.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Shashank Prasanna Modi
Currently Banned

New User


Joined: 28 Feb 2008
Posts: 7
Location: Mumbai

PostPosted: Mon Mar 03, 2008 11:25 am    Post subject: Repro latest GDG backup to the new flat file.
Reply with quote

I am using the below parms to repro latest GDG backup to the new flat file

******************* Top of Data ******************************
REPRO INDATASET ('HQTSM.PROD.TS10815D.BUCKET.GDG(0)') -
OUTFILE (FILEOUT)
REPRO INDATASET ('HQTSM.PROD.TSMON15D.PABUCKET.GDG(0)') -
OUTFILE (FILEOUT)
******************* Bottom of Data ******************

It gives me the error saying as

******************* TOP OF DATA **************************
IDCAMS SYSTEM SERVICES TIME: 05:41:45

REPRO INDATASET ('HQTSM.PROD.TS10815D.BUCKET.GDG(0)') -
IDC3203I ITEM 'HQTSM.PROD.TS10815D.' DOES NOT ADHERE TO RESTRICTIONS
OUTFILE (FILEOUT)
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

REPRO INDATASET ('HQTSM.PROD.TSMON15D.PABUCKET.GDG(0)') -
IDC3203I ITEM 'HQTSM.PROD.TSMON15D.' DOES NOT ADHERE TO RESTRICTIONS
OUTFILE (FILEOUT)
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
********************* BOTTOM OF DATA *******************

Can anyone tell how can we achieve this?
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Mar 03, 2008 1:06 pm    Post subject:
Reply with quote

Use the relative GDG gen in the JCL rather than SYSIN
Back to top
View user's profile Send private message
Shashank Prasanna Modi
Currently Banned

New User


Joined: 28 Feb 2008
Posts: 7
Location: Mumbai

PostPosted: Mon Mar 03, 2008 1:11 pm    Post subject: Reply to: Repro latest GDG backup to the new flat file.
Reply with quote

Global Moderator,

I want to code such that if in future more INDATASET comes in then I don't need to change the proc again.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Mar 03, 2008 4:53 pm    Post subject: Re: Reply to: Repro latest GDG backup to the new flat file.
Reply with quote

Shashank Prasanna Modi wrote:
Global Moderator,

I want to code such that if in future more INDATASET comes in then I don't need to change the proc again.

Not sure that I understand your point here ....

If the JCL contains

//ddname DD DSN=dsname(0),DISP=SHR

Then everytime that it runs it will use the latest available generation of that GDG base.
Back to top
View user's profile Send private message
Shashank Prasanna Modi
Currently Banned

New User


Joined: 28 Feb 2008
Posts: 7
Location: Mumbai

PostPosted: Mon Mar 03, 2008 5:20 pm    Post subject: Re: Reply to: Repro latest GDG backup to the new flat file.
Reply with quote

expat wrote:
Shashank Prasanna Modi wrote:
Global Moderator,

I want to code such that if in future more INDATASET comes in then I don't need to change the proc again.

Not sure that I understand your point here ....

If the JCL contains

//ddname DD DSN=dsname(0),DISP=SHR

Then everytime that it runs it will use the latest available generation of that GDG base.


Yup its work but my requirement is that I want to use REPRO only. So that if in future if more INDATASET comes in then I need to change only parm to include one more step to add INDATASET.
Is there any way through which we can refer latest GDG backup through REPRO INDATASET.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Mar 03, 2008 5:22 pm    Post subject:
Reply with quote

Quote:
REPRO INDATASET ('HQTSM.PROD.TSMON15D.PABUCKET.GDG(0)') -
IDC3203I ITEM 'HQTSM.PROD.TSMON15D.' DOES NOT ADHERE TO RESTRICTIONS
OUTFILE (FILEOUT)
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

Is the answer to your question

If you use REXX you can have an input file with the list of DSN's to concatenate, resolve the latest generation of the GDG and copy by invoking IEBGENER or whatever.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Mar 03, 2008 5:25 pm    Post subject: Reply to: Repro latest GDG backup to the new flat file.
Reply with quote

by grace will You tell me how different would be to change a sysin card from changing a dd statement

By the way for the task You described iebgener/icegener would be simpler and more performing
( at least ICEGENER)

Code:

//s       exec pgm=iebgener
//sysin     dd dummy
//sysprint  dd sysout=*
//sysut1    dd .... input dataset
//sysut2    dd .... output dataset


simpler
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Mar 03, 2008 5:33 pm    Post subject:
Reply with quote

Enrico - I think the OP wants to only update a parameter list to add more input files to a concatenation.

Had they have searched the forum for the problem they would have found that the answer is a big fat NO using IDCAMS and relative generation numbers.

Hence the REXX suggestion, or yours for using xxxGENER.

Hey - Why change a JCL when you can change something else ?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Mar 03, 2008 5:43 pm    Post subject: Reply to: Repro latest GDG backup to the new flat file.
Reply with quote

since the O/P is speaking about gdg' s there is noooo way he can escape from using jcl... icon_smile.gif

also if he is using a disp=mod just concatenating the inputs would be simpler
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Mar 03, 2008 5:59 pm    Post subject:
Reply with quote

I know that, but that is a JCL change icon_biggrin.gif


P.S. I think I will be in Verona 5th & 6th July
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
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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