FIND command example

To find all occurrences of "MIMIC" in a member such as the one shown in Figure 1, type FIND ALL MIMIC on the command line.

Figure 1. Before FIND command (ISREDDE2)

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help
 ───────────────────────────────────────────────────────────────────────────────
 EDIT       SBURNF.PRIVATE.EXEC(FCEXMP) - 01.00             Columns 00001 00072
 Command ===> find all mimic                                   Scroll ===> CSR 
 ****** ***************************** Top of Data ******************************
 000001 /* REXX */
 000002 /* REXX */
 000003 ADDRESS TSO
 000004 /*                                                                   */
 000005 /* RECREATE THE OLD BACKUP DATA SETS                                 */
 000006 /*                                                                   */
 000007 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.ARCHDEF')"
 000008 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.CLIST')"
 000009 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.CPP')"
 000010 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.EXEC')"
 000011 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.GIF')"
 000012 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.GMLINC')"
 000013 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.HPP')"
 000014 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.HSAS65')"
 000015 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.LEL')"
 000016 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2LMAP')"
 000017 CALL MIMIC "ALLOC DA('PDFTDEV.SVT2.LOAD')"
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel

After you press Enter, the editor searches for the string starting at the top of the data, places the cursor at the beginning of the first occurrence ( 1 ), and displays the number of occurrences ( 2 ) as shown in Figure 2.

Figure 2. After FIND command

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help
 ───────────────────────────────────────────────────────────────────────────────
 EDIT       SBURNF.PRIVATE.EXEC(FCEXMP) - 01.00               2  21 CHARS 'MIMIC'
 Command ===>                                                  Scroll ===> CSR 
 ****** ***************************** Top of Data ******************************
 000001 /* REXX */
 000002 /* REXX */
 000003 ADDRESS TSO
 000004 /*                                                                   */
 000005 /* RECREATE THE OLD BACKUP DATA SETS                                 */
 000006 /*                                                                   */
 000007 CALL 1 MIMIC "ALLOC DA('PDFTDEV.SVT2.ARCHDEF')"
 ⋮