IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Repro latest GDG backup to the new flat file.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
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
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: 8797
Location: Welsh Wales

PostPosted: Mon Mar 03, 2008 1:06 pm
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
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: 8797
Location: Welsh Wales

PostPosted: Mon Mar 03, 2008 4:53 pm
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
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: 8797
Location: Welsh Wales

PostPosted: Mon Mar 03, 2008 5:22 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Mar 03, 2008 5:25 pm
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: 8797
Location: Welsh Wales

PostPosted: Mon Mar 03, 2008 5:33 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Mar 03, 2008 5:43 pm
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: 8797
Location: Welsh Wales

PostPosted: Mon Mar 03, 2008 5:59 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top