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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: how to alter GDG limit for N no. of GDg's
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: 1715
Location: UK

PostPosted: Tue Apr 19, 2011 9:19 pm    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Apr 19, 2011 9:30 pm    Post subject: Reply to: how to alter GDG limit for N no. of GDg's
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

Active Member


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

PostPosted: Tue Apr 19, 2011 11:01 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 20, 2011 12:58 pm    Post subject:
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    Post subject:
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: 1715
Location: UK

PostPosted: Wed Apr 20, 2011 8:16 pm    Post subject:
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 User


Joined: 31 Dec 2009
Posts: 437
Location: London

PostPosted: Tue May 17, 2011 2:59 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue May 17, 2011 3:24 pm    Post subject: Reply to: how to alter GDG limit for N no. of GDg's
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 User


Joined: 31 Dec 2009
Posts: 437
Location: London

PostPosted: Tue May 17, 2011 3:45 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue May 17, 2011 7:23 pm    Post subject: Reply to: how to alter GDG limit for N no. of GDg's
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    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 Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts Converting NULL column into NOT NULL ... Raghu navaikulam DB2 5 Sat Aug 06, 2016 3:45 pm
No new posts ALTER of an IDMS AREA with NEW/OLD pa... Awanti IDMS/ADSO 2 Mon Mar 14, 2016 10:01 pm
No new posts Commit limit for Delete query through... mf_karthik DB2 10 Thu Dec 17, 2015 12:56 am
No new posts how to alter a vsam using its ddname ... boyti ko JCL & VSAM 11 Thu Nov 19, 2015 10:49 am


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