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

Document ID : KB000010127
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

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

Background:

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.

Instructions:

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'                                                      

/*                                                                */