> //STEP1    EXEC PGM=IDCAMS
> //SYSIN    DD   *
>   DEFINE GDG (NAME(SSS007.TEST.GDG9) -
>   LIMIT (5) -
>   SCRATCH -
>   NOEMPTY)
> /*
> //SYSPRINT DD   SYSOUT=*
> //STEP2    EXEC PGM=IEFBR14
> //FILE1    DD   DSN=SSS007.TEST.GDG91,DISP=(,CATLG,DELETE),
> //             UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
> //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
> //STEP3    EXEC PGM=IEFBR14
> //FILE1    DD   DSN=SSS007.TEST.GDG9(+1),DISP=(,CATLG,DELETE),
> //             UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
> //             DCB=SSS007.TEST.GDG91
> //
> //STEP4    EXEC PGM=IDCAMS
> //SYSIN    DD   *
>   DELETE (SSS007.TEST.GDG9) GDG PURGE FORCE
> /*

JCLッッ！！(;`Д´)

参考：2007/01/18(木)00時38分42秒

//STEP1    EXEC PGM=IDCAMS
//SYSIN    DD   *
  DEFINE GDG (NAME(SSS007.TEST.GDG9) -
  LIMIT (5) -
  SCRATCH -
  NOEMPTY)
/*
//SYSPRINT DD   SYSOUT=*
//STEP2    EXEC PGM=IEFBR14
//FILE1    DD   DSN=SSS007.TEST.GDG91,DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//STEP3    EXEC PGM=IEFBR14
//FILE1    DD   DSN=SSS007.TEST.GDG9(+1),DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
//             DCB=SSS007.TEST.GDG91
//
//STEP4    EXEC PGM=IDCAMS
//SYSIN    DD   *
  DELETE (SSS007.TEST.GDG9) GDG PURGE FORCE
/*