Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1065459
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2008-04-25 17:08:18

//TSOIDVM  JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,                        
//         NOTIFY=&SYSUID                                              
//*********************************************************************/
//*               REPRO DATA                                           
//*********************************************************************/
//REPRO   EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                 
//INPUT    DD DSN=TSOID.TEXT.DATA,DISP=SHR                             
//SYSIN DD *                                                           
   REPRO INFILE(INPUT) ODS(TSOID.TEST.VSAM)                            
/*                                                                     
//                      

注:向VSAM文件写入信息,使用IDCAMS来实现。写入的内容保存在SDS,其DS名称是:TSOID.TEST.DATA.
    具体的写入信息语句是:                                                                                        REPRO INFILE(INPUT) ODS(TSOID.TEST.VSAM)
    信息会被写入VSAM文件TSOID.TEST.VSAM中
    其中的TSOID需替换成登陆mainframe的ID.

阅读(2340) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~