1. 创建一个GDG,包括base和model: //STEP1 EXEC PGM=IDCAMS//GDGMODEL DD DSN=ST023.TEST.GDGMDL, DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(0)), DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000) //SYSPRINT DD SYSOUT=*//SYSIN DD * DEFINE GDG (NAME(ST023.TEST.GDG) LIMIT(100) –THIS IS GDG BASE!–/* 2. 在GDG中创建DS: //STEP2 EXEC PGM=IEBGENER//SYSUT1 DD DSN=ST023.TEST.ORIGINAL,DISP=SHR//SYSUT1 DD DSN=ST023.TEST.GDG(+1), DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(5,5)), DCB=ST023.TEST.GDGMDL //SYSPRINT DD SYSOUT=* 3. 删除GDG,删除其中的DS先: [ Read More ]