View previous topic :: View next topic |
Author |
Message |
mf_user Intermediate

Joined: 01 Jun 2003 Posts: 372 Topics: 105
|
Posted: Sat Aug 30, 2008 11:54 pm Post subject: Searching GDGs of different Lengths. |
|
|
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 |
|
 |
mf_user Intermediate

Joined: 01 Jun 2003 Posts: 372 Topics: 105
|
Posted: Sun Aug 31, 2008 12:02 am Post subject: Searching only selective PDS members. |
|
|
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 |
|
 |
mf_user Intermediate

Joined: 01 Jun 2003 Posts: 372 Topics: 105
|
Posted: Sun Aug 31, 2008 12:05 am Post subject: |
|
|
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.
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 |
|
 |
mf_user Intermediate

Joined: 01 Jun 2003 Posts: 372 Topics: 105
|
Posted: Sun Aug 31, 2008 2:46 am Post subject: Solution - Searching only selective PDS members. |
|
|
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 |
|
 |
Nic Clouston Advanced
Joined: 01 Feb 2007 Posts: 1075 Topics: 7 Location: At Home
|
Posted: Sun Aug 31, 2008 10:16 am Post subject: |
|
|
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 |
|
 |
|
|