Install SLIKZIP 1.11 including the new ISPF dialog.

1. Here is some JCL you can use to extract the contents of all of the members of the hlq.SLIKZ111.INSTALL.XMIT dataset. You may copy the following JCL lines and paste them into a dataset.

   //TSO      EXEC PGM=IKJEFT01
   //SYSTSPRT DD SYSOUT=*
   //SYSTSIN  DD *
     DELETE SLIKZ111.INSTALL
     RECEIVE INDA('hlq.SLIKZ111.INSTALL.XMIT')
     
     DELETE SLIKZ111.SLIKEXEC
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKEXEC))
     
     DELETE SLIKZ111.SLIKLOAD
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKLOAD))
    
     DELETE SLIKZ111.SLIKMSG
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKMSG))
    
     DELETE SLIKZ111.SLIKPANL
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKPANL))
    
     DELETE SLIKZ111.SLIKTABL
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKTABL))
    
     DELETE SLIKZ111.SLIKSAMP
     RECEIVE INDA(SLIKZ111.INSTALL(SLIKSAMP))
    
     END
   /*
   

   The following datasets will be created. The dataset names will be prefixed with your TSO prefix.

   hlq.SLIKZ111.SLIKEXEC	REXX execs
   hlq.SLIKZ111.SLIKLOAD	Load modules
   hlq.SLIKZ111.SLIKMSG	ISPF messages
   hlq.SLIKZ111.SLIKPANL	ISPF panels
   hlq.SLIKZ111.SLIKTABL	ISPF tables
   hlq.SLIKZ111.SLIKSAMP	samples

   
   
2. Create the following CLIST called SLIKLIBD. To make the CLIST available to all users you must place it in one of libraries in your TSO SYSPROC concatenation. Use the sample in hlq.SLIKZ111.SLIKSAMP(SLIKLIBD) as a starting point. Modify the dataset names as appropriate.

   PROC 0
    
   /* This is an example of how to use LIBDEF statements to allocate   */
   /* SLIKZIP libraries.                                               */
   /*                                                                  */
   /* The REXX exec library is overridden using an ALTLIB statement.   */
   /*                                                                  */
   /* The load module, message, panel and table libraries are          */
   /* allocated using LIBDEF statements.                               */
   /*                                                                  */
   /* override REXX exec library                                       */
   /*                                                                  */
   ALTLIB ACTIVATE APPLICATION(EXEC) DSNAME('ASE.SLIK111.SLIKEXEC')
    
   /* override ISPLLIB    */
    
   ISPEXEC LIBDEF ISPLLIB DATASET ID('ASE.SLIKZ111.SLIKLOAD') STACK
    
   /* override ISPMLIB    */
    
   ISPEXEC LIBDEF ISPMLIB DATASET ID('ASE.SLIKZ111.SLIKMSG') STACK
    
   /* override ISPPLIB    */
    
   ISPEXEC LIBDEF ISPPLIB DATASET ID('ASE.SLIKZ111.SLIKPANL') STACK
    
   /* override ISPTLIB    */
    
   ISPEXEC LIBDEF ISPTLIB DATASET ID('ASE.SLIKZ111.SLIKTABL') STACK
    
   /* invoke SLIKZIP/ISPF */
    
   ISPEXEC SELECT CMD(SLIKISPF) NEWAPPL(ZSE) PASSLIB
    
   /* clean up            */
    
   ISPEXEC LIBDEF ISPLLIB
   ISPEXEC LIBDEF ISPMLIB
   ISPEXEC LIBDEF ISPPLIB
   ISPEXEC LIBDEF ISPTLIB
   ALTLIB RESET
   EXIT
   

   
   
3. To test the SLIKZIP ISPF dialog you may simply issue one of these commands in ISPF option 6:

   %SLIKLIBD
   

   or

   EXEC 'dsname(SLIKLIBD)'
   

   
   
4. To make the SLIKZIP ISPF dialog available to all TSO users, you must add an entry to an appropriate ISPF selection panel to invoke the SLIKLIBD CLIST e.g.

   SZ,CMD(SLIKLIBD)
   

Return to previous page

To comment or request assistance, please email us
Last updated: 18:25 SUN 20th May 2012 GMT