分类:
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