IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Scan multiple Panvalet libraries in batch using PAN#8


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 177
Location: Seattle, WA

PostPosted: Wed Jul 25, 2007 2:14 am
Reply with quote

I am attempting to scan multiple Panvalet libraries in batch using PAN#8. However, it only scans the first library and then quits. Our Panvalet version is 14.5. Here is the JCL:

Code:

//PAN8B  EXEC PGM=PAN#8,PARM='OPEN=INP'         
//PANDD1   DD  DISP=SHR,DSN=MVD.TECH.PANVALET   
//PANDD11  DD  DISP=SHR,DSN=MVD.QFIX.PANVALET   
//PANDD12  DD  DISP=SHR,DSN=MVD.PSTG.PANVALET   
//PANDD13  DD  DISP=SHR,DSN=MVD.DRVS.PANVALET   
//PANDD14  DD  DISP=SHR,DSN=MVD.MSYS.PANVALET   
//PANDD15  DD  DISP=SHR,DSN=MVD.SYST.PANVALET   
//PANDD16  DD  DISP=SHR,DSN=MVD.MAIN.PANVALET   
//PANDD17  DD  DISP=SHR,DSN=MVD.ESYS.PANVALET   
//PANDD18  DD  DISP=SHR,DSN=MVD.DRVT.PANVALET   
//PANDD19  DD  DISP=SHR,DSN=MVD.REGI.PANVALET   
//PANDD20  DD  DISP=SHR,DSN=MVD.INTG.PANVALET   
//PANDD21  DD  DISP=SHR,DSN=MVD.MSYS.PANVALET   
//PANDD22  DD  DISP=SHR,DSN=MVD.QFIX.PANVALET   
//PANDD23  DD  DISP=SHR,DSN=MVD.PSTG.PANVALET   
//PANDD2   DD  SYSOUT=*   
//SYSIN    DD  *               
++CONTROL 2887                 
++SCAN *,'DLCAMVAR2K'         
/*                             


And yes, I have read several manuals and although I have copied this code, it doesn't work.
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 177
Location: Seattle, WA

PostPosted: Thu Aug 02, 2007 5:19 am
Reply with quote

Well, with absolutely no thanks to CA (why do they bother having you ask them when they never answer????), I found the answer.

It can't be done.

PAN#8 is set up to ONLY scan one library at a time, so my JCL had to execute a step for each and every library I wanted scanned. At least through the magic of DISP=(MOD,CATLG,CATLG), I was able to create just one output file.


Here's what I had to do (20 times...... icon_sad.gif )
Code:

//*******************************                                       
//PAN8S01 EXEC PGM=PAN#8,PARM='OPEN=INP'                               
//PANDD1   DD  DISP=SHR,DSN=MVD.TECH.PANVALET                           
//SYSPRINT DD  DSN=MVD.MV603.PANSCAN.RESULTS,                           
//         DISP=(MOD,CATLG,CATLG),UNIT=DISK,SPACE=(TRK,(50,50),RLSE)   
//SYSIN    DD  DSN=MV603.INCLUDE.CNTL(PANSCANT),DISP=SHR               
//*******************************                                       
//PAN8S02 EXEC PGM=PAN#8,PARM='OPEN=INP'                               
//PANDD1   DD  DISP=SHR,DSN=MVD.SYST.PANVALET                           
//SYSPRINT DD  DSN=MVD.MV603.PANSCAN.RESULTS,                           
//         DISP=(MOD,CATLG,CATLG),UNIT=DISK,SPACE=(TRK,(50,50),RLSE)   
//SYSIN    DD  DSN=MV603.INCLUDE.CNTL(PANSCANT),DISP=SHR               


So here you go - I hope this saves someone else hours of research and testing!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts How to get a stack trace on a looping... ABENDS & Debugging 5
No new posts Calling Java method from batch COBOL ... COBOL Programming 5
No new posts Multiple table unload using INZUTILB DB2 2
Search our Forums:

Back to Top