Re: Delete all members from PDS with symbolic in name?

[Shmuel Metz (Seymour J.)]

In <132401d04fbc$92d171b0$b8745510$@mcn.org>, on 02/23/2015
   at 03:00 PM, Charles Mills  said:

>I'm trying to do the following and I know it does not work because
>IDCAMS says
>IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME 

You have an asterisk as an index level in the dsname.

>But is there a way to do something like this, without restricting
>the job to V2R1 and symbols in SYSIN? I want to delete all members
>of a PDS where the PDS is named with a JCL symbol:

The asterisk is a wildcard, not a reference to a symbol. You're
specifying a dsn mask, a member and a file; you should have only the
member and the file.

Alternatively, you could run under a batch TMP, but that seems like
overkill in this case. 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Paul Gilmartin]

On Mon, 23 Feb 2015 17:09:57 -0800, Charles Mills wrote:

>Well, one answer would be that it is step 5 of a 14-step batch job. Another 
>answer would be "because I don't have a Solaris system, know nothing about 
>them, and have my plate full already of stuff that I AM supposed to be 
>learning and that is of more interest to me." 
> 
One might do as well with Linux, available on a variety of platforms from x86 
to z.
(But John M. has reported NFS problems.)  NFS mounting Classic data sets to
z/OS UNIX System Services would seem a natural approach, but I've heard
no reports of success with such a configuration.

Allocation of personal development resource must be decideg by ROI, of course.

It has been said that "Perl is the duct tape of UNIX."  And it appears that 
DFSORT
is the vise-grip plier of z/OS.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Charles Mills]

Well, one answer would be that it is step 5 of a 14-step batch job. Another 
answer would be "because I don't have a Solaris system, know nothing about 
them, and have my plate full already of stuff that I AM supposed to be learning 
and that is of more interest to me." 

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, February 23, 2015 4:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delete all members from PDS with symbolic in name?

On Mon, 23 Feb 2015 15:00:52 -0800, Charles Mills wrote:

>I'm trying to do the following and I know it does not work because 
>IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME
>
>But is there a way to do something like this, without restricting the 
>job to
>V2R1 and symbols in SYSIN? I want to delete all members of a PDS where 
>the PDS is named with a JCL symbol:
>
> DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
>
Well, since most of the PDSes I care about are NFS automounted to Solaris 
systems, I'd do:

rm /mvsmount/foo/*.load/*

... wondering the while why programmers torture themselves by restricting 
themselves to Legacy MVS constructs.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Paul Gilmartin]

On Mon, 23 Feb 2015 15:00:52 -0800, Charles Mills wrote:

>I'm trying to do the following and I know it does not work because IDCAMS
>says
>IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME
>
>But is there a way to do something like this, without restricting the job to
>V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the
>PDS is named with a JCL symbol:
>
> DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
>
Well, since most of the PDSes I care about are NFS automounted to
Solaris systems, I'd do:

rm /mvsmount/foo/*.load/*

... wondering the while why programmers torture themselves by restricting
themselves to Legacy MVS constructs.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Charles Mills]

Ha! You're a genius!

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Sri h Kolusu
Sent: Monday, February 23, 2015 3:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delete all members from PDS with symbolic in name?

Charles,

Try this

//  SET FMID='' 
//STEP0100 EXEC PGM=IKJEFT01,
// PARM='DELETE ''FOO.&FMID..LOAD(*)'''
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//* 

Kolusu

IBM Mainframe Discussion List  wrote on
02/23/2015 03:00:52 PM:

> From: Charles Mills 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 02/23/2015 03:01 PM
> Subject: Delete all members from PDS with symbolic in name?
> Sent by: IBM Mainframe Discussion List 
> 
> I'm trying to do the following and I know it does not work because
IDCAMS
> says
> IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME
> 
> But is there a way to do something like this, without restricting the
job to
> V2R1 and symbols in SYSIN? I want to delete all members of a PDS where
the
> PDS is named with a JCL symbol:

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Charles Mills]

Yeah, you're right. Thanks. I was picturing doing something where I "copied"
the space allocation from the old to the new but (1) there's no need: I can
hard-code the size; and (2) what I was picturing does not exist anyway:
there is no such specification as SPACE=*.ddname or *.stepname.ddname. (Does
it seem odd that there is not? That would be useful and not hard to have
implemented, right?)

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Nims,Alva John (Al)
Sent: Monday, February 23, 2015 3:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delete all members from PDS with symbolic in name?

There a couple of programs on the CBTTAPE (cbttape.org) that can empty a PDS
or PDSe.  As stated, the PDS command can also be used.

Using IEFBR14, you can a little simpler than what you specified.

//DELETE EXEC PGM=IEFBR14
//DELETE   DD  DISP=(MOD,DELETE),SPACE=(TRK,(0)),
//   DSN=FOO.&FMID..LOAD
//ALLOC  EXEC PGM=IEFBR14
//NEW DD  DISP=(NEW,CATLG,DELETE),
//   DSN=FOO.&FMID..LOAD

Al Nims
Systems Admin/Programmer 3
Information Technology
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Monday, February 23, 2015 6:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delete all members from PDS with symbolic in name?

I'm trying to do the following and I know it does not work because IDCAMS
says
IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME

But is there a way to do something like this, without restricting the job to
V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the
PDS is named with a JCL symbol:

//DELETMEM EXEC PGM=IDCAMS 
//SYSPRINT DD   SYSOUT=*   
//OUTLOAD  DD   DISP=(OLD,KEEP),DSN=FOO.&FMID..LOAD
//SYSINDD   *  
 DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
/* 

I suppose I could do something with IEFBR14 and allocate a new dataset with
a temporary name in one step and then delete the old dataset and rename the
new one in the next step. Is there something easier?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Sri h Kolusu]

Charles,

Try this

//  SET FMID='' 
//STEP0100 EXEC PGM=IKJEFT01,
// PARM='DELETE ''FOO.&FMID..LOAD(*)'''
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//* 

Kolusu

IBM Mainframe Discussion List  wrote on 
02/23/2015 03:00:52 PM:

> From: Charles Mills 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 02/23/2015 03:01 PM
> Subject: Delete all members from PDS with symbolic in name?
> Sent by: IBM Mainframe Discussion List 
> 
> I'm trying to do the following and I know it does not work because 
IDCAMS
> says
> IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME 
> 
> But is there a way to do something like this, without restricting the 
job to
> V2R1 and symbols in SYSIN? I want to delete all members of a PDS where 
the
> PDS is named with a JCL symbol:
> 
> //DELETMEM EXEC PGM=IDCAMS 
> //SYSPRINT DD   SYSOUT=* 
> //OUTLOAD  DD   DISP=(OLD,KEEP),DSN=FOO.&FMID..LOAD
> //SYSINDD   * 
>  DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) 
> /* 
> 
> I suppose I could do something with IEFBR14 and allocate a new dataset 
with
> a temporary name in one step and then delete the old dataset and rename 
the
> new one in the next step. Is there something easier?
> 
> Thanks,
> 
> Charles 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[Nims,Alva John (Al)]

There a couple of programs on the CBTTAPE (cbttape.org) that can empty a PDS or 
PDSe.  As stated, the PDS command can also be used.

Using IEFBR14, you can a little simpler than what you specified.

//DELETE EXEC PGM=IEFBR14
//DELETE   DD  DISP=(MOD,DELETE),SPACE=(TRK,(0)),
//   DSN=FOO.&FMID..LOAD
//ALLOC  EXEC PGM=IEFBR14
//NEW DD  DISP=(NEW,CATLG,DELETE),
//   DSN=FOO.&FMID..LOAD

Al Nims
Systems Admin/Programmer 3
Information Technology
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, February 23, 2015 6:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delete all members from PDS with symbolic in name?

I'm trying to do the following and I know it does not work because IDCAMS says
IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME

But is there a way to do something like this, without restricting the job to
V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS 
is named with a JCL symbol:

//DELETMEM EXEC PGM=IDCAMS 
//SYSPRINT DD   SYSOUT=*   
//OUTLOAD  DD   DISP=(OLD,KEEP),DSN=FOO.&FMID..LOAD
//SYSINDD   *  
 DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
/* 

I suppose I could do something with IEFBR14 and allocate a new dataset with a 
temporary name in one step and then delete the old dataset and rename the new 
one in the next step. Is there something easier?

Thanks,

Charles 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Delete all members from PDS with symbolic in name?

[J O Skip Robinson]

The PDS command can handle this task very nicely. 

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, February 23, 2015 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delete all members from PDS with symbolic in name?

I'm trying to do the following and I know it does not work because IDCAMS says
IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME

But is there a way to do something like this, without restricting the job to
V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS 
is named with a JCL symbol:

//DELETMEM EXEC PGM=IDCAMS 
//SYSPRINT DD   SYSOUT=*   
//OUTLOAD  DD   DISP=(OLD,KEEP),DSN=FOO.&FMID..LOAD
//SYSINDD   *  
 DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
/* 

I suppose I could do something with IEFBR14 and allocate a new dataset with a 
temporary name in one step and then delete the old dataset and rename the new 
one in the next step. Is there something easier?

Thanks,

Charles 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Delete all members from PDS with symbolic in name?

[Charles Mills]

I'm trying to do the following and I know it does not work because IDCAMS
says
IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME

But is there a way to do something like this, without restricting the job to
V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the
PDS is named with a JCL symbol:

//DELETMEM EXEC PGM=IDCAMS 
//SYSPRINT DD   SYSOUT=*   
//OUTLOAD  DD   DISP=(OLD,KEEP),DSN=FOO.&FMID..LOAD
//SYSINDD   *  
 DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD)
/* 

I suppose I could do something with IEFBR14 and allocate a new dataset with
a temporary name in one step and then delete the old dataset and rename the
new one in the next step. Is there something easier?

Thanks,

Charles 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN