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

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2008-04-25 17:10:09

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

注:其中TSOID是用户登陆mainframe的TSO ID,需要进行替换。
    输出信息使用的是IDCAMS utility
    被输出信息的VSAM是:TSOID.TEST.VSAM
    输出的语句是: PRINT INFILE(INPUT) CHAR         

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