How to read macros from a CA Panvalet library with option MACRO set to PDS

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

Question: 

 

Can we use MACRO=PDS and still read macros from a CA Panvalet library as well as from a PDS/PO data set?

 

 

Answer: 

 

Yes, you can use MACRO=PDS and still read macros from a CA Panvalet library.

But you have to add ",SUBSYS=PANV" to the DD card and the PANV subsystem must be active - see query commands below please.

 

These are the relevant options used for the following tests:

...

MACDDN=PANDD,  

MACRO=PDS,     

...

 

Now you can either read the macros from a PANLIB or PDS, but not from both library types at the same time.

And, as mentioned already, you have to add ",SUBSYS=PANV" to the PANDD DD when using a PANLIB.

 

This is an example using a PANLIB library:

...

//   SET STEPLIB1='your.EZTP64.CAILIB'                     

//   SET EZOPTBL1='your.EZTP64.EZTPOPT'                               

//   SET CAIMAC01='your.TEST.PANLIB'                                  

//*------------------------------------------------------------------* 

//COMPNGO  EXEC PGM=EZTPA00                                            

//STEPLIB  DD  DISP=SHR,DSN=&STEPLIB1                                   

//EZOPTBL  DD  DISP=SHR,DSN=&EZOPTBL1                                  

//PANDD    DD  DISP=SHR,DSN=&CAIMAC01,SUBSYS=PANV                      

//SYSPRINT DD  SYSOUT=*                                                

//SYSOUT   DD  SYSOUT=*                                                 

//SYSIN    DD  *                                                       

*                                                                      

JOB INPUT NULL                                                          

  DISPLAY 'START MACRO TEST'                                           

  %EZPANMAC                                                            

  DISPLAY 'END   MACRO TEST'                                            

STOP                                                                   

*                                                                      

 

result:

...

START MACRO TEST                                   

Display from macro EZPANMAC on your.TEST.PANLIB   

END   MACRO TEST                                   

...

 

This is an example using a PO data set:

...

//   SET STEPLIB1='your.EZTP64.CAILIB'                      

//   SET EZOPTBL1='your.EZTP64.EZTPOPT'                                 

//   SET CAIMAC01='your.EZTPLS.PDS'                                 

//*------------------------------------------------------------------*  

//COMPNGO  EXEC PGM=EZTPA00                                             

//STEPLIB  DD  DISP=SHR,DSN=&STEPLIB1                                   

//EZOPTBL  DD  DISP=SHR,DSN=&EZOPTBL1                                   

//PANDD    DD  DISP=SHR,DSN=&CAIMAC01   

//SYSPRINT DD  SYSOUT=*                                                 

//SYSOUT   DD  SYSOUT=*                                                 

//SYSIN    DD  *                                                        

*                                                                        

JOB INPUT NULL                                                          

  DISPLAY 'START MACRO TEST'                                            

  %EZPDSMAC                                                              

  DISPLAY 'END   MACRO TEST'                                            

STOP                                                                    

*                                                                        

 

result à

...

START MACRO TEST                                       

DISPLAY FROM MACRO EZPDSMAC ON your.EZTPLS.PDS     

END   MACRO TEST                                       

...

 

 

Additional Information:

 

"%query init" and "%query state" is showing some information about the Panvalet subsystem on z/OS.

For instance "%query init":

...

08.50.16 TSU21944  %QUERY INIT                                                    

08.50.16 TSU21944  GSVX014I (ISPF.uid01) uid01 entered command MVS %QUERY INIT

08.50.16 TSU21944  PANV779I INITIALIZED USING MEMBER PANSYS00                     

08.50.16 TSU21944  PANV779I VERSION= 14.5A   SUBSYS NAME= PANV                     

08.50.16 TSU21944  PANV704I COMMAND EXECUTED                                       

...

and "%query state":

...

08.50.45 TSU21944  %QUERY STATE                                                   

08.50.45 TSU21944  GSVX014I (ISPF.uid01) uid01 entered command MVS %QUERY STATE

08.50.45 TSU21944  PANV775I SUBSYSTEM STATUS= ACTIVE                              

08.50.45 TSU21944  PANV704I COMMAND EXECUTED                                      

...