Sample customized ISPF interface front-end

In certain circumstances it might be desirable to dynamically tailor the initial Fault Entry List display shown when the Fault Analyzer ISPF interface is invoked. For example, to preselect the Fault History File or View name being used, or provide a dynamically created MATCH command. A MATCH command can be useful, for example to MATCH on today's date, or a specific PROGRAM name.

An example of how this dynamic tailoring can be achieved is included in the samples data set (IDI.SIDISAM1). The example displays a popup panel which allows the user to supply an optional program name and an Application ID or 'View' name (see Figure 1). A '?' can be placed in the Application/View field to display a list of available applications and views (see Figure 2). In the sample, if the length of the Application/View ID is 2, the selected name is used to form the name of a Fault History File as follows:

<Variable DSNp1>.<System ID>.HIST.<Variable DSNp2>.<Application>

If not a length of 2, the ID is assumed to be the name of a Fault Analyzer VIEW.

Once an Application/View ID has been successfully entered, and its existence verified, then the user can press Enter to invoke Fault Analyzer. If a program name was also supplied, then a corresponding MATCH command is also created.

The sample comprises the following files. Each member should be copied to a data set that is concatenated to the DDname indicated in the table.
Table 1. Sample members in the IDI.SIDISAM1 data set
File DDname Description
IDISFEMA SYSPROC Main REXX exec
IDISFESK ISPSLIB ISPF skeleton for creating history file
IDISFECL SYSPROC Intermediary CLIST used when invoking Fault Analyzer
IDISFEAP ISPPLIB ISPF panel used for application selection
IDISFEQP ISPPLIB Query ISPF panel
IDISFEMP ISPPLIB Main ISPF panel for supplying user parameters
Figure 1. Sample display 1
  Menu  Utilities  Compilers  Options  Status  Help
──────────────────────────────────────────────────────────────────────────────
     ┌───────────────────────────────────────────────────────────────────┐
Opti │                Fault Analyzer History File Selection              │
     │                -------------------------------------              │
0  S │                                                                   │ K
1  V │ DSN:  ADRIAN                                                      │
2  | │                                                                   │
3  U │ Environment:  FAE1                                                │
4  F │                                                                   │ H
5  B │ Program    :  IDIXFA                                              │
6  C │                                                                   │
7  D │ Application:  ADRIAN      Enter ? for list                        │ K
9  I │ or Views                                                          │
10 S │                                                                   │
11 W │ Enter=Check For DSN  PF3=Exit                                     │ .0
12 z │                                                                   │
13 z │                                                                   │
14 I └───────────────────────────────────────────────────────────────────┘
S  SDSF          SDSF
Figure 2. Sample display 2
  Menu  Utilities  Compilers  Options  Status  Help
──────────────────────────────────────────────────────────────────────────────
     ┌───────────────────────────────────────────────────────────────────┐
Opti │                Fault Analyzer History File Selection              │
     │                -------------------------------------              │
0  S │                                                                   │ K
1  V │ DSN:  ADRIAN                                                      │
2  | │      ┌───────────────────────────────────────────────────┐        │
3  U │ Envi │                                 Row 1 to 10 of 10 │        │
4  F │      │ Command ===> _________________________________    │        │ H
5  B │ Prog │                Application Selection              │        │
6  C │      │                ---------------------              │        │
7  D │ Appl │                                                   │        │ K
9  I │ or V │ Please use S to select the application.           │        │
10 S │      │   Application                                     │        │
11 W │ Ente │ _ AA       Application 1                          │        │ .0
12 z │      │ _ AB       Application 2                          │        │
13 z │      │ _ AC       Application 3                          │        │
14 I └───── │ _ ZZ       Application 4                          │ ───────┘
S  SDSF     │ _ FA       Fault Analyzer Default                 │
            │ _ Dev1     View 1                                 │
     Enter  │ _ Dev1     View 2                                 │
            │ _ APC      View 2                                 │
            │ _ DB2      View 3                                 │
            │ _ CICS     View 4                                 │
            │ **************** Bottom of data ***************** │
            │                                                   │
            │                                                   │
            └───────────────────────────────────────────────────┘

Once a Fault History File or View name has been selected and verified, the sample code performs the following processing.