MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Searching GDGs of different Lengths.

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Sat Aug 30, 2008 11:54 pm    Post subject: Searching GDGs of different Lengths. Reply with quote

Hi,

We have a production GDG base with 240 generations. In that, 96 generations have LRECL of 190 and remaining 144 have LRECL of 287. The LRECL got increased due to the major project implementation. I did not know this until the SORT job I used abended. Now, we are asked to search these 240 generations for certain information.

I have used below SORT with GDG base supplied to SORTIN but it failed because the LRECL of all the 240 generations weren't the same.

Code:

INCLUDE COND=(1,287,SS,EQ,C'ABCDEF')


Would you please help me how I can search the GDG?Also, Is it possible to supply either 96 or 144 generatinons through a PS with DISP=SHR added to it? Will the DISP=SHR considered as DISP=(SHR,KEEP,KEEP)?

Please suggest.

TIA.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Sun Aug 31, 2008 12:02 am    Post subject: Searching only selective PDS members. Reply with quote

Hi,

We are asked to find out the jobs that use GDGs. I have used 3.14 to search our Production PDSes for string '(+1)' and it returned 350 members from two PDSes. Many of these jobs are obsolete so don't run on production. We spent two days to figure out which are all the valid jobs and got that there are 216 jobs that run as on date. Now, we have to figure out the GDGs from these jobs.

Now, how to search only these 216 jobs from two production PDSes?
My idea was like explained below but thought it would be time consuming. Also, it will not avoid duplicate entries if a new generation is created and used more than once in the same job.
Quote:

1). First copy all those 216 members from two PDSes to a separate PDS.
2). Use 3.14 to find for "(+1)" which will list all the GDGs.


Please help me to get a solution.

TIA.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Sun Aug 31, 2008 12:05 am    Post subject: Reply with quote

Hi, Admin.

I am very sorry that I posted two different questions under one topic. I did not choose new topic to put new question. Sorry about it. bonk Embarassed Mad

Please put it as two seperate topics.

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Sun Aug 31, 2008 2:46 am    Post subject: Solution - Searching only selective PDS members. Reply with quote

Ok Friends...... Now, I know how to search only selective PDS members of a PDS.

This can be done in batch mode only. Suppose, if you want to search for members JCLJOB01, JCCCOB68 & JXMIDS93 for something "ABCD" then you can use below given JCL..........

Code:

//SEARCH  EXEC PGM=ISRSUPC,                                 
//            PARM=(SRCHCMP,                                 
//            'ANYC')                                       
//*                                                         
//NEWDD  DD DSN=MY.PDS.MEMBERS,                           
//          DISP=SHR                                         
//OUTDD  DD SYSOUT=*                                         
//SYSIN  DD *                                               
SRCHFOR  'ABCD'                                             
SELECT JCLJOB01,JCCCOB68,JXMIDS93
/*


Please let me know if the same can be achieved using either SYNCSORT or FILE-AID.

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Sun Aug 31, 2008 10:16 am    Post subject: Reply with quote

On your first post:-

1 - complete your release implementation by converting the old files to the new LRECL

or

2 - get sort to treat the files as VB
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group