How can I do a mass change on Panlib members?

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

Description:

Some PAN#n utility commands, such as STATUS, can only modify one member at a time. Read on to expedite the process for multiple items.

Solution:

To automate the process, use the PGP (Panvalet Group Processor) feature which is documented in the Extended Features Guide. PGP is an exit program linked at
installation time and does not require you to do any linking. Use the name PGP to invoke the feature as a transient exit with USING.

Wildcarding can be used on the PRINT command which controls the filtering.

Here we will create a punch file with a command line of

++STATUS memname,INACTIVE
for each member starting with ABC:

  //STEP1 EXEC PGM=PAN#2  
  //PANDD1 DD DISP=SHR,DSN=your.PANLIB  
  //PANDD2 DD DUMMY  
  //PANDD3 DD DUMMY  
  //SYSPRINT DD SYSOUT=*  
  //SYSPUNCH DD DISP=(,CATLG,DELETE),DSN=punch.file,  
  // UNIT=SYSDA,SPACE=(TRK,(1,1)),  
  // DCB=(LRECL=80,BLKSIZE=80)  
  //SYSIN DD *  
  ++USING PGP  
  +-STATUS ,INACTIVE  
  ++PRINT 0-UP,NAME=ABC  
  /*  
  // 

If you want all members in the PANLIB, just remove the NAME= qualification
from the PRINT command.