|
View previous topic :: View next topic
|
| Author |
Message |
ajaybshukla
New User
Joined: 09 Sep 2008
Posts: 39
Location: india
|
|
|
|
Hi All,
My requirement is..
I have 1 value like say 'EXPERT' in any of 100 GDG's.
i want to find in which GDG it is there.
i want to use JCL for this.
Can u please help me how to do it.
Thanks
Ajay |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
100 generations or 100 GDG bases ?
Which program / utility would you like the JCL to process. |
|
| Back to top |
|
|
ajaybshukla
New User
Joined: 09 Sep 2008
Posts: 39
Location: india
|
|
|
|
Hi,
100 generations or more...i tried with file aid..bt it dint work or i mite hv done somethin wrong
So i want to know how to do it and with which utility...
Please help me out
Thanks.. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| 3.13 usually helps |
|
| Back to top |
|
|
ajaybshukla
New User
Joined: 09 Sep 2008
Posts: 39
Location: india
|
|
|
|
Thanks expat
But can u please temme how to do it with JCL...please.
Thanks |
|
| Back to top |
|
|
ajaybshukla
New User
Joined: 09 Sep 2008
Posts: 39
Location: india
|
|
|
|
Hi EXPAT,
Thanks i hv done it...
Thanks...i use 3.14 in batch mode i got JCL...
Thank you very much |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Good news, always when a hint is given and the poster finds the rest out for themselves.
Good work, well done. |
|
| Back to top |
|
|
rakesha.hg
Active User
Joined: 21 Mar 2008
Posts: 161
Location: bangalore
|
|
|
|
Well,
There is one jcl which we use to find a particular string in the GENERATIONS of a Particular GDG ... (Courtsey ibmmainframes.com)
Since you have already found some alternate solution ... if anyones interested ... i'll post it. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
| Go ahead and post it please. . . lets' see what's in the store . . . |
|
| Back to top |
|
|
ojdiaz
New User
Joined: 19 Nov 2008
Posts: 99
Location: Spain
|
|
|
|
I'm already interested as well 
I use 3.14 as well for searchs as well and extracted the JCL from it, since then i just submit a job and that's it. Something like
| Code: |
//SEARCHLI JOB (EEMP,1),'SEARCHLI',CLASS=A,REGION=0M,
// TIME=1440,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,
// 'ANYC')
//*NEWDD DD DSN=MDRE.LIBZ.JCLLIB,DISP=SHR
//*NEWDD DD DSN=SYSNIBM.BMC.V61.CTM.JCL,DISP=SHR
//*NEWDD DD DSN=MDTE.LIBZ.PARMLIB,DISP=SHR
//*NEWDD DD DSN=CHGMAN.BSLZ.SOURCE,DISP=SHR
//NEWDD DD DSN=CHGMAN.BSLZ.COPYS,DISP=SHR
//*YOU CAN SPECIFY ANY FILE OR LIB TO SEARCH, EVEN SEVERAL OF THEM AT THE SAME TIME
//OUTDD DD SYSOUT=(A)
//SYSIN DD *
SRCHFOR 'LEADING'
//*YOU CAN SPECIFY SEVERAL SEARCH STRINGS AS WELL. ONE PER LINE |
|
|
| Back to top |
|
|
rakesha.hg
Active User
Joined: 21 Mar 2008
Posts: 161
Location: bangalore
|
|
|
|
hi all,
here is the jcl we use for the requirement i stated earlier ...
| Code: |
//CG56SRCH JOB HNA81622SAEF00,DEVT,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID
//*%OPC SCAN
//*************************************************
//* APPLICATION = &OADID
//* OCCURRENCE IA = &ODMY2&OHHMM
//* OPERATION NO = &OOPNO / &OWSID
//* DATE PASSAGE = &CDDMMYY A &CHHMM
//*************************************************
//JOBLIB DD DSN=RQEN.COMM.DU.LOADLIB,DISP=SHR
//CG820100 EXEC PGM=IKJEFT01
//SYSTSPRT DD DSN=&L,
// DISP=(,PASS),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSTSIN DD *
LISTCAT ENT('GDG BASE NAME HERE') NAME
//*
//STEP0200 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=&L,DISP=(OLD,DELETE)
//TOOL DD DSN=&T,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//INDD DD DSN=&I,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//CTLDD DD DSN=&C,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
//CTL1CNTL DD *
INCLUDE COND=(4,7,CH,EQ,C'NONVSAM')
OUTFIL FNAMES=TOOL,
OUTREC=(C' COPY FROM(GDG',SEQNUM,3,ZD,
C') TO(OUT) USING(C',SEQNUM,3,ZD,
C')',80:X)
OUTFIL FNAMES=INDD,
OUTREC=(C'//GDG',
SEQNUM,3,ZD,3X,
C'DD',X,
C'DISP=SHR,',
C'DSN=',17,44,
80:X)
OUTFIL FNAMES=CTLDD,
OUTREC=(C'//C',SEQNUM,3,ZD,C'CNTL DD *',/,
C' INCLUDE COND=(1,250,SS,EQ,C''', /* Search criteria,file length
C'NC2732421'C'''',C')',/, & field your searching goes here */
C' OUTFIL FNAMES=OUT,REMOVECC,',/,
C' HEADER1=(',C'''',C'STRING IN ',
17,44,C'''',C')',80:X)
/*
//STEP0300 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
//SORTOUT DD SYSOUT=(*,INTRDR)
//SORTIN DD DATA,DLM=$$
//CG82XINT JOB HNA81622SAEF00,DEVT,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID
//*
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//OUT DD DSN=CG56.GDG.SEARCH.INFO, /* place to look for the result */
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE)
//TOOLIN DD *
$$
// DD DSN=&T,DISP=(OLD,PASS)
// DD DSN=&C,DISP=(OLD,PASS)
// DD DSN=&I,DISP=(OLD,PASS)
|
1) This jobs submits internal jcl(totally 2 jobs run if we submit this).
2) It will recall the migrated generations(not recommended ... HRECALL much faster).
3) Search info dataset will have the results of search.basically lists all the Generations it searched &
--> IF string found under particular generation -- Message 'STRING in XXXX'
--> NOT found - no message.
I would take this oppurtunity to thank Skulosu who provided base to develop this. Request some moderator to notify him plz. |
|
| Back to top |
|
|
rakesha.hg
Active User
Joined: 21 Mar 2008
Posts: 161
Location: bangalore
|
|
|
|
hi all,
here is the jcl we use for the requirement i stated earlier ...
| Code: |
//CG56SRCH JOB HNA81622SAEF00,DEVT,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID
//*%OPC SCAN
//*************************************************
//* APPLICATION = &OADID
//* OCCURRENCE IA = &ODMY2&OHHMM
//* OPERATION NO = &OOPNO / &OWSID
//* DATE PASSAGE = &CDDMMYY A &CHHMM
//*************************************************
//JOBLIB DD DSN=RQEN.COMM.DU.LOADLIB,DISP=SHR
//CG820100 EXEC PGM=IKJEFT01
//SYSTSPRT DD DSN=&L,
// DISP=(,PASS),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSTSIN DD *
LISTCAT ENT('GDG BASE NAME HERE') NAME
//*
//STEP0200 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=&L,DISP=(OLD,DELETE)
//TOOL DD DSN=&T,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//INDD DD DSN=&I,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//CTLDD DD DSN=&C,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
//CTL1CNTL DD *
INCLUDE COND=(4,7,CH,EQ,C'NONVSAM')
OUTFIL FNAMES=TOOL,
OUTREC=(C' COPY FROM(GDG',SEQNUM,3,ZD,
C') TO(OUT) USING(C',SEQNUM,3,ZD,
C')',80:X)
OUTFIL FNAMES=INDD,
OUTREC=(C'//GDG',
SEQNUM,3,ZD,3X,
C'DD',X,
C'DISP=SHR,',
C'DSN=',17,44,
80:X)
OUTFIL FNAMES=CTLDD,
OUTREC=(C'//C',SEQNUM,3,ZD,C'CNTL DD *',/,
C' INCLUDE COND=(1,250,SS,EQ,C''', /* Search criteria,file length
C'NC2732421'C'''',C')',/, & field your searching goes here */
C' OUTFIL FNAMES=OUT,REMOVECC,',/,
C' HEADER1=(',C'''',C'STRING IN ',
17,44,C'''',C')',80:X)
/*
//STEP0300 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
//SORTOUT DD SYSOUT=(*,INTRDR)
//SORTIN DD DATA,DLM=$$
//CG82XINT JOB HNA81622SAEF00,DEVT,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID
//*
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//OUT DD DSN=CG56.GDG.SEARCH.INFO, /* place to look for the result */
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE)
//TOOLIN DD *
$$
// DD DSN=&T,DISP=(OLD,PASS)
// DD DSN=&C,DISP=(OLD,PASS)
// DD DSN=&I,DISP=(OLD,PASS)
|
1) This jobs submits internal jcl(totally 2 jobs run if we submit this).
2) It will recall the migrated generations(not recommended ... HRECALL much faster).
3) Search info dataset will have the results of search.basically lists all the Generations it searched &
--> IF string found under particular generation -- Message 'STRING in XXXX'
--> NOT found - no message.
I would take this oppurtunity to thank Skulosu who provided base to develop this. Request some moderator to notify him plz. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
