Setting up the enhanced ISPF commands

Using LIBDEFs

If LIBDEF invocation of the enhanced list and search is required, copy member FMNELIBD from hlq.SFMNSAM1 to a library that is available in the SYSEXEC DD for your TSO/ISPF users, and modify the exec source as follows:

LNG = 'ENU': You can specify JPN for Japanese.
hlq = 'FMN': Results in names in the form hlq.SFMNxxxx if sfx=''.
optl = '': Specifies whether there is a separate installation options library.
sfx = '': Results in names in the form hlq.SFMNxxxx.sfx
hlq2 = '': libdef fixtest library first in the form hlq2.SFMNxxxx.
sfx2 = '': libdef fixtest library first in the form hlq2.SFMNxxxx.sfx2.

Note: For a standard installation, you only need to modify the 'hlq = ' value to the installation value. Specify the 'optl = ' data set name if you have customized versions of the installation options module in a different library to hlq.SFMNMOD1.

Now refer to the following sections. If you have renamed the FMNELIBD exec, modify the command table and keys value to refer to the new name.

Without using LIBDEFs

If you are not using LIBDEFs, refer to the following sections:

Set up your edit or view function key

An edit macro is provided to perform:

Primary commands for the search report.
Editing of data from the search report.
Various useful functions from an edit or view session when your cursor is positioned on a word or data set name you are interested in.

Use the ISPF KEYS command to assign this macro to a function key for edit and view sessions. In this example F4 is used but you can substitute another function key value for your own setup.

Defining F4 with LIBDEFs shows the key definition if you use LIBDEFs.

Figure 1. Defining F4 with LIBDEFs

──────────────────────────── Keylist Utility ─────────────────────────────────────
  File
──────────────────────────────────────────────────────────────────────────────────
PRIVATE                ISR Keylist ISRSPEC Change               Row 1 to 12 of 24 
Command ===>                                                   Scroll ===> PAGE
  
 Make changes and then select File action bar.
 
 Keylist Help Panel Name . . . ISRSPECH
 
 Key       Definition                                 Format  Label
 F1 . . .  HELP                                       SHORT   Help    
 F2 . . .  SPLIT                                      LONG    Split   
 F3 . . .  EXIT                                       SHORT   Exit    
 F4 . . .  FMNELIBD KEY                               LONG    EKEY    
 F5 . . .  RFIND                                      SHORT   Rfind   
⋮

Defining F4 without LIBDEFs shows the key definition if you do not use LIBDEFs.

Figure 2. Defining F4 without LIBDEFs

──────────────────────────── Keylist Utility ─────────────────────────────────────
  File
──────────────────────────────────────────────────────────────────────────────────
PRIVATE                ISR Keylist ISRSPEC Change               Row 1 to 12 of 24 
Command ===>                                                   Scroll ===> PAGE
  
 Make changes and then select File action bar.
 
 Keylist Help Panel Name . . . ISRSPECH
 
 Key       Definition                                 Format  Label
 F1 . . .  HELP                                       SHORT   Help    
 F2 . . .  SPLIT                                      LONG    Split   
 F3 . . .  EXIT                                       SHORT   Exit    
 F4 . . .  FMNSRCHK                                   LONG    EKEY    
 F5 . . .  RFIND                                      SHORT   Rfind   
⋮

Make PDSE Workbench available from an ISPF 3.4 data set display

Define one of the following REXX execs in a member of your choosing. The member must be in a data set that is available in the SYSEXEC or SYSPROC concatenation for the TSO ISPF session, or in ALTLIB.

If you use LIBDEFs:

/* REXX INVOKE PDSE2 WORKbench */                   
ARG DSN                                             
address ISPEXEC                                     
"SELECT CMD(%FMNELIBD FUN PWB "DSN") MODE(FSCR)"    
exit

If you do not use LIBDEFs:

/* REXX INVOKE PDSE2 WORKbench */                   
ARG DSN                                             
address ISPEXEC                                     
"SELECT CMD(FILEMGR PWB "DSN") MODE(FSCR)"    
exit