Hi John,
Thanks for your recommendation, but I have another idea by putting a &&TEMP
dataset to the IDCUT1 external sortwork. what do you think? I try before
and it's works. Any other side effect?
//BUILDIDX EXEC PGM=IDCAMS,COND=(8,LE),REGION=6M
//SYSPRINT DD SYSOUT=*
//IDCUT1 DD DSN=&&TEMP1,DISP=OLD,
// UNIT=SYSDA,VOL=REF=*.IEFBR14.ALLOC1,AMP='AMORG'
//IDCUT2 DD DSN=&&TEMP2,DISP=OLD,
// UNIT=SYSDA,VOL=REF=*.IEFBR14.ALLOC2,AMP='AMORG'
//SYSIN DD DSN=&LBMGD..BAT.PARMLIB(DEFFILEB),DISP=SHR
// DD DSN=&LBMGD..BAT.PARMLIB(DEFTDGPA),DISP=SHR
Many thanks
Tommy
----- 轉呈者 Tsui Yuk Kai/Production Mgt Div/Information Technology
Dept/BOCHK/BOCG 於 2006/09/01 上午 05:36 -----
John Kington
<[EMAIL PROTECTED]
VERGYS.COM> 收件人
寄件人： IBM [email protected]
Mainframe 副本抄送
Discussion List
<[EMAIL PROTECTED] 主旨
.EDU> Re: 轉寄： Define and build
alternative index path error
under SMS-managed volume
2006/08/31 下午
09:22
請回信 給
IBM Mainframe
Discussion List
<[EMAIL PROTECTED]
.EDU>
Tommy,
You latest attempt created two temporary nonvsam datasets. The default DISP
is NEW,DELETE,DELETE.
We got around this issue by putting a IEFBR14 step before the IDCAMS step.
Example:
//IEFBR14 EXEC PGM=IEFBR14
//DD1 DD DSN=ZDVT.ALLOC1,DISP=(NEW,DELETE),UNIT=SYSDA,
// SPACE=(TRK,1)
//DD2 DD DSN=ZDVT.ALLOC2,DISP=(NEW,DELETE),UNIT=SYSDA,
// SPACE=(TRK,1)
/* DEFINE & BUILD ALTERNATIVE INDEX PATH */
//BUILDIDX EXEC PGM=IDCAMS,COND=(8,LE),REGION=6M
//SYSPRINT DD SYSOUT=*
//IDCUT1 DD DSN=ZDVT.MGDC001.IDCUT1,DISP=OLD,
// UNIT=SYSDA,VOL=REF=*.IEFBR14.ALLOC1,AMP='AMORG'
//IDCUT2 DD DSN=ZDVT.MGDC001.IDCUT2,DISP=OLD,
// UNIT=SYSDA,VOL=REF=*.IEFBR14.ALLOC2,AMP='AMORG'
//SYSIN DD DSN=&LBMGD..BAT.PARMLIB(DEFFILEB),DISP=SHR
// DD DSN=&LBMGD..BAT.PARMLIB(DEFTDGPA),DISP=SHR
Regards,
John
----------------------------------------------------------------------
***********************************************************
This message contains confidential information which is intended only for the
person or entity to which it is addressed. If you are not the intended
recipient, you should not read, disseminate, distribute or copy this e-mail.
Any opinion contained in this message are those of the author and are not given
or endorsed by BOCHK unless otherwise stated in this message and the authority
of the author to so bind BOCHK is duly verified. We do not guarantee that this
e-mail is virus-free or secure and are not liable in respect of any delay or
omission in the transmission of this message.
***********************************************************
----------------------------------------------------------------------
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
