Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to dyanamically select a PDS file using the last qlfr?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Wed Apr 04, 2007 4:39 pm    Post subject: How to dyanamically select a PDS file using the last qlfr?
Reply with quote

Hi,

I have a PDS (BPAA.CNTLCARD.V0610) which has some set of control cards. If there is any change in any of the member a new PDS (BPAA.CNTLCARD.V0611) will be created with the same set of members and with the changes in the respective member.

I have a jcl where they use the control card PDS with the naming convention of BPAA.CNTLCARD.&version, where they change this version manually whenever they create a new PDS.

Is there anyway with which i can get the version number automatically by checking the last qualifier of the PDS and get it dynamically selected in my jcl when it get triggers?

Regards,
Shobana
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 04, 2007 4:46 pm    Post subject:
Reply with quote

Well, all I can say is that whoever thought up the idea of constantly changing the name of a PDS each time it gets updated should perhaps look for a career outside of IT.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Apr 04, 2007 6:11 pm    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Shobana wrote:
Is there anyway with which i can get the version number automatically by checking the last qualifier of the PDS and get it dynamically selected in my jcl when it get triggers?


Yes, I would think you could do that. It will most likely require two jobs - one to determine and store the last name of the PDS, and then your job that uses that variable. Something maybe like this:

Code:

//STEP1    EXEC PGM=IKJEFT01                             
//SYSTSPRT DD   DSN=&&SYSTSPRT,DISP=(,PASS),             
//         UNIT=VIO,SPACE=(CYL,(1,1),RLSE)               
//SYSTSIN  DD   *                                         
LISTCAT ENT('BPAA.CNTLCARD.*')                           
/*                                                       
//*                                                       
//STEP2    EXEC PGM=ICEMAN                               
//SORTIN   DD   DSN=&&SYSTSPRT,DISP=(OLD,DELETE)         
//SORTOUT  DD   DISP=SHR,DSN=MY.PARMLIB(MYMEMB)     
//SYSOUT   DD   SYSOUT=*                                 
//SYSIN    DD   *                                         
  OPTION VLSHRT                                           
  SORT FIELDS=(22,44,CH,D)                               
  OUTFIL CONVERT,INCLUDE=(6,7,CH,EQ,C'NONVSAM'),ENDREC=3,
    OUTREC=(C'// SET THEPDS=',22,44,80:X)                 
/*                                                       
//*                                                       


where 'MY.PARMLIB(MYMEMB)' contains the line:

// SET THEPDS=BPAA.CNTLCARD.V0611

Then, your job using the variable for the PDS name:

Code:

// JCLLIB ORDER=MY.PARMLIB
// INCLUDE MEMBER=MYMEMB
//*
...
//SYSIN DD DISP=SHR,DSN=&THEPDS
Back to top
View user's profile Send private message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Wed Apr 04, 2007 7:01 pm    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Hi,

In step1, I am getting the output as

1READY
LISTCAT ENT('BPAA.DBA.R010.CNTLCARD.*')
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0702NT
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0704
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0706
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0708
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V8TEST
IN-CAT --- SYS1.CRIS#.CATALOG
READY
END

But i didnt get anything in MY.PARMLIB(MYMEMB)

After analysing the sysin in step2 with the output of the step1, i did few changes.
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=(18,44,CH,D)
OUTFIL CONVERT,INCLUDE=(2,7,CH,EQ,C'NONVSAM'),ENDREC=3,
OUTREC=(C'// SET THEPDS=',18,44,80:X)
/*

Even though am not getting any data in the output file.
Could you please explain me the sysin, so that i can check what wud be the reason?

Regards,
Shobana
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Apr 04, 2007 8:55 pm    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

OK, the first solution was a poor one, since I didn't account for the fact that the number of datasets listed could vary. The process needs to use ICETOOL instead of SORT:

Code:

//STEP1    EXEC PGM=IKJEFT01                             
//SYSTSPRT DD   DSN=&&SYSTSPRT,DISP=(,PASS),             
//         UNIT=VIO,SPACE=(CYL,(1,1),RLSE)               
//SYSTSIN  DD   *                                         
LISTCAT ENT('BPAA.CNTLCARD.*')                           
/*                                                       
//*                                                       
//STEP2    EXEC PGM=ICETOOL
//IN       DD   DSN=&&SYSTSPRT,DISP=(OLD,DELETE)         
//T1       DD   UNIT=VIO,SPACE=(CYL,(1,1))
//OUT      DD   DISP=SHR,DSN=MY.PARMLIB(MYMEMB)     
//DFSMSG   DD   SYSOUT=*                               
//TOOLMSG  DD   SYSOUT=*                               
//TOOLIN   DD   *                                     
  SORT FROM(IN) USING(CTL1)                           
  COPY FROM(T1) USING(CTL2)                           
/*                                                     
//CTL1CNTL DD   *                                     
  OPTION VLSHRT                                       
  SORT FIELDS=(22,44,CH,D)                             
  OUTFIL FNAMES=T1,CONVERT,                           
    INCLUDE=(6,7,CH,EQ,C'NONVSAM'),                   
    BUILD=(22,44,80:X)                                 
/*                                                     
//CTL2CNTL DD   *                                     
  OUTFIL FNAMES=OUT,ENDREC=1,                         
    BUILD=(C'// SET THEPDS=',1,44,80:X)               
/*                                                     
//*                                                       
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Apr 04, 2007 9:37 pm    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Hi!

since Your organization cannot live without this setup, the easiest an consolidated way of doing it is to use the ALIAS approach.
IT means :

in Your JCl use a conventional name for example
BPAA.DBA.R010.CNTLCARD.anythingYoulike

every time the new pds is created Just run a simple IDCAMS job to create an alias too the just created dataset

Code:


//ALIAS JOB ......
//AMS EXEC PGM=IDCAMS
//SYSPRINT DD SYOUT=*
//SYSIN DD *
  DELETE BPAA.DBA.R010.CNTLCARD.anythingYoulike ALIAS
  set maxcc = 0
  DEFINE ALIAS ( -
             NAME(BPAA.DBA.R010.CNTLCARD.anythingYoulike) -
             RELATE(BPAA.DBA.R010.CNTLCARD.Vnnnnnn) )
//


the Execution job would look like
Code:


//jobname JOB ....
//s exec programname
//ddname dd disp=shr,
//                 dsn=BPAA.DBA.R010.CNTLCARD.anythingYoulike(member)
....
....


Simple and clean ! no fussing around with Your procedures
the critical events:
creating the new pds and defining the alias are concentrated in single step

regards

e.s

P.S.

it the same technique used by IBM to manage the installation of new DB2 releases

the production job will always refer to
DSN.DSNLOAD
the real dataset would be
DSN.V8R1M0.DSNLOAD
DSN.V9R1M0.DSNLOAD

DSN.DSNLOAD would point to DSN.V8R1M0.DSNLOAD

at cutover time to the new relase
a simple
Code:

 DEFINE ALIAS ( -
             NAME(DSN.DSNLOAD) -
             RELATE(DSN.V9R1M0.DSNLOAD) )


would implement the switch with no changes to ANY jcl
Back to top
View user's profile Send private message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Thu Apr 05, 2007 10:08 am    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Hi,

Since the first step gets all the PDS with

[code]
1READY
LISTCAT ENT('BPAA.DBA.R010.CNTLCARD.*')
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0702NT
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0704
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0706
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V0708
IN-CAT --- SYS1.CRIS#.CATALOG
NONVSAM ------- BPAA.DBA.R010.CNTLCARD.V8TEST
IN-CAT --- SYS1.CRIS#.CATALOG
READY
END

In the above list i need BPAA.DBA.R010.CNTLCARD.V0708 in &THEPDS, but am getting BPAA.DBA.R010.CNTLCARD.V8TEST.
I tried listing the PDS as BPAA.DBA.R010.CNTLCARD.V0* but it's not working.

Is there any way i can get the list of PDS with BPAA.DBA.R010.CNTLCARD.V0*?

Regards,
Shobana
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Thu Apr 05, 2007 10:25 am    Post subject:
Reply with quote

Shobana,

Change the include condition of step2 to extract only records with 'NONVSAM' & 'BPAA.DBA.R010.CNTLCARD.V0'. I feel that should solve your problem.

Code:

INCLUDE=(6,7,CH,EQ,C'NONVSAM',AND,
                 22,25,CH,EQ,C'BPAA.DBA.R010.CNTLCARD.V0')
Back to top
View user's profile Send private message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Thu Apr 05, 2007 10:49 am    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Nope icon_sad.gif

Its giving syntax error in the OUTFIL STATEMENT

Regards,
Shobana
Back to top
View user's profile Send private message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Thu Apr 05, 2007 11:11 am    Post subject: Re: How to dyanamically select a PDS file using the last qlf
Reply with quote

Hi,

Found out the error. Now its working fine.

Thanks a lot icon_smile.gif

Regards,
Shobana
Back to top
View user's profile Send private message
Shobana

New User


Joined: 22 Mar 2005
Posts: 15
Location: Chennai

PostPosted: Wed May 16, 2007 12:04 pm    Post subject:
Reply with quote

Hi,

I have list of PDS, for example

BPAA.DBA.R010.CNTLCARD.V0704
BPAA.DBA.R010.CNTLCARD.V0706
BPAA.DBA.R010.CNTLCARD.V0706T0

By Using the above SORT card i can able to get the latest PDS. i.e BPAA.DBA.R010.CNTLCARD.V0706T0, but i need to get BPAA.DBA.R010.CNTLCARD.V0706 PDS as my output.

So i tried changing the code as follows

Code:


INCLUDE=(6,7,CH,EQ,C'NONVSAM',AND,45,2,CH,EQ,C'V0',
         AND,50,2,CH,EQ,C'  '),



but the above code is not working, am not getting anything in my output.
Do help me in this.

Thanks & Regards,
Shobana
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Wed May 16, 2007 6:05 pm    Post subject:
Reply with quote

Code:
AND,50,2,CH,EQ,C'  '),

The IDCAMS output is Variable length file and in position 50,2 it doesnt necesarlily be spaces. Thats the reason its not working.

You need to fix your SORT card.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 1 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 3 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us