Need to allow certain users to delete members from a CA Panvalet library

Products

• CA Database Analyzer (IMS Tools)
• CA Mainframe Configuration Manager for IMS for z/OS
• IMS TOOLS - MISC
• CA Compress Data Compression (IMS Tools)
• CA Database Analyzer for IMS for z/OS
• CA Database Copier for IMS for z/OS
• CA Database Organizer for IMS for z/OS
• CA Mainframe Extended Terminal Manager (IMS Tools)
• CA High Performance Recovery for IMS for z/OS
• CA Database Organizer (IMS Tools)
• CA Mainframe Program Restart Manager for IMS for z/OS
• CA Secondary Index Builder for IMS for z/OS
• CA Secondary Index for IMS for z/OS
• CA JARS
• CA JARS Resource Accounting
• CA JARS SMF Director
• CA JMR
• CA MIM Resource Sharing (MIM)
• CA MIM Data Sharing (MII)
• CA MIM Tape Sharing (MIA)
• CA MIM Message Sharing (MIC)
• Nastel AutoPilot for WebSphere MQ
• CA Panvalet
• CA QuickFetch
• CA Raps VSE
• CA Scheduler VSE
• CA SMR
• CA SOLVE:Operations Automation
• SOLVE:Access Session Management
• CA SOLVE:FTS
• CA SYSVIEW Performance Management
• NXBRIDGE - SYSYVIEW/ENDEVOR
• CA SOLVE

Issue/Introduction

Need to allow certain administrative users delete members from a CA Panvalet library. 

The CA Panvalet Option for ISPF panel PSPIPOPT has the $SF050 variable set to N preventing general users from deleting PANLIB members. This delete restriction needs to remain in place.

Environment

Release: PVALET00200-14.6-Panvalet
Component:

Resolution

In the PSPIPOPT options panel, code IF statements to set the $SF050 and $SF051 variables to a Y for the user id's of the users to need delete capabilities:

 

/*                                                            14.5*/ 

/*               *** UTILITY P.3 DELETE   ***                 14.5*/ 

/*                                                            14.5*/ 

&SF050 = 'N' /* N= DO NOT ALLOW DELETES                       14.5*/ 

             /* Y= ALLOW DELETES                              14.5*/ 

IF (&ZUSER = 'ADMIN01') /* Admin User1 can delete */              

  &SF050 = 'Y'                                                       

IF (&ZUSER = 'ADMIN02') /* Admin User2 can delete */

  &SF050 = 'Y'               

/*                                                                */

&SF051 = 'N' /* N= DO NOT ALLOW DELETES OF PRODUCTION MEMBERS 14.5*/

             /* Y= ALLOW DELETES OF PRODUCTION MEMBERS        14.5*/ 

IF (&ZUSER = 'ADMIN01') /* Admin User1 can delete */              

  &SF051 = 'Y'                                                       

IF (&ZUSER = 'ADMIN02') /* Admin User2 can delete */                    

  &SF051 = 'Y'                                                      

/*                                                                */