To replace a dataset in the LNKLST, you can do the following:
P LLA
SETPROG LNKLST,DEFINE,NAME=newlnklst,COPYFROM=CURRENT
SETPROG LNKLST,DELETE,NAME=newlnklst,DSNAME=old.dataset.name
SETPROG ADD,NAME=newlnklst,DSNAME=new.dataset.name,AFTER=dsname
SETPROG LNKLST,ACTIVATE,NAME=newlnklst
SETPROG LNKLST,UPDATE,JOBS=*
SETPROG LNKLST,DELETE,NAME=oldlnklst,DSNAME=old.dataset.name
SETPROG ADD,NAME=newlnklst,DSNAME=new.dataset.name,AFTER=dsname
SETPROG LNKLST,ACTIVATE,NAME=oldlnklst
SETPROG LNKLST,UPDATE,JOBS=*
S LLA,SUB=MSTR
You will need to allocate the new dataset before you can do this.
The last 4 SETPROG's is only needed if you want to run on the 'old' linklist name, it is purely cosmetic.
沒有留言:
張貼留言