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

how to alter GDG limit for N no. of GDg's


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
yoganand reddy

New User


Joined: 07 Feb 2011
Posts: 2
Location: Hyderabad

PostPosted: Tue Apr 19, 2011 9:09 pm
Reply with quote

I need alter the GDG limits
//sysin dd *
alter sord.raj.jar.aacables-
scratch-
limit(4)

alter sord.raj.jar.aalous-
scratch-
limit(4)

alter sord.raj.jar.aaxcs-
scratch-
limit(4)
//
the bold one 'aa' is component in my project like that I need do this limit alteration for 60 more components like ad , af , ab.......etc

so my question is how can code a job to get alteration for all 60 components each time only aa, ad, af, ab......etc will change
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Tue Apr 19, 2011 9:19 pm
Reply with quote

Hard Work. Create a program. Maybe even your SORT product.
Back to top
View user's profile Send private message
yoganand reddy

New User


Joined: 07 Feb 2011
Posts: 2
Location: Hyderabad

PostPosted: Tue Apr 19, 2011 9:26 pm
Reply with quote

alter sord.raj.jar.aacables

if I place &x at 'aa' can it be possible to pass all components names dynamically to that X variable ................some thing like reference
but ref works for only one time
I need more than 60 times pls help me out......



AND


using jcl in that can I give dsn name like a file contain all components names ....will it take one by one
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Tue Apr 19, 2011 9:30 pm
Reply with quote

Quote:
i need more than 60 times pls help me out......


if You had duplicated the command and fixed by hand Your problem would have already been solved

remember , replying on a forum is
on voluntary basis
on our own time
free of charge
interest of the question being asked

and really... this question is very uninteresting icon_biggrin.gif
Back to top
View user's profile Send private message
Phrzby Phil

Senior Member


Joined: 31 Oct 2006
Posts: 1050
Location: Richmond, Virginia

PostPosted: Tue Apr 19, 2011 11:01 pm
Reply with quote

Nic had a great idea. You're a programmer. Write a program.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Wed Apr 20, 2011 12:58 pm
Reply with quote

This might help

Just need to change the code a bit and ..........................
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Wed Apr 20, 2011 7:04 pm
Reply with quote

I would do somethinglike this...
Code:

//STEP0100 EXEC PGM=SORT                                     
//SYSOUT   DD SYSOUT=*                                       
//SORTIN   DD *                                               
AA                                                           
AB                                                           
AF                                                           
AC                                                           
DC                                                           
//SORTOUT  DD SYSOUT=*                                       
//SYSIN    DD *                                               
  OPTION COPY                                                 
  OUTFIL BUILD=(C'  ALTER SORD.RAJ.JAR.',1,2,C'CABLES -',/,   
                C'  SCRATCH -',/,                             
                C'  LIMIT(4)')                               

Output will be..
Code:

  ALTER SORD.RAJ.JAR.AACABLES -         
  SCRATCH -                             
  LIMIT(4)                             
  ALTER SORD.RAJ.JAR.ABCABLES -         
  SCRATCH -                             
  LIMIT(4)                             
  ALTER SORD.RAJ.JAR.AFCABLES -         
  SCRATCH -                             
  LIMIT(4)                             
  ALTER SORD.RAJ.JAR.ACCABLES -         
  SCRATCH -                             
  LIMIT(4)                             
  ALTER SORD.RAJ.JAR.DCCABLES -         
  SCRATCH -                             
  LIMIT(4)                             
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Wed Apr 20, 2011 8:16 pm
Reply with quote

Are there any datasets catalogued on these bases? If so, do they need to be kept? If so, you will have to handle that.
Back to top
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 592
Location: London

PostPosted: Tue May 17, 2011 2:59 pm
Reply with quote

The below would do what you want. Be aware any generations past 4 will be immediately deleted following the alter.

//GDGPUNCH EXEC PGM=FDREPORT
//SYSOUT DD SYSOUT=0
//SYSUDUMP DD SYSOUT=0
//SYSPRINT DD SYSOUT=0
//SYSPUNCH DD DSN=YOUR.PUNCH.FILE,DISP=(,CATLG),
// SPACE=(TRK,(5,5),RLSE)
//ABRMAP DD DSN=&&LIST,DISP=(,PASS),
// SPACE=(TRK,(15,15),RLSE)
//ABRSUM DD SYSOUT=0
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSUT3 DD DSN=&&TEMP1,UNIT=SYSDA,
// DISP=(,PASS),SPACE=(CYL,(25,25))
//SYSIN DD *
REPORT FIELD=(GDGBASE,GDGLIMIT,GDGFLAGS)
XS XDSN=sord.raj.jar.//xcs
XS XDSN=sord.raj.jar.//lous
XS XDSN=sord.raj.jar.//cables
SORT FIELD=(GDGBASE)
PUNCH FDRLIB=MASK
PRINT DATATYPE=CATALOG,RPTYPE=SELPCH,
ENABLE=(FASTPATH,GDGBASEONLY,ALLFILTER)
//MASK DD *
ALTER <GDGBASE> LIM(4)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Tue May 17, 2011 3:24 pm
Reply with quote

nothing that could not be done using ISMF
to collect the <dataset> info

scroll down to choose the proper entity

Code:
DGTDDDS4                DATA SET SELECTION ENTRY PANEL             Page 5 of 5
Command ===>

To further limit the Generated List, Specify a single value or list of values
in any of the following:
Rel Op   Value     Value     Value     Value
------  --------  --------  --------  --------
Device Type  . . . . . . .
(1 to 8 Values)       ===>
Entry Type . . . . . . . . EQ 
(1 to 12 Values)      ===>
===>
Management Class Name  . .
Multi-volume Data Set  . .
Owner  . . . . . . . . . .
Reblockable Indicator  . .
Record Format  . . . . . .
(1 to 8  Values)      ===>
Storage Class Name . . . .


saving the generated list
and then proceed to option 11/6 for the command generation using a model

tested and working
Back to top
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 592
Location: London

PostPosted: Tue May 17, 2011 3:45 pm
Reply with quote

good spot enrico, forgot about that. It can be a bit slow though and you can only put one mask in at a time unless you do it in Naviquest batch
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Tue May 17, 2011 7:23 pm
Reply with quote

to tell the truth I am a fan of ISMF,
most of the questions asked here about dataset and volume listings
with strange filtering can be satisfied by ISMF and Naviquest,
but it looks like it is some kind of unknown application icon_biggrin.gif
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 DROP & ALTER PARTITION-PBR DB2 0
No new posts Expand ISPF field up to a limit - is ... TSO/ISPF 9
No new posts Rexx to list generations of GDGs and ... CLIST & REXX 3
No new posts Alter User LOGON Script Parameters CLIST & REXX 11
No new posts VSAM Alter Command - Cylinder Extent ... JCL & VSAM 3
Search our Forums:

Back to Top