新型主机操作系统6..ppt

IDCAMS实例 //OGDEN12 JOB 1,BILL,MSGCLASS=X //DEL EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE OGDEN.DATA.VSAM CLUSTER /* //LOAD EXEC PGM=IDCAMS //SYSPRINT DD * //DATAIN DD DISP=OLD,DSN=OGDEN.SORTOUT //SYSIN DD * DEFINE CLUSTER (NAME (OGDEN.DATA.VSAM) – VOLUMES(USER02) CYLINDERS(1 1) – RECORDSIZE(72 100) KEYS(9 8) INDEXED) REPRO INFILE(DATAIN) OUTDATASET(OGDEN.DATA.VSAM) ELIMIT(200) /* IEBUPDTE实例 //OGDEN10 JOB 1，BILL,MSGCLASS=X // EXEC PGM=IEBUPDTE //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=OLD,DSN=MY.PROLIB //SYSUT2 DD DISP=OLD,DSN=MY.PROLIB //SYSIN DD DATA ./