(Optional) Dynamically Adding Platform Server Libraries to ISPF

You can use the FUSCLIST member in the SAMPLIB library to dynamically add platform server libraries to the ISPF environment.

This procedure does not dynamically add the platform server STEPLIB to the ISPF PROC. You must add the platform server STEPLIB to the ISPF PROC in one of the following ways:
  • Add the platform server LOADLIB to the ISPF PROC STEPLIB.
  • Add the platform server LOADLIB to the z/OS link list.
  • Create a new PROC that has the platform server LOADLIB in the STEPLIB.
  • Use the following command to activate the STEPLIB. This must be done in TSO before ISPF starting:

    TSOLIB ACTIVATE DSNAME(FUSION.LOAD)

    After the platform server LOADLIB is added to the ISPF link list or STEPLIB, you can follow the following steps to customize the REXX exec:

Procedure

  1. Change the following statements marked in bold text to point to the correct platform server libraries.
    See the following FUSCLIST member in SAMPLIB: 
    /* REXX EXEC TO INVOKE ISPF INTERFACE         */     
/*NOTE: LOADLIB MUST BE IN STEPLIB OR LINKLST */     
X=MSG('OFF')                                                     
ARG ARG1 ARG2 ARG3                     /* SAVE INPUT PARMS*/     
/*******UPDATE THE FOLLOWING STATEMENTS TO POINT TO********/     
/*******THE CORRECT INSTALL FILES**************************/     
ISPPLIB= 'MFT.PANELS'                                         
ISPMLIB= 'MFT.MSGS'                                           
SYSEXEC= 'MFT.EXECS'                                          
FUSMSG = 'MFT.MSGTEXT'                                        
FUSCFG = 'MFT.EXECS'                                          
/*******CHANGE THE PREVIOUS STATEMENTS*********************/     
/**********************************************************/     
/* ALLOCATE ALL LIBRARIES AND FILES                       */     
/**********************************************************/     
"ALTLIB ACTIVATE APPLICATION (EXEC) DATASET('"SYSEXEC"') UNCOND"
"ISPEXEC LIBDEF SYSEXEC DATASET ID('"SYSEXEC"') UNCOND"          
"ISPEXEC LIBDEF ISPPLIB DATASET ID('"ISPPLIB"') UNCOND"          
"ISPEXEC LIBDEF ISPMLIB DATASET ID('"ISPMLIB"') UNCOND"          
"ALLOC FI(FUSMSG) SHR DA('"FUSMSG"')"    
"ALLOC FI(FUSCFG) SHR DA('"FUSCFG"')"                              
/**********************************************************/       
/* EXECUTE FUSION EXEC                                    */       
/**********************************************************/       
"ISPEXEC SELECT CMD(FUSION" ARG1 ARG2 ARG3") NEWAPPL(PROM) PASSLIB"
/**********************************************************/       
/* FREE ALL LIBRARIES AND FILES                           */       
/**********************************************************/       
"ISPEXEC LIBDEF ISPPLIB"                                           
"ISPEXEC LIBDEF ISPMLIB"                                           
"ISPEXEC LIBDEF SYSEXEC"                                           
"ALTLIB DEACTIVATE APPLICATION(CLIST)"                             
"FREE FI(FUSMSG)"                                                  
"FREE FI(FUSCFG)"                                                  
X=MSG('ON')                                                        
EXIT
  2. Copy the REXX exec to a library that is currently in the ISPF SYSEXEC or SYSPROC DD statements. Alternatively you can execute this script using the following syntax:
    EXEC ‘your.library(member)’
    Where ‘your.library(member)’ points to the updated REXX exec.