JCL例程——IEBCOMPR

IEFBR14 是一个比较常用的实用程序，它实际是一个空程序，什么也不做，只是返回返回
码0，但是使用它可以进行JCL 语言的各种处理，如DD 语句中创建数据集等。
使用 IEFBR14 来创建数据集：
例一：
//DEFFILE JOB CLASS=A,REGION=4096K,
// MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE TEST.FILE
/*
//ALLOC EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//FILE1 DD DISP=(NEW,CATLG),DSN=TEST.FILE,
// UNIT=3380,VOL=SER=MVSDL3,
// SPACE=(3200,(360,180)),
// DCB=(RECFM=VB,BLKSIZE=3200)
以上JCL 创建了一个新的顺序数据集TEST.FILE
例二：
//SAMPJOB JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE TEST.FILE1
/*
//DEFINE EXEC PGM=IEFBR14
//FILE1 DD DSN=TEST.FILE1,
// DISP=(NEW,CATLG),
// STORCLAS=OSBASE,MGMTCLAS=OSMGMT,
// SPACE=(6160,(500,100,200)),
// DCB=(LRECL=80,BLKSIZE=6160,DSORG=PO,RECFM=FB)
上例中创建了一个分区数据集TEST.FILE1
删除文件：
//IEFBR14 JOB CLASS=A,REGION=4096K,MSGLEVEL=(1,1),
// MSGCLASS=A,NOTIFY=&SYSUID
//STEP1 EXEC PGM=IEFBR14
//DATASET DD DSN=TEST.BACKUP,DISP=(OLD,DELETE)