Open topic with navigation

TIBCO® Managed File Transfer Platform Server for z/OS 8.1.0

# (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.

Copyright © 2003-2021. TIBCO Software Inc. All Rights Reserved.