How can I create a job to restore a member from Panvalet library running under a VSE operating system?
Here is a VSE JCL example - Change the job card, the USERID, loadlib and the PANLIB library names:
* * * Top of File * * *
* $$ JOB JNM=USERID,CLASS=0,DISP=D,PRI=3,NTFY=(*,USERID)
* $$ PRT CLASS=X,DISP=D,RBM=(6000,10000),RBS=400,DEST=(*,USERID)
* $$ LST CLASS=A,DEST=(*,USERID),DISP=D,JSEP=0
* $$ PUN DEST=(*,USERID),DISP=D,JSEP=0
// JOB PANREST
// OPTION DUMP JCANCEL
// DLBL CAILIB,'PANVALET.V14R4.PRODUCT.LIBRARY'
// EXTENT ,LCSSYS,1,0,2765,200
// LIBDEF PHASE,SEARCH=(CAILIB.BASE)
*
// ASSGN SYS006,DISK,VOL=LCSSYS,SHR
// DLBL PANDD1,'YOUR.V14R4.PANLIB',,DA
// EXTENT SYS006,LCSSYS
*
// ASSGN SYS004,DISK,VOL=LCSSYS,SHR
// DLBL PANDD3,'YOUR.INPUT.PROTECTION.FILE',,SD
// EXTENT SYS004,LCSSYS,1,0,3570,25
// EXEC PGM=PAN#2,SIZE=256K
++RESTORE member
/*
/&
* $$ EOJ
* * * End of File * * *
Please refer to the Systems Management Guide 14.4 for VSE Chapter 5 - PAN#2 Library Protection