Installing the RestartPlus ISPF Interface

The RestartPlus ISPF interface provides an easy way to locate and restore members of datasets that have been archived by RestartPlus .

To Install the RestartPlus ISPF Interface

1. Modify the RestartPlus ISPF REXX EXEC for testing purposes

   Before introducing the RestartPlus ISPF interface into your production environment, you might wish to set it up in a test environment and run a few tests. To do this, you can use the REXX exec supplied on the distribution tape. It can be found in your distribution source library for RestartPlus under the member name "UC4ISPF". This EXEC, illustrated below, will allocate the required libraries and call the RestartPlus ISPF interface.

   /* THIS REXX EXEC WILL ALLOCATE LIBRARIES AND CALL ISPF */

   ADDRESS ISPEXEC

   IF DEFINE_LIBRARYS() THEN "SELECT CMD(UC4ISPF) NEWAPPL(UC4MVS) PASSLIB"

   IF FREE_LIBRARYS() THEN RETURN(1)

   ELSE SAY 'ERRORS ENCOUNTERED FREEING' LIBRARY

   ELSE SAY 'ERRORS ENCOUNTERED DEFINING' DSNAME

   RETURN(0)

   define_librarys: /* Loop to do libdefs - THIS CODE DOES NOT CHANGE! */

   do i = sourceline() by - 1

   if substr(sourceline(i),1,2) = '/*' then return(1)

   parse value sourceline(i) with dsname library

   "LIBDEF" library 'DATASET ID('dsname')'

   if rc <> 0 then return(0)

   end

   return(0)

   free_librarys: /* Loop to free libdefs - THIS CODE DOES NOT CHANGE! */

   do i = sourceline() by - 1

   if substr(sourceline(i),1,2) = '/*' then return(1)

   parse value sourceline(i) with . library

   "LIBDEF" library

   if rc <> 0 then return(0)

   end

   return(0)

   /**********************************************************************/

   /* T A B L E O F D A T A S E T S & L I B R A R I E S */

   /* DSNAMES MUST BE IN SINGLE QUOTES DDNAMES HAVE NO QUOTES */

   /**********************************************************************/

   /* DSNAMES DDNAMES */

   ' .srclib' ISPMLIB

   ' .srclib' ISPHLIB

   ' .srclib' ISPPLIB

   ' .srclib' ISPTLIB

   RestartPlus SPF REXX EXEC

   Copy this member to a dataset containing CLISTs and REXX execs. Make sure that you change "RestartPlus .srclib" to correspond to the name that you used for the source library in Step One.

2. Install JCLRAU11

   JCLRAU12 allows the ISPF interface to communicate with the supervisor.

   Copy the module JCLRAU12 to an authorized linklist dataset then issue F LLA,REFRESH at the operator's console.

   Edit the active IKJTSOxx member in SYS1.PARMLIB and add the program name JCLRAU12 to both the AUTHPGM section and the AUTHTSF section. After this is done, you can refresh the system TSO settings by issuing the following TSO command:

   PARMLIB UPDATE(xx)

   Where xx is the two-character suffix of the IKJTSOxx member you edited.

3. Establish the RestartPlus ISPF production environment

   After having satisfactorily tested the interface, you can place the interface into production. To do this, you need to modify your installation's ISPF panels to enable users to access the RestartPlus interface modules.

   Many installations have a separate panel reserved for user products. We suggest making RestartPlus available on this panel.

   In your ISPF/PDF panel library, modify the member panel that contains third-party products to point to the RestartPlus ISPF interface by adding the following line to the body section:

   U - RestartPlus ISPF INTERFACE

   Then, add the following line in the )PROC section in the list of options following the &ZSEL = TRANS( TRUNC (&ZCMD,'.') statement:

   U,'CMD(UCISPF)'

   You must make these changes in UPPER CASE and then re-invoke ISPF for them to take effect.