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
 

 

JCL to search a string in the dictionary

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO
View previous topic :: :: View next topic  
Author Message
deepak.kec

New User


Joined: 26 Feb 2007
Posts: 71
Location: bangalore

PostPosted: Tue Mar 17, 2009 10:09 am    Post subject: JCL to search a string in the dictionary
Reply with quote

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
View user's profile Send private message

bipinpeter

Active User


Joined: 18 Jun 2007
Posts: 208
Location: Cochin/Kerala/India

PostPosted: Tue Mar 17, 2009 10:24 am    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Mar 17, 2009 10:27 am    Post subject:
Reply with quote

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
View user's profile Send private message
ovreddy

Active User


Joined: 06 Dec 2004
Posts: 211
Location: Keane Inc., Minneapolis USA.

PostPosted: Tue Apr 21, 2009 1:14 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Checking wether a string starts from ... sundaram.naveen CLIST & REXX 9 Thu Oct 06, 2016 11:56 am
No new posts Random Password (in string format) ge... ezhavendhan COBOL Programming 10 Mon Aug 29, 2016 3:18 pm
No new posts How to insert a lengthy string havin... vidyaa DB2 7 Thu Aug 25, 2016 5:20 pm
No new posts Which function does the Ampersand (&a... Andi1982 PL/I & Assembler 3 Wed Aug 24, 2016 2:05 pm
No new posts Need a help how to replace a string i... gurunath82 CLIST & REXX 12 Tue Jul 26, 2016 11:43 pm


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