|
View previous topic :: View next topic
|
| Author |
Message |
deepak.kec
New User
Joined: 26 Feb 2007
Posts: 71
Location: bangalore
|
|
|
|
Hi,
i need a JCL to search multiple string in the Dictionary. Please let me know if any one of you have information.
Thanks to all for providing me valuable informations. |
|
| Back to top |
|
 |
bipinpeter
Active User
.jpg)
Joined: 18 Jun 2007
Posts: 213
Location: Cochin/Kerala/India
|
|
|
|
You can use ISRSUPC utility,there in search for area u can give multiple values to be searched.Executre the below step in a JCL,
| Code: |
// EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,ANYC,IDPFX,NOPRTCC)
//NEWDD DD DSN=your.data.set.name,DISP=OLD
//OUTDD DD SYSOUT=A
//SYSIN DD *
SRCHFOR 'string1'
SRCHFOR 'string2'
SRCHFORC 'and string3'
/* |
Regards,
Bipin Peter |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
It is better to understand the request before posting a "solution".
The question is about the IDMS dictionary, not some user file. . . |
|
| Back to top |
|
|
ovreddy
Active User
.jpg)
Joined: 06 Dec 2004
Posts: 211
Location: Keane Inc., Minneapolis USA.
|
|
|
|
Hi,
Following JCL can be used to search for the text in all dialogues. Similar way you can prepare your own query based on records. Below JCL will find 'TAX-CD' in all ADSO dialogues
| Code: |
//STEP020 EXEC PGM=OLQBATCH,COND=(12,LE)
//SYSIDMS DD DSN=IDMS.TN00.SYSIDMS(SYSBUY1),
// DISP=SHR
//*BUYDICT DD DSN=IDMS.TN00.BUYDICT,BUFNO=30,
//* DISP=SHR
//DCLSCR DD DSN=&SCRATCH,DISP=(OLD,DELETE)
//SYSLST DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYSJRNL DD DUMMY
//SYSIPT DD *
SET USER HXGGL0
SIGNON SS IDMSNWKA SCHEMA IDMSNTWK( 1)
OPTIONS ALL HEADER ECHO NOFILLER FULL WHOLE INTERRUPT OLQHEADER -
NOPATHSTAT NOSTAT COMMENT VERBOSE NODBKEY PICTURE CODETAB NOSYN
SELECT DISTINCT -
PROG-051.PROG-NAME-051 -
PROG-051.PROG-VER-051 -
MODULE-067.MOD-NAME-067 -
MODULE-067.MOD-VER-067 -
TEXT-088.IDD-SEQ-088 -
TEXT-088.SOURCE-088 -
FROM OOAK-012, -
MODLST-055, -
MODULE-067, -
PROG-051, -
TEXT-088 -
WHERE OOAK-KEY-012 EQ 'OOAK' -
AND OOAK-PROG -
AND PROG-MODLST -
AND MODULE-MODLST -
AND MODULE-TEXT -
AND PROG-051.PROG-NAME-051 MATCHES -
'*' -
AND PROG-051.PROG-VER-051 BETWEEN 1 AND 99 -
AND PROG-051.BUILDER-051 IN ('A','D') -
AND MODULE-067.LANG-067 EQ 'PROCESS' -
AND TEXT-088.SOURCE-088 CONTAINS -
' TAX-CD ' -
ORDER BY PROG-NAME-051 -
PROG-VER-051 -
MOD-NAME-067 -
MOD-VER-067 -
IDD-SEQ-088 |
Thanks,
Reddy |
|
| Back to top |
|
|
|
|
