初始化VSAM

初始化VSAM

在定义完VSAM之后，直接打开会报错，需要先进行初始化
有两种方法初始化：

第一种：直接复制其他VSAM

//F49INIT1 JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
REPRO +
INDATASET(TRAIN.FORM34.CBLAIF) +
OUTDATASET(TRAIN.FORM49.CBLAIF)
/*

第二种：使用流内数据写入

//F49INIT JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//SORTVSAM EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
00 WU QIN FEI
/*
//SORTOUT DD DSN=FORM49.UTSFIX.KSDS,DISP=OLD
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,80)
/*