|
|
| Author |
Message |
sunny_io
New User
Joined: 11 Jul 2007
Posts: 22
Location: noida
|
|
|
|
Hi All
Following is what i've written in REXX to define a GDG base.
Pls suggest code to create a version
----------------------------------------------------
* REXX Define GDG Base */
"DEFINE GDG(NAME('TESTM.CAA5015.P41049XF') LIM(3) SCR)"
"ALLOC DD(SYSPRINT) DA(*) REU"
"ALLOC DD(SYSIN) NEW REU"
Queue " DEFINE GDG(NAME('TESTM.CAA5015.P41049XF') LIM(3) SCR)"
"EXECIO "Queued()" DISKW SYSIN (FINIS"
"CALL *(IDCAMS)"
"FREE DD(SYSPRINT SYSIN)"
--------------------------------------------------- |
|
| Back to top |
|
 |
References
|
|
 |
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3070
Location: italy
|
|
|
|
no need to invoke idcams...
DEFINE is a supprted TSO command..
Address TSO "DEFINE blah... blah..."
is enough
search the forum or google for BPXWDYN
to find out how to allocate a generation |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3505
Location: Brussels once more ...
|
|
|
|
It has been posted by me on the forum before ................. I think.
Do a search with expat as the author and if not I will post again when I get time ......................... or if 
Although if this REXX will run in batch, then the +1 GDG can be allocated in the JCL that is submitted. Much easier. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3505
Location: Brussels once more ...
|
|
|
|
| Code: |
GDG = "YOUR GDG BASE"
DSN = STRIP(GDG!!".G0000V00")
X=OUTTRAP(LST.)
" LISTC ENT('"GDG"')"
X=OUTTRAP(OFF)
DO A = LST.0 TO 1 BY -1
IF POS('NONVSAM',LST.A) > 0 THEN DO
DSN = SUBSTR(LST.A,POS('NONVSAM',LST.A)+13,44)
A = 0
END
END
VX = LENGTH(STRIP(DSN)) - 6
NG = STRIP(OVERLAY(RIGHT(1+SUBSTR(DSN,VX,4),4,'0'),DSN,VX,4))
"ALLOC FI(MST) NEW TRACKS SPACE(5 3) RECFM(F B) LRECL(8) DA('"NG"')"
"FREE FI(MST)"
DROP LST.
|
|
|
| Back to top |
|
|
|
|
