| Author |
Message |
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Wed May 09, 2007 5:46 pm Subject: Allocating a VOLUME only using ALLOCATE |
ok so you do it like this:
x=bpxwdyn('alloc dd(' variable ') shr reuse unit(sysda) vol(' variable ')')
|
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Mon May 07, 2007 10:43 am Subject: Allocating a VOLUME only using ALLOCATE |
Oh, and if I make the allocate look like:
"ALLOC FI("OLD_VOL") UNIT(/"unit") dummy vol "old_vol") shr"
it gets allocated to null ... |
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Mon May 07, 2007 10:39 am Subject: Allocating a VOLUME only using ALLOCATE |
When I use
ALLOC FI(DASDVOL) DA(*) SHR VOLUME(volser)
the file is of course allocated to termfile;
then when I call ICKDSF I get:
128 *-* "ALLOC FI ... |
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Sun May 06, 2007 4:31 pm Subject: Allocating a VOLUME only using ALLOCATE |
BTW, thanks, Gezzz... I meant to press preview and inadvertently pressed submit....
anyway, I'm doing this under the covers of TSO REXX
The other issue is some volumes don't have a SYS1.VVDS.. ... |
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Sun May 06, 2007 4:28 pm Subject: Allocating a VOLUME only using ALLOCATE |
Just as an extra, what are doing to need to allocate the volume ?
I'm invoking ICKDSF to issue a
REFORMAT DDNAME("OLD_VOL") VERIFY("OLD_VOL") REFVTOC
... |
Topic: Using SYSDSN to check for existance of a PDS member |
BarneyBadass
Replies: 6
Views: 4385
|
Forum: TSO and ISPF Posted: Sat May 05, 2007 6:27 am Subject: Using SYSDSN to check for existance of a PDS member |
| but I also said it had been a long time since I've used that function.... |
Topic: Using SYSDSN to check for existance of a PDS member |
BarneyBadass
Replies: 6
Views: 4385
|
Forum: TSO and ISPF Posted: Fri May 04, 2007 3:57 pm Subject: Using SYSDSN to check for existance of a PDS member |
you could do this:
/* REXX */
/*-----------------------------------------------------------------*/
SYSUID = SYSVAR("SYSUID")
BEGIN:
"ISPEXEC DISPLAY PANEL(PRRP ... |
Topic: Allocating a VOLUME only using ALLOCATE |
BarneyBadass
Replies: 11
Views: 9768
|
Forum: TSO and ISPF Posted: Fri May 04, 2007 3:44 pm Subject: Allocating a VOLUME only using ALLOCATE |
In JCL I can code:
// XXXXXX DD DISP=SHR,
// UNIT=SYSALLDA,
// VOL=SER=XXXXXX
to allocate a volume.
Is ther ... |
Topic: Total No of records in a Dataset using REXX |
BarneyBadass
Replies: 21
Views: 18664
|
Forum: TSO and ISPF Posted: Tue Apr 24, 2007 3:31 pm Subject: Total No of records in a Dataset using REXX |
| I agree; it's not perfect; but it did answer the question about how many records are in a dataset ... within reason of course. |
Topic: Total No of records in a Dataset using REXX |
BarneyBadass
Replies: 21
Views: 18664
|
Forum: TSO and ISPF Posted: Fri Apr 20, 2007 6:35 pm Subject: Total No of records in a Dataset using REXX |
/*rexx*/
parse arg src_in
if src_in = '' then src_in ='some_dataset''
stem.0 ... |
| |