IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to UNCATLG 1000's of Tape DSN thrug SYSIN control member


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
harimca
Warnings : 1

New User


Joined: 15 Jul 2006
Posts: 10

PostPosted: Thu Aug 05, 2010 10:13 pm
Reply with quote

Hi all
Can you please help me with JCL that can be used to UNCATLOG Tape DSN with out copying the entire list in the JCL.And can be passed the list through Control member or SYSIN ,Basiclay wanted to reduce the SIZe of JCL lines,Due the Huge nmbr of DSN's
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Aug 05, 2010 10:51 pm
Reply with quote

This is your third post in the last couple of weeks on the same topic. Either follow the previously given advice, or accept that we cannot provide you the solution you want and move on.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 05, 2010 11:26 pm
Reply with quote

Well, a new dataset naming standard could be implemented and the old dsn's left to rot. . . icon_confused.gif

If the list had been built (by hand or automated) and the uncatalogs done when the question first came up, all of the work would have been done some time ago.

I suppose it is better to waste many people's time rather than simply do what is needed one's self. . . icon_sad.gif

d
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Aug 06, 2010 11:37 am
Reply with quote

And in both of the previous posts I have linked to a job that will do everything that you want to do and yet you still ask the same question.

Well, my question to you is, are you sure that IT is the correct career choice for you ?
Back to top
View user's profile Send private message
harimca
Warnings : 1

New User


Joined: 15 Jul 2006
Posts: 10

PostPosted: Fri Aug 06, 2010 10:04 pm
Reply with quote

Dude you have lot of job options,why dont u try in phycology dept..Lol
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Aug 06, 2010 11:45 pm
Reply with quote

Hmmm. . .

Won't follow simple directions.

Replies as though this was a chat room.

Can't spell/type and won't spell-check. . .

Sounds like a new "manager" in the making. . .


And yes, several of us have multiple options icon_cool.gif
Back to top
View user's profile Send private message
harimca
Warnings : 1

New User


Joined: 15 Jul 2006
Posts: 10

PostPosted: Sat Aug 07, 2010 10:04 pm
Reply with quote

Expat

I realy apology for my statement jst got carried away,I did wrote a small REXX code to list out my selection into file and wanted to use them as input to my UNCATLG JCL,Anyway got the issue fixed now Thanks all -Manager..))
Back to top
View user's profile Send private message
harimca
Warnings : 1

New User


Joined: 15 Jul 2006
Posts: 10

PostPosted: Wed Aug 25, 2010 1:24 am
Reply with quote

Hi
Atlast Got results with SAS coding to build a Job for the list of Tape DSN's provided through PDS control member


//STEP015 EXEC SAS
//SYSUT1 DD DSN=FCS1186.SELUCRT.DATASETS(FCSUNLD),DISP=OLD
//SYSUT2 DD DSN=FCS6715.HARI0,DISP=(,CATLG,DELETE),
// UNIT=DISK,
// SPACE=(CYL,(1,1)),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)
//SYSIN DD *
OPTIONS NONOTES;
DATA _NULL_;
INFILE SYSUT1;
INPUT @1 DS_NAME $44.;
FILE SYSUT2 NOTITLES NOPRINT;
NEWCARD1=' LISTC LEVEL('||TRIM(DS_NAME)||')';
PUT @2 NEWCARD1;

Not sure may be usefull to someone
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts Deleting a Tape file JCL & VSAM 14
No new posts How to copy the -1 version of a membe... TSO/ISPF 4
No new posts Searching for a member but don't know... TSO/ISPF 6
No new posts Looking For a PDS Member Without Open... PL/I & Assembler 10
Search our Forums:

Back to Top