Hello list,
  If a PDS module library define in lnklst has multiple extents, is it
  OK to use dynamic lnklst command to reduce the secondary extent
  number?

1.STOP LLA
P LLA
2.Delete modules with too many extents
SETPROG LNKLST,DEFINE,NAME=PROD01,COPYFROM=CURRENT
SETPROG LNKLST,DELETE,NAME=PROD01,DSNAME=MODULE.NAME
SETPROG LNKLST,ACTIVATE NAME=PROD01
SETPROG LNKLST,UPDATE,JOB=*
3.Use ISPF panel to change module.name to other name like: MODULE.NAME.OLD
4. Allocate new PDS and use ISPF 3.3 to copy all moudles from old PDS to new one
5.Add new PDS back to LNKLST
SETPROG LNKLST,DEFINE,NAME=PROD02,COPYFROM=CURRENT
SETPROG LNKLST,ADD,NAME=PROD02,DSNAME=MODULE.NAME,VOLUME=MODVOL,ATBOTTOM
SETPROG LNKLST,ACTIVATE NAME=PROD02
SETPROG LNKLST,UPDATE,JOB=*
5.Start LLA
S LLA

If the module is share across several systems do:
F LLA,REFRESH

Delete module.name from lnklst
PROGXX
LNKLST DEFINE NAME(PROD01) COPYFROM(CURRENT)
LNKLST DELETE NAME(PROD01) DSNAME(MODULE.NAME)
LNKLST ACTIVATE NAME(PROD01)
LNKLST UPDATE JOB(*)

Add MODULE.NAME back to LNKLST
PROGXX
LNKLST DEFINE NAME(PROD02) COPYFROM(CURRENT)
LNKLST ADD NAME(PROD02) DSNAME(MODULE.NAME) VOLUME(MODVOL) ATBOTTOM
LNKLST ACTIVATE NAME(PROD02)
LNKLST UPDATE JOB(*)

Done!
Is there a need to IPL?
Is the DEB rebuilt?

Regards
Victor



__________________________________________________
Do You Yahoo!?
雅虎免费G邮箱-中国第一绝无垃圾邮件骚扰超大邮箱
http://cn.mail.yahoo.com/?id=77071

__________________________________________________
Do You Yahoo!?
雅虎免费G邮箱-中国第一绝无垃圾邮件骚扰超大邮箱
http://cn.mail.yahoo.com/?id=77071

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to