//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
/*