PGM=ICET00L

使用UNIT=(SYSDA,20)

好几次production abend都是因为JCL中分配的dataset太大，恰好一个volume上面的剩余空间都分配完了。
这里是DBA给的建议：

"Always code UNIT=(SYSDA,20) for all disk datasets.It will allow the dataset to go to multiple volumes automatically." 

000001 //STEP001  EXEC PGM=SYNCSORT,REGION=4096K,COND=(0,NE)                  
000002 //SYSOUT   DD  SYSOUT=*                                                
000003 //SYSPRINT DD  SYSOUT=*                                                
000004 //SORTIN   DD  DSN=IBMUSER.SYSDA20.TEST1(0),DISP=SHR                   
000005 //         DD  DSN=IBMUSER.SYSDA20.TEST2(0),DISP=SHR                   
000006 //SORTWK01 DD  UNIT=(SYSDA,20),SPACE=(CYL,(30,10),RLSE)                
000007 //SORTWK02 DD  UNIT=(SYSDA,20),SPACE=(CYL,(30,10),RLSE)                
000008 //SORTOUT  DD  DSN=&&SORTOUT,DISP=(NEW,PASS),                          
000009 //             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0),             
000000 //             UNIT=(SYSDA,20),SPACE=(CYL,(50,50),RLSE)                
000011 //SYSIN    DD  DSN=IBMUSER.CNTL(CNTLCD1),DISP=SHR                      
000012 //*

所以，就当成标准吧，把UNIT=SYSDA都改成UNIT=(SYSDA,20)。

Comments !