Method To Display All Top Secret PTFs Applied

Products

• Top Secret

Issue/Introduction

Is there a way to display all the PTFs that are applied on a system?

Environment

Release : 16.0

Component : Top Secret for z/OS

Resolution

Outside of CSM, there are 2 options:

1) Run the following jcl to do a LIST PTFS for your Top Secret CSI:

//SMP     EXEC PGM=GIMSMP,PARM='DATE=U',REGION=6M              
//SMPCSI   DD  DISP=SHR,DSN=your.CSI                           
//SMPCNTL  DD  DDNAME=SYSIN                                    
//SMPHOLD  DD  DUMMY                                           
//SYSPRINT DD  SYSOUT=*                                        
//SMPOUT   DD  SYSOUT=*                                        
//SMPLIST  DD  DSN=your.dataset,DISP=(,CATLG),UNIT=SYSDA,      
// SPACE=(CYL,(15,15))                                         
//SMPLOG   DD  DUMMY                                           
//SMPRPT   DD  SYSOUT=*                                        
//SMPWRK1  DD  UNIT=SYSDA,SPACE=(CYL,(10,5,250))               
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(5,1))                    
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                        
//PARMLIB  DD  DSN=SYS1.PARMLIB,DISP=SHR                       
//SYSIN DD *                                                   
   SET    BOUNDARY (TARGET).                                   
   LIST PTFS.   

2) Use the CAMODID command from option 6 of TSO ISPF. For example:

camodid system sortfmid

Look for the fixes that have the Top Secret FMIDs of CAKOG0x where:

CAKOG00 is the Top Secret base  and SAF FMID
CAKOG01 is the Top Secret CICS FMID
CAKOG02 is the Top Secret IMS FMID
CAKOG03 is the Top Secret IDMS FMID
CAKOG04 is the Top Secret ROSCOE FMID

The 'system' operand scans modules in common storage, including MLPA, LPA, and the nucleus along with the current linklist datasets.

The 'sortfmid' operand will sort the output by FMID.