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
“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)
/*
注：“表示空格
Comments
Tell me what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!
联络订阅
