定义VSAM文件-IDCAMS
//F49DEFVS JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//FORM49VS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE TRAIN.FORM49.CBLAIF
DEFINE CLUSTER(+
NAME(TRAIN.FORM49.CBLAIF) +
RECSZ(69 69) +
RECORDS(100 10) +
KEYS(8 0) +
VOL(DMTD04))
/*