|
View previous topic :: View next topic
|
| Author |
Message |
yoganand reddy
New User
Joined: 07 Feb 2011
Posts: 2
Location: Hyderabad
|
|
|
|
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 |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Hard Work. Create a program. Maybe even your SORT product. |
|
| Back to top |
|
|
yoganand reddy
New User
Joined: 07 Feb 2011
Posts: 2
Location: Hyderabad
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
| 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  |
|
| Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1050
Location: Richmond, Virginia
|
|
|
|
| Nic had a great idea. You're a programmer. Write a program. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
This might help
Just need to change the code a bit and .......................... |
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| 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 |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009
Posts: 592
Location: London
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
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 |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009
Posts: 592
Location: London
|
|
|
|
| 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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
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 |
|
| Back to top |
|
|
|
|
