如何使用JCL输出VSAM文件的内容(how to output VSAM data with JCL)
//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
如何使用JCL写入信息到VASM(how to write information into VSAM with JCL)
//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.
如何使用JCL删除VSAM文件(how to delete a VSAM with JCL)
//TSOIDVM JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,
// NOTIFY=&SYSUID
//*********************************************************************/
//* VASM DELETE
//*********************************************************************/
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE TSOID.TEST.VSAM PURGE
/*
//
注：删除一个VSAM同样使用IDCAMS Utility 在SYSIN中给出删除语句，其中的TSOID.TEST.VSAM是一个VSAM文件。PURGE表示强制删除
How to define a VSAM with JCL 如何使用JCL建立一个VSAM文件
//TSOIDVM JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,
// NOTIFY=&SYSUID
//*********************************************************************/
//* VASM DEFINE
//*********************************************************************/
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
( NAME (TSOID.TEST.VSAM) -
CYLINDERS (1,1) -
RECORDSIZE (80 80) -
KEYS (18 0) -
FREESPACE(10,20)) -
DATA(NAME(TSOID.TEST.VSAM.DATA)) -
INDEX(NAME(TSOID.TEST.VSAM.INDEX))
/*
注：其中的TSO ID需要进行替换才能使用。
RECORDSIZE (80 80)语句定义了VSAM文件的长度
KEYS (18 0)定义了VSAM文件关键字，即索引的长度。
联络订阅
