Fromkey Tokey

IDCAMS 里面如果想从VSAM 里面导特定的数据到另外的VSAM可以使用FROMKEY 与TOKEY。

范例:这里面FROMKEY 与TOKEY里面参数不是指VSAM 里面的KEY,而是指相对于其他数据唯一可以设置成KEY的数据，你可以根据数据自行设置，这是正常的格式，还有很多VSAM 里面KEY 是COMP-3的格式。可以写成FROMKEY(X''F) Tokey(x''f)

//WAEY0AAA JOB 'ALS',CLASS=U,MSGLEVEL=(1,1),MSGCLASS=X             
//STEP010 EXEC PGM=IDCAMS                                          
//SYSPRINT DD SYSOUT=*                                             
//SYSIN DD *                                                       
  DELETE VCHXQS2.GWAE.AM.AM.B01.AMACT.VREPRO                       
  SET MAXCC=0                                                      
  DEFINE CLUSTER(NAME(VCHXQS2.GWAE.AM.AM.B01.AMACT.VREPRO) -       
     MODEL(GWAE.AM.AM.B01.AMACT.VREPRO))                           
//STEP020 EXEC PGM=IDCAMS                                          
//SYSPRINT DD SYSOUT=*                                             
//IN1 DD DSN=GWAE.AM.AM.B01.AMACT.VREPRO,DISP=SHR                  
//OUT1 DD DSN=VCHXQS2.GWAE.AM.AM.B01.AMACT.VREPRO,DISP=SHR         
//SYSIN DD *                                                       
  REPRO INFILE(IN1) OUTFILE(OUT1)      -                           
   FROMKEY(78048000000000915872) -                                 
   TOKEY(78048000000000915872)