|
View previous topic :: View next topic
|
| Author |
Message |
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
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 |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| 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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| 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 |
|
|
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10903
Location: italy
|
|
|
|
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 |
|
|
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
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 |
|
|
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
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 |
|
|
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
Nope 
Its giving syntax error in the OUTFIL STATEMENT
Regards,
Shobana |
|
| Back to top |
|
|
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
Hi,
Found out the error. Now its working fine.
Thanks a lot 
Regards,
Shobana |
|
| Back to top |
|
|
Shobana
New User
Joined: 22 Mar 2005
Posts: 15
Location: Chennai
|
|
|
|
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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007
Posts: 684
Location: Hollywood
|
|
|
|
| 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
