IBM Products option

Module ISRALTDI is used to determine if products are installed for the IBM® Products Option (option 9). Products are considered to be installed if a specific panel for the product can be found in the panel library. If the panel is found, then ISPF will attempt to invoke it. No other checks are made to see if the products are correctly and completely installed or available.

For Information/System invocation, all parameters are allowed to default. To add parameters to the invocation, modify panel ISRDINFX by placing this statement immediately after the string PGM(BLGINIT):

PARM(your additional parameters)

To pass suboptions to the product panels, use the TRUNC and TRAIL functions with the ZALTTR variable before invoking program ISRALTDI. ZALTTR can hold up to 80 characters. Use this code:

&ZALTTR; = TRUNC(&ZCMD,'.')
&ZALTTR; = .TRAIL
&ZSEL; = TRANS(TRUNC*&ZCMD,'.')

The operation of ISRALTDI is:

Search the panel library for the primary panel.
If the primary panel exists, SELECT or DISPLAY the primary or alternate panel. If the primary panel does not exist, search the panel library for the secondary panel.
If the secondary panel exists, SELECT or DISPLAY the secondary or alternate panel. If the secondary panel does not exist, set an error message.

ISRALTDI is intended to be invoked from a selection panel. The parameter list follows:

SELECT PGM(ISRALTDI) PARM(
    Primary-panel
, < Primary-application-id   >
,   Secondary-panel
, < Secondary-application id >
, < Alternate-panel          >
, < Alternate-application-id >
) NOCHECK

After the last nonblank parameter, trailing commas are optional. The parameters are described here.

Primary-panel and secondary-panel are panel names and are required.

Primary- and secondary-application-id can be:

APPLICATION ID: 0 to 4 character APPLID under which a panel is to be SELECTed.
*: DISPLAY this panel.
+: Use alternate panel.

Alternate-panel is an optional panel name.

Alternate APPLID can be:

APPLICATION ID: 0 to 4 character APPLID under which a panel is to be SELECTed.
*: DISPLAY this panel.

Some examples of the parameter string for ISRALTDI follow:

If PANEL1 exists, SELECT it with application ID ‘AP’. Otherwise, DISPLAY panel ‘NOTHERE’.
```
PANEL1,AP,NOTHERE,*
```
If PANEL1 exists, DISPLAY it. Otherwise, DISPLAY panel ‘NOTHERE’.
```
PANEL1,*,NOTHERE,*
```
If PANEL1 exists, SELECT PANEL3 with application ID ‘CSP’. Otherwise, SELECT panel ‘UNAVAIL’ with application ID ‘ISR’.
```
PANEL1,+,UNAVAIL,ISR,PANEL3,CSP
```
If PANEL1 exists, SELECT PANEL3 with application ID ‘CSP’. Otherwise, SELECT panel ‘UNAVAIL’ with current APPLID.
```
PANEL1,+,UNAVAIL,,PANEL3,CSP
```
If PANEL1 exists, SELECT PANEL1 with current application ID. Otherwise, SELECT panel ‘UNAVAIL’ with current APPLID.
```
PANEL1,,UNAVAIL
```