Search-For Utility for TSO

Imagine que você criou um JCL para resolver um problema muito sério, depois de criar você rodou e resolveu o problema se passaram meses e o mesmo problema voltou a ocorrer e você tem que rodar o mesmo JCL mais não lembra o nome do membro que você criou, você sabe o nome da biblioteca e alguma outra coisa deste JCL, o TSO tem uma função muito interessante de busca em uma determinada biblioteca palavras que ajudam em muito a encontrar o jcl, para demonstrar vou criar um membro em uma biblioteca e vou colocar uma palavra chave que vou pesquisar, vou colocar a palavra chave chamada de PW3270

   Menu  Utilities  Compilers  Help

 BROWSE    ADCD.LIB.JCL(WX01) - 01.07                 Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************

PW3270 - PALAVRA QUE QUERO ENCONTRAR;

******************************** Bottom of Data ********************************













  F1=Help    F2=Split   F3=Exit    F5=Rfind   F7=Up      F8=Down    F9=Swap
 F10=Left   F11=Right  F12=Cancel

Iniciando a Pesquisa

Vamos acessar a opção 3.15 para fazer a pesquisa;

   Menu  Utilities  Compilers  Options  Status  Help

                            ISPF Primary Option Menu
 Option ===> 3.15

 0  Settings      Terminal and user parameters            User ID . : IBMUSER
 1  View          Display source data or listings         Time. . . : 15:44
 2  Edit          Create or change source data            Terminal. : 3278
 3  Utilities     Perform utility functions               Screen. . : 1
 4  Foreground    Interactive language processing         Language. : ENGLISH
 5  Batch         Submit job for language processing      Appl ID . : ISR
 6  Command       Enter TSO or Workstation commands       TSO logon : ISPFPROC
 7  Dialog Test   Perform dialog testing                  TSO prefix:
 8  Workplace     ISPF Object/Action Workplace            System ID : ADCD
 9  IBM Products  IBM program development products        MVS acct. : ACCT#
 10 SCLM          SW Configuration Library Manager        Release . : ISPF 6.0
 11 SDSF          Spool Search and Display Facility
 M  More          Additional IBM Products

      Enter X to Terminate using log/list defaults


  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

Parâmetros da Pesquisa

Observe os itens abaixo;

+-----------------+---------------------------------------+
| Search DS Name  | Coloco o nome da biblioteca entre ''  |
+-----------------+---------------------------------------+
| PDS Member List | Coloco *                              |
+-----------------+---------------------------------------+
| Caps            | Coloco a palavra que quero encontrar  |
+-----------------+---------------------------------------+

Ficando assim;

   Menu  Utilities  Options  Help

                          Extended Search-For Utility
 Command ===>
                                                                    More:     +
 Search DS Name  . . 'ADCD.LIB.JCL'
 PDS Member List . . *         (blank/pattern - member list, * - search all)

 (Leave Search DSN "blank" for concatenated-uncataloged-password panel)

 Enter Search Strings and Optional operands (WORD/PREFIX/SUFFIX,C)
    Caps . . PW3270
    Caps . .
    Caps . .
    Asis . .
    Asis . .

 Listing DSN . . . . IBMUSER.SRCHFOR.LIST
 Process Options . .
 Statements Dsn  . .

 Enter "/" to select option      Execution Mode          Output Mode
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

O resultado olhando rapidamente parece ser meio confuso mais observa que no começo da linha onde aparece a palavra STRING(S) FOUND tem um nome - este é o nome do membro que tem esta palavra;

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 VIEW       IBMUSER.SRCHFOR.LIST                            Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 ==MSG> -Warning- The UNDO command is not available until you change
 ==MSG>           your edit profile using the command RECOVERY ON.
 000001 1  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
 000002   LINE-#  SOURCE SECTION                    SRCH DSN: ADCD.LIB.JCL
 000003
 000004
 000005   WX01                        --------- STRING(S) FOUND ----------------
 000006
 000007        2  PW3270 - PALAVRA QUE QUERO ENCONTRAR;
 000008
 000009 1  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
 000010       SEARCH-FOR SUMMARY SECTION            SRCH DSN: ADCD.LIB.JCL
 000011
 000012  LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS  L
 000013          1        39864            1            491           1:80
 000014
 000015
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel

Categories: TSO