Welcome to the world of Mainframe. 欢迎来到大型机的中文世界!

JCLs about VSAM

1, How to delete and define a cluster?

首先确认要创建的CLUSTER不存在,然后DEFINE一个CLUSTER,包括DATA和INDEX
//step1 EXEC PGM=IDCAMS
//SYSIN DD *
“DELETE ID.DEMO.SAMPLE

“SET MAXCC=0

“DEFINE CLUSTER (NAME(ID.NAME.NAME) -
“ “VOL(ID) –
“ “IXD KEYS(06 0) -
“ “RECSE(80 80)
“…
“ “DATA (NAME(ID.NAME.DATA) -
“…
“ “INDEX (NAME(ID.NAME.INDEX) -
/*

2, How to use REPRO and PRINT?

REPRO 用于讲一个FLAT FILE的DS的内容拷贝到一个VSAM DS里
PRINT 用于在SDSF里面查看一个VSAM文件的内容,因为一个VSAM是不能直接浏览的

//step2 EXEC PGM=IDCAMS
//IN1 DD DSN=ORININAL,DISP= –目标文件–
//OUT1 DD DSN=*.DEMO.SAPMLE,DISP=SHR –VSAM文件–
//SYSIN DD *
“REPRO INFILE(IN1) -
““““`OUTFILE(OUT1)
“PRINT INFILE(OUT1) -
““““`CHARACTER
/*

3, How to use VERIFY?

用于检查一个VSAM文件的完整性

//SYSIN DD *
“VERIFY DATASET(*.DEMO.SAMPLE)
/*

注:“表示空格

相关文章

  • Top Links

  • 功能

  • 文章归档